AssignFile mit Double

[Klaus01]

Zitat:

das kann ich schon alles, ich weiß nur nicht wie man die sachen verschlüsselt !!

dann schau wir mal:

Delphi-Quellcode:

var
  s, crypt:String;

for i:=1 to lenght(string)-1 do
  begin
    cryp[i] := chr(ord(s[i] XOR 56);
  end;

Grüße
Klaus