Encrypting?

[Basjuh]

ok i have that hashing program done at 156 byte but if i for instance put in A to be hashed it gives a domain error...

here's the source


Input Str1
1\->\A
"ADINSXBEJOTY CFKPUZ:GLQV\theta\?HMRW3026159487\->\Str2
For(I,1,length(Str1
inString(Str2,sub(Str1,I,1
\root\(AIAns\->\A
End
A\->\rand
"*\->\Str1
For(I,1,16
int(rand40)
Str1+sub(Str2,Ans,1\->\Str1
End
DelVar ADelVar Str2DelVar I
0\->\rand
ClrHome

it gives an domain error at the bold printed line

[anduril66]

Doe int(rand40) often give a 0 (which would cause an error)?


Also, I would just include the statement in Ans's place.
ie.Str1+sub(Str2,int(rand40),1\->\Str1

[Basjuh]

[DarkerLine]

Maybe randInt(1,40) ? That is what it was meant for, you know...

[Basjuh]

would not work because randint is too random... if you store a value in rand you'll get the same random numbers everytime

example:

1->rand

.74...
.85...
.22...
.46...

if you now store 1 again in rand you'll get the exact same numbers. i use that in the program, thus i cannot use RandInt...

[Arcane Wizard]

randInt does the same thing.

1->rand
For(X,1,10
Disp Int(40rand+1
End

Result:
30
35
10
19
28
4
4
25
6
11

1->rand
For(X,1,10
Disp randInt(1,40
End

Result:
30
35
10
19
28
4
4
25
6
11

Also note that there is no such thing as something being too random.

[Basjuh]

you just wrote almost the same code as i use you're using rand and not randint(

[Arcane Wizard]

It was supposed to show randInt works fine.

[Basjuh]

doesnt matter they both work... right..

[Arcane Wizard]

They sure do.

[DarkerLine]

But you could do randInt(1,40,length(whatever string you feel like using.