Witam ponownie.
Korzystając z funkcji, które znalazłem w LibGadu napisałem funkcję do
tworzenia SHA i nadal mam problem.
Wciąż nie zwraca mi się taki hash, jaki wysłało NoweGG, przez co mnie
nie loguje. Hash jaki ono wysłało był taki:
3B 09 96 E4 C8 4D 51 CB 37 4F 85 B5 A9 3C 1E 56 B1 3F D4 55
On Thu, May 28, 2009 at 05:47:35PM +0200, wit...@ravir.pl wrote:
Witam ponownie.
Korzystając z funkcji, które znalazłem w LibGadu napisałem funkcję do
tworzenia SHA i nadal mam problem.
Wciąż nie zwraca mi się taki hash, jaki wysłało NoweGG, przez co mnie
nie loguje.
int main(void){
wit...@ravir.pl wrote:
Seed:= 1622137249;
Haslo:= 'dupawolowa1';
//3B 09 96 E4 C8 4D 51 CB 37 4F 85 B5 A9 3C 1E 56 B1 3F D4 55
Dla tych parametrów uzyskuję:
a3 3c 75 34 77 8a 23 b5 2f c8 df 32 9b 9c 84 16 5f 1b 1d f7
Więc nie zgadza się to z zakomentowanym SHA1... Sprawdź ponownie i
Dnia 28-05-2009 o godz. 20:28 piknew napisał(a):
wit...@ravir.pl wrote:
Seed:= 1622137249;
Haslo:= 'dupawolowa1';
//3B 09 96 E4 C8 4D 51 CB 37 4F 85 B5 A9 3C 1E 56 B1 3F D4 55
Marcinie,
ale ja od miesiąca zmieniam parametry, typy zmiennych, procedury, układ,
funkcje, modyfikuje
wit...@ravir.pl wrote:
Dnia 28-05-2009 o godz. 20:28 piknew napisał(a):
wit...@ravir.pl wrote:
Seed:= 1622137249;
Haslo:= 'dupawolowa1';
//3B 09 96 E4 C8 4D 51 CB 37 4F 85 B5 A9 3C 1E 56 B1 3F D4 55
Marcinie,
ale ja od miesiąca zmieniam parametry, typy zmiennych, procedury,
układ,
Tak mi się miło zrobiło już, myślałem, że się udało i wyszło, że znowu
muszę pytać...
function Indianin(x: LongInt): LongInt;
begin
result:= (((x and $00ff) shl 24) or
((x and $ff00) shl 8) or
((x and $00ff) shr 8) or
((x and
2009/5/28 wit...@ravir.pl wfbzyki...@wp.pl:
function Indianin(x: LongInt): LongInt;
begin
result:= (((x and $00ff) shl 24) or
((x and $ff00) shl 8) or
((x and $00ff) shr 8) or
((x and $ff00) shr 24));
end;
Nie ma tam
Witam. Dzięki za poprawienie tego opisu. Jak już mówiłem tłumaczę sobie
wszystko na Delphi. Do szyfrowania używam biblioteki DCPCrypt. Mój kod
wygląda tak (właściwie to cała procedura szyfrująca testowa)
var
h:TDCP_sha1;
digest:array [0..19] of byte;
res:string;
i:byte;
Haslo: PChar;
wit...@ravir.pl pisze:
Witam. Dzięki za poprawienie tego opisu. Jak już mówiłem tłumaczę sobie
wszystko na Delphi. Do szyfrowania używam biblioteki DCPCrypt. Mój kod
wygląda tak (właściwie to cała procedura szyfrująca testowa)
(...)
Nie pisałem już w Pascalopodobnych od ładnych paru lat,
2009/5/25 wit...@ravir.pl wfbzyki...@wp.pl:
Seed: LongInt;
h.Update(Seed, 4);
A co z kwestią big/little endian i tym, w jaki sposób funkcja Update
traktuje zmienną typu longint? Może trzeba magicznym sposobem (np.
unią?) rzutować na jakiś odpowiednik char[4]?
--
Kosma Moczek
wit...@ravir.pl pisze:
Postanowilem skodzic obsługe GG8 w Delphi. Od kilku juz dni meczee sie z
logowaniem. Nie wiem dokladnie w czym jest problem - tylko przypuszczam.
Gadu po wyslaniu pakietu logowania (0x0031) zawsze zwraca mi 9 - login
failed. Wysnifowalem oryginalny klient i porownalem
11 matches
Mail list logo