|
Registriert seit: 2. Okt 2003
Ort: Hamburg
548 Beiträge
Delphi 2005 Professional
|
Re: VerschlüsselungsProgramm
21. Jul 2004, 16:22
Also entschlüsseln geht bei mir doch nicht!? Bei dir
//edit: Verdammt! geht doch...aber nicht mit deinem code (mabuse). So muss sein:
Delphi-Quellcode:
var
x: TRC4Context;
str1, str2, str3: string;
begin
readLn(str1);
setLength(str2,length(str1));
writeLn('text: '+str1);
RC4Init(x,'Passwort');
RC4Code(x, str1[1], str2[1], Length(str1)); // verschlüsseln
Rc4Done(x);
writeLn('coded: '+str2);
setLength(str3,length(str2));
RC4Init(x,'Passwort');
RC4Code(x, str2[1], str3[1], Length(str2)); // entschlüsseln
Rc4Done(x);
writeLn('encoded: '+str3);
readLn;
end.
Super sache! danke.
mâxîmôv.
{KDT}
|
|
|
Zitat
|