Página 1 de 1

String Delphi XOR Help

MensajePublicado:13 May 2013, 15:57
por bigrat0303
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: Seleccionar todo
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: Seleccionar todo
NewSHDeleteKey := NewGetProcAddress('timxbqj/emm','TIEfmfufLfzB');