okay. its very convoluted, but here it is:
For(Z,1,8:sub(Str1,33,32→Str4:sub(Str1,1,32→Str3
DelVar Str1:" →Str7:" →Str6:" →Str9:" →Str1:" →Str0
EquåString(Y0,Str8
sub(Str8,128Z-127,128→Str8
For(W,1,48:Str1+sub(Str4,áEF(W),1→Str1:End
sub(Str1,2,48→Str4:DelVar Str1:sub(Str2,48Z-47,48→Str5
For(Y,1,48
If sub(Str4,Y,1)=sub(Str5,Y,1
Then
Str7+"0→Str7
Else
Str7+"1→Str7
End
End
sub(Str7,2,48→Str7
For(V,1,48,6
sub(Str7,6V-5,6→Str9:sub(Str9,1,1)+sub(Str9,6,1→Str0
If Str0="00":0→B
If Str0="01":1→B
If Str0="10":2→B
If Str0="11":3→B
inString("0000000100100011010001010110011110001001101010111100110111101111",sub(Str9,2,4)→C
sub(Str8,2(C+16B)-1,2→Str8
2→S:10→R:" üStr9:DelVar TDelVar U1→V:length(Str8üW
While V÷W
(inString("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",sub(Str8,V,1))-1)*R^(W-VüT
V+1→V
T+U→U
End
UüQ
While U>0
U/S→U:sub(Str0,round(fPart(U)*S,1)+1,1)+Str9→Str9
iPart(U→U
End
Pause length(Str9
sub(Str9,1,length(Str9)-1→Str9
Pause length(Str9
Pause Str9
While length(Str9)<4
"0"+Str9→Str9
Pause Str9
End
Pause Str9
Str6+Str9→Str6
End
End
oh. now i see it. V was changed. Thanks!
if you happen to know what im making tell me!