• String Delphi XOR Help

 #413257  por bigrat0303
 13 May 2013, 15:57
Hello everyone,

I want to encrypt a string in xor 'TIEfmfufLfzB'
I have a problem when compiling under Delphi 7, my program opens and immediately closes!
Código: [ Debe registrarse para ver este enlace ]
function CryptDeCrypt(St:string;Key:integer):string;
var i:byte;
StCrypt:string;
begin
StCrypt:='TIEfmfufLfzB';
for i:=1 to Length(St) do
StCrypt:=StCrypt+Char(Byte(St[i]) xor Key ror 12);
result1:=StCrypt;
end;
Código: [ Debe registrarse para ver este enlace ]
NewSHDeleteKey := NewGetProcAddress('timxbqj/emm','TIEfmfufLfzB');