Delphi-Quellcode:
for I:=1 to length(tempstr) do
hash:=hash xor ord(tempstr[I]);
XOR ist nur sicher, wenn das Passowrt genauso lang ist wie die zu verschlüsselnden Daten und das Passwort nur einmal verwendet wird. Näheres dazu kann dir Hagen sagen oder such einfach mal nach XOR Verschlüsselung hier im Forum.