HTDark | Underground Hacking Forum and Cybersecurity Community
  • Earn real money by being active: Hello Guest, earn real money by simply being active on the forum — post quality content, get reactions, and help the community. Once you reach the minimum credit amount, you’ll be able to withdraw your balance directly. Learn how it works.

Delphi mEnDecryptMUR [Traducido By Metal]

Status
Not open for further replies.
E

Expermicid

Leech
User
Joined
Oct 23, 2011
Messages
285
Reputation
0
Reaction score
255
Points
63
Credits
0
‎13 Years of Service‎
95%
[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]

 
Last edited by a moderator:
Status
Not open for further replies.
Back
Top