[S]steam decrypt

[gORDon_vdLg]

ja und, wer delphi kann kann auch den c++ source da lesen...

[inmate]

ich kenn mich mit delphi zwar nicht aus aber bei vb net muss man den hash aus der clientregistry.blob auslesen.

nach dem wort phrase 6 stellen dazuaddieren, dann 46 +86 dann hasste den hash.

mit den 3 registryeinträgen kann man den nur decrypten.

[MoisKid]

ich nehm an mit 46 meinst du den abstand von phrase zum hash oder? bei mir sind das 34... und der hash ist auch keine 86 zeichen lang bei mir

~ Phrase
P~  
  \  640813440871095830805848CE3D28A9B7882E2A2135D3D6C0 E8148D7CFED96BE8EE95334C49E41B70ECEB51883F *

[gORDon_vdLg]

man kann es ja suchen lassen indem man prüft ob ein zeichen aus 0-9 oder a-f besteht^^

[MoisKid]

ich hab einfach ab 40 zeichen nach phrase und dann die nächsten 100 zeichen genommen, kommt ungefähr hin, 1-2 zeichen zuviel, kann man net genau sagen da die anzeige beim readen der blob files net gescheit geht bei autoit

[inmate]

du musst aber den genauen hash haben , sonst ist das decrypten nicht möglich

[Hamtaro]

also, wie man den Steampfad herausfindet und wie man an das verschlüsselte PW kommt müsst ihr selber rauskreigen, aber das eigentliche Entschlüsseln bei einer aktuellen Steam.dll funktioniert so:

type
TSteamDecryptDataForThisMachine = function(EncryptedData :Pchar; EncryptedDataLength : Integer; DecryptedBuffer : Pointer; DecryptedBufferSize : Integer; DecryptedDataSize : PUINT) : Integer; cdecl;

var
pwdecrypt : TSteamDecryptDataForThisMachine;
encpwd : Pchar;
retlength : UINT;
password : array[0..99] of char;
begin
encpwd := '093760711C24A4FCB63F19FBA07DF366A7EF01751E1D21F70BBF32F47FD4E06E17D91449DA9396CA8D2B257FF4B1';
pwdecrypt := GetProcAddress(LoadLibrary('C:\Program Files\Steam\steam.dll'),'SteamDecryptDataForThisMachine');
Showmessage(IntTOStr(pwdecrypt(encpwd, strlen(encpwd),@password, 100,@retlength)));
Showmessage(inttostr(retlength));
showmessage(password);