=Delphi = MuOnline EncDec -C1C2C3C4

[mauka]

this is Hitaman EncDec converted into Delphi

Credits: .. i dunno who did it =(

[MentaL]

[Dios]

I found this not approved from some time ago.

[Polli18]

it's made by gunz

[r3v0lu710n]

what is this ??? for what is use to ?

[Polli18]

is for decrypting encrypted packets ..

[Dark1234567]

anyone can tell me how i can use it ?

i have c3 packet in string like this :

C3186F4D02DF8D96949F55EDD87A7502BC8BE213050DDEE4

[mauka]

learn some basic of programming and the come back!

Banned! till 2020.10.12!

LoadKeys;

s := 'C3186F4D02DF8D96949F55EDD87A7502BC8BE213050DDEE4';
Barr := @s;
DecC3(@Barr,Barr[1] or SizeOf(Barr),Boolean - toServer);
Log(@DecryptResult);

but first u need load LoadKeys; ^^

[Dark1234567]

nvermind ;]

[mauka]

just remeber c1 and c3 type packet length is byte
c2 and c4 length is word its importand else c2 and c4 will be wrong decrypted

[Dark1234567]

Can u tell me what is wrong

07:33:07 119895521612169451861114111017211611
07:33:07 1682221285122219125152222112882181118111112211111111422129111122211515222211
07:33:07 112611121322136711111141611

---------- Post added at 08:44 AM ---------- Previous post was at 07:26 AM ----------

just remeber c1 and c3 type packet length is byte
c2 and c4 length is word its importand else c2 and c4 will be wrong decrypted

i know that ;] i made packet sniffing based on c1 c2 with decryption

[mauka]

function HexTo(Source: String): TByteArray;
var
  i,CharPtr:Integer;
  tmp:String;
begin
  CharPtr := 1;
 for i := 0 To Length(Source) div 2 -1 do
  begin
   tmp := Copy(Source, CharPtr, 2);
    inc(CharPtr,2);
      Result[i] := StrToInt('$'+tmp);
  end;
end;

function ToHex(Buffer:PByteArray; Len: Integer):string;
const 
 HexCode: Array [$0 .. $F] Of AnsiChar = '0123456789ABCDEF';
var
i:integer;
begin
 for i := 0 to Len - 1 do
  begin
 Result := Result + HexCode[Buffer[i] shr 4]+HexCode[Buffer[i] and $0F];
  end;
end;

procedure test;
var
arr: TByteArray;
begin
LoadKeys;
 arr := HexTo(Edit1.text)
  DeCodeC3(@Arr,Arr[1],True);
   Edit2.Text := ToHex(@DecryptResult,DecryptResult[1]);
end;

procedure TMyFrm.MyButtonClick(Sender: TObject);
begin
 test;
end;

i dint tested and writed it here ^^ in forum
its should work =)

Have Fun! if u dont get it contact me via msn [6748222@Gmail.com] i explain u there it beter ^^
but best way is read and understand code =)

i know that ;] i made packet sniffing based on c1 c2 with decryption

lol after u Decrypt C3 its become to C1 and after Decrypt C4 its become to C2 so MuOnline have only C1 and C2 packet type`s
some packets are Encrypted some not! =D

C4 is Encypted C2
C3 is Encypted C1

see encDec u first decrypt it then u xor =) case its C1 u simply xor it


PS. in this EncDec Encryption is wrong so peneltium byte will be wrong in some S4 Packets

u can simply fix it with xor
Original byte Xor ByteUGet xor Original := correct byte
or encrypt packet back with real packets Length (read code how HitMan encrypt packet)
and check how do it Evolver =) evolvers encdec work Perfect =D

[Dark1234567]

OOOOHHHHH ok





i dont understandit ....
see r mail

[mauka]

i dont remeber password to it ^^ come msn if wana talk =D

[experz]

How i run it, its show's me errors...

Some1 got for Linux or Windows, perl... something ? Compiled

[jotpeaka]

Someone can rewrite this in C++? I don't know delphi so it's hard for me

[[RCZ]ShadowKing]

Someone can rewrite this in C++? I don't know delphi so it's hard for me

Search on this forum and you will find them. You can also find enc/dec src in any gameserver src released on this forum.

[mauka]

Mather of fact this version (DELPHI) is bugged as simple modulus should be Encrypted according to Decrypted datas size ;)

Long story, bro :D

[meninoand]

How to use this in sendsocket function?
I have this: Send($Adrees, "$C1, $00, $00, $23", 0);