Bleistift:
Code:
Name = "Herr Bleistift"
Hash = &he1e1e1e1
Randomize timer
For X=1 to Len(Name)
B = Asc(Mid(Name,X,1)
B = B Xor Int(Rnd*256)
Hash = Hash Xor (B^((X\4) Mod 4))
Next
MsgBox Format(Hash,"0000000000")
____________________________________
Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\"
http://www.dream.at/gizmo/bunny.gif
Image is © 2001 Merle
Sterndalsäg.. ähh... jäger
