Locked mEnDecryptMUR [Traducido By Metal]

[Expermicid]

[lenguaje=delphi]Function mEnDecryptMUR(sString, sPass: String): string;

var ilng: byte; i: integer;

begin

For I := 1 To Length(sString) do

begin

iLng:= ord(Copy(sPass, I Mod Length(sPass) + 1, 1)[1]);

Result := Result + Chr(ord(Copy(sString, I, 1)[1]) Xor iLng);

end;

end;[/lenguaje]

Edited February 16, 2014 by Expermicid