Expermicid Posted September 19, 2012 Share Posted September 19, 2012 (edited) [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 Link to comment Share on other sites More sharing options...
Recommended Posts