Ĺadny brzuch
Witam. Posiadam kod do obsługi GG oparty na Winsock lecz tak na prawdę nie bardzo go rozumiem. Nie wiem czy mogę go umieścić bo dostałem go od Cyrkiela, więc jeżeli nie to proszę powiedzieć a usunę. Rozchodzi się o to że tu jest opisany protokół gg: http://toxygen.net/l...protocol/#ch1.8 lecz to kompletnie nie zgadza się z programem który posiadam. Np w logowaniu nie ma nic takiego tylko całkiem co innego:
#define GG_LOGIN80 0x0031 struct gg_login80 { int uin; /* numer Gadu-Gadu */ char language[2]; /* język: "pl" */ char hash_type; /* rodzaj funkcji skrótu hasła */ char hash[64]; /* skrót hasła dopełniony \0 */ int status; /* początkowy status połączenia */ int flags; /* flagi (przeznaczenie nieznane) */ int features; /* opcje protokołu (0x00000007)*/ int local_ip; /* lokalny adres połączeń bezpośrednich (nieużywany) */ short local_port; /* lokalny port połączeń bezpośrednich (nieużywany) */ int external_ip; /* zewnętrzny adres (nieużywany) */ short external_port; /* zewnętrzny port (nieużywany) */ char image_size; /* maksymalny rozmiar grafiki w KB */ char unknown2; /* 0x64 */ int version_len; /* długość ciągu z wersją (0x21) */ char version[]; /* "Gadu-Gadu Client build 8.0.0.7669" (bez \0) */ int description_size; /* rozmiar opisu */ char description[]; /* opis (nie musi wystąpić, bez \0) */ };
Na tej stronie pisze o Ping Pong czyli o utrzymywaniu połączenia które jet zrywane po 5min jeżeli nie ma podpowiedzenia. I rzeczywiście, wylogowuje się po 5 min... I jak to teraz wykorzystać?:
#define GG_PING 0x0008 #define GG_PONG 0x0007
Niby gdzie to dodać, co dopisać, co z tym zrobić? W kodzie nie ma żadnych 0x0000....
Jak zrobić że jeżeli połączenia zostanie przerwane (np. z braku dostępu do neta) to po chwili wznowi połączenie? Jak sie za to zabrać? Czytałem poradniki o winsock ale nic nie ma o żadnych 0x000 itp.
Bardzo proszę o pomoc :(
unit main; interface uses Windows, Messages, SysUtils, Classes, Forms, Winsock, Controls, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure SetUserStatus(nr,s:integer; opis:array of char); procedure Button2Click(Sender: TObject); private procedure recs(var msg:tmessage); message WM_USER+1; end; var Form1: TForm1; s, nr:integer; implementation {$R *.dfm} procedure log(s:string); begin Form1.Memo1.Lines.Add(s) end; var login_seed:array[0..2]of integer; header:packed record typ, size:integer; end; status:packed record typ, size, stat:integer; desc:array[0..255]of char; end; sendstatus:packed record nr:integer; st:byte; end; sendstatus60:packed record nr:integer; st:byte; remote_ip:integer; ver, img_size, un:byte; end; notify_reply60:packed record nr:integer; st:byte; remote_ip:integer; remote_port:word; ver, imgsize, un:byte; opis:array[0..1999]of char; end; recv_msg:packed record sender, seq, time, klasa:integer; msg:array[0..1999]of char; end; send_msg:packed record recipient,seq,clasa:integer; msg:array[0..1999]of char; end; procedure TForm1.SetUserStatus; var st:string; o:string; begin o:=opis+1; st:=inttostr(nr)+' - '; if s and 1>0 then st:=st+'niedostępny'; if s and 21>0 then st:=st+' [ '+o+' ]'; Memo1.Lines.Add(st); end; procedure TForm1.recs; var b:array[0..1]of integer; begin case msg.LParam of FD_READ: begin recv(msg.WParam,b,8,0); case b[0] of 10: begin recv(s,recv_msg,b[1],0); log(inttostr(recv_msg.sender)+': '+recv_msg.msg); end; 2: begin recv(s,sendstatus,b[1],0); log(inttostr(sendstatus.nr and not $FF000000)+': '+inttostr(sendstatus.st)); end; 15: begin recv(s,sendstatus60,b[1],0); log(inttostr(sendstatus60.nr and not $FF000000)+': '+inttostr(sendstatus60.st)); end; 17: begin recv(s,notify_reply60,b[1],0); SetUserStatus(notify_reply60.nr and not $FF000000,notify_reply60.st,notify_reply60.opis); end; end; end; FD_CLOSE:log('Przerwano połączenie!'); end; end; function DzielWyraz(s:string; c:char; numer:integer):string; var i, n:integer; a:array[0..255]of string; begin i:=1; n:=0; repeat a[n]:=a[n]+s[i]; if s[i+1]=c then begin inc(n); inc(i); end; inc(i); until i-1=length(s); result:=a[numer-1]; end; function urlget(a:integer; b, c:pchar; d, e:integer):integer; stdcall external 'urlmon.dll' name 'URLDownloadToFileA'; type i2 = record ip, port:integer; end; function getip:i2; var f, r:cardinal; tmp:pchar; s:string; begin getmem(tmp,256); GetTempPath(256,tmp); urlget(0,pchar('http://appmsg.gadu-gadu.pl/appsvc/appmsg4.asp?fmnumber='+inttostr( nr)+'&version=36'),pchar(tmp+'ad.txt'),0,0); f:=CreateFile(pchar(tmp+'ad.txt'),GENERIC_READ,0,nil,OPEN_EXISTING,0,0); s:=tmp+'ad.txt'; ReadFile(f,tmp^,256,r,nil); CloseHandle(f); DeleteFile(s); tmp:=pchar(dzielwyraz(tmp,' ',3)); result.ip:=inet_addr(pchar(dzielwyraz(tmp,':',1))); result.port:=strtoint(dzielwyraz(tmp,':',2)); end; function login_hash(pass:string; seed:cardinal):cardinal; stdcall; var i, x, y, z:cardinal; begin x:=0; y:=seed; for i:=1 to length(pass) do begin x := (x and $ffffff00) or ord(pass[i]); y := y xor x; y := y+x; x := x shl 8; y := y xor x; x := x shl 8; y := y-x; x := x shl 8; y := y xor x; z := y and $1f; y := (y shl z) or (y shr (32 - z)); end; result:=y; end; var login:packed record typ, size, nr, hash, stat, ver:integer; un1:byte; locip:integer; locport:word; extip:integer; extport:word; imgsize, un2:byte; end; procedure log_in; stdcall; var wd:wsadata; ad:sockaddr_in; p:i2; begin WSAStartup($101,wd); log('Inicjalizacja ... '+wd.szDescription); s:=socket(af_inet,sock_stream,ipproto_tcp); ad.sin_family:=af_inet; p:=getip; ad.sin_port:=ntohs(p.port); ad.sin_addr.s_addr:=p.ip; nr:=WPISZ_NUMER; log('Podłączanie ... '+inet_ntoa(ad.sin_addr)+':'+inttostr(p.port)); if connect(s,ad,16)=0 then begin log('Połączono!'#13#10'Logowanie ... '+inttostr(nr)); recv(s,login_seed,12,0); log('Seed ... '+inttostr(login_seed[2])); login.typ:=21; login.size:=31; login.nr:=nr; login.hash:=login_hash('HASŁO',login_seed[2]); // <- TUTAJ HASŁO login.stat:=2; login.ver:=32; login.un1:=0; login.locip:=inet_addr('192.168.1.1'); login.locport:=1550; login.extip:=0; login.extport:=0; login.imgsize:=255; login.un2:=$be; send(s,login,sizeof(login),0); recv(s,login_seed,256,0); if login_seed[0]=3 then begin log('Zalogowany'); status.typ:=2; status.size:=9; status.stat:=4; status.desc:='[ciach!]'#0; send(s,status,17,0); header.typ:=16; header.size:=5; sendstatus.nr:=6206962; sendstatus.st:=3; send(s,header,8,0); send(s,sendstatus,header.size,0); WSAAsyncSelect(s,form1.handle,WM_USER+1,FD_READ or FD_CLOSE); end else log('Błąd logowania!'); end else log('Nie połączono!'); end; procedure TForm1.Button1Click(Sender: TObject); var th:cardinal; begin CreateThread(nil,0,@log_in,nil,0,th); end; procedure TForm1.Button2Click(Sender: TObject); var st:string; begin st:='wiadomosc'; header.typ:=$b; header.size:=12+length(st)+1; send_msg.recipient:=123456; // <- przykładowy numer odbiorcy send_msg.seq:=0; send_msg.clasa:=4; strpcopy(send_msg.msg,st); send(s,header,8,0); send(s,send_msg,12+length(st)+1,0); end; end.
Przede wszystkim tamten opis bazuje na języku C++, a Cyrkiel dał Ci program w delphi. No i na stronie jest opisana nowsza wersja protokołu. W starej nie ma np. pola language.
Mimo to, to co masz w logowaniu, czyli:
var login:packed record typ, size, nr, hash, stat, ver:integer; un1:byte; locip:integer; locport:word; extip:integer; extport:word; imgsize, un2:byte; end;
znaczy mniej więcej tyle samo co Twój pakiet powyżej. np.
nr: integer;
to to samo co
int uin;
nazwy zmiennych są nieistotne
A potrafi ktoś przerobić ten kod by było to Ping Pong czyli nie zrywało połączenia?
generalnie musisz wysłać
pakiet:packed record typ, size:integer; end;
gdzie pakiet.typ=$8; a pakiet.size=sizeof(pakiet);
a serwer odpowie pakietem pong, czyli takim samym pakietem z wartościa typ ustawioną na $7.
Hah tylko jak to wysłać? Nie bardzo rozumiem :/
I czy da sie zrobić że jeżeli sie wyloguje to zaloguje się ponownie? W THGG była taka możliwość.
Dzięki za chęć pomocy
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
#define GG_LOGIN80 0x0031 struct gg_login80 { int uin; /* numer Gadu-Gadu */ char language[2]; /* język: "pl" */ char hash_type; /* rodzaj funkcji skrótu hasła */ char hash[64]; /* skrót hasła dopełniony \0 */ int status; /* początkowy status połączenia */ int flags; /* flagi (przeznaczenie nieznane) */ int features; /* opcje protokołu (0x00000007)*/ int local_ip; /* lokalny adres połączeń bezpośrednich (nieużywany) */ short local_port; /* lokalny port połączeń bezpośrednich (nieużywany) */ int external_ip; /* zewnętrzny adres (nieużywany) */ short external_port; /* zewnętrzny port (nieużywany) */ char image_size; /* maksymalny rozmiar grafiki w KB */ char unknown2; /* 0x64 */ int version_len; /* długość ciągu z wersją (0x21) */ char version[]; /* "Gadu-Gadu Client build 8.0.0.7669" (bez \0) */ int description_size; /* rozmiar opisu */ char description[]; /* opis (nie musi wystąpić, bez \0) */ };
Na tej stronie pisze o Ping Pong czyli o utrzymywaniu połączenia które jet zrywane po 5min jeżeli nie ma podpowiedzenia. I rzeczywiście, wylogowuje się po 5 min... I jak to teraz wykorzystać?:
#define GG_PING 0x0008 #define GG_PONG 0x0007
Niby gdzie to dodać, co dopisać, co z tym zrobić? W kodzie nie ma żadnych 0x0000....
Jak zrobić że jeżeli połączenia zostanie przerwane (np. z braku dostępu do neta) to po chwili wznowi połączenie? Jak sie za to zabrać? Czytałem poradniki o winsock ale nic nie ma o żadnych 0x000 itp.
Bardzo proszę o pomoc :(
unit main; interface uses Windows, Messages, SysUtils, Classes, Forms, Winsock, Controls, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure SetUserStatus(nr,s:integer; opis:array of char); procedure Button2Click(Sender: TObject); private procedure recs(var msg:tmessage); message WM_USER+1; end; var Form1: TForm1; s, nr:integer; implementation {$R *.dfm} procedure log(s:string); begin Form1.Memo1.Lines.Add(s) end; var login_seed:array[0..2]of integer; header:packed record typ, size:integer; end; status:packed record typ, size, stat:integer; desc:array[0..255]of char; end; sendstatus:packed record nr:integer; st:byte; end; sendstatus60:packed record nr:integer; st:byte; remote_ip:integer; ver, img_size, un:byte; end; notify_reply60:packed record nr:integer; st:byte; remote_ip:integer; remote_port:word; ver, imgsize, un:byte; opis:array[0..1999]of char; end; recv_msg:packed record sender, seq, time, klasa:integer; msg:array[0..1999]of char; end; send_msg:packed record recipient,seq,clasa:integer; msg:array[0..1999]of char; end; procedure TForm1.SetUserStatus; var st:string; o:string; begin o:=opis+1; st:=inttostr(nr)+' - '; if s and 1>0 then st:=st+'niedostępny'; if s and 21>0 then st:=st+' [ '+o+' ]'; Memo1.Lines.Add(st); end; procedure TForm1.recs; var b:array[0..1]of integer; begin case msg.LParam of FD_READ: begin recv(msg.WParam,b,8,0); case b[0] of 10: begin recv(s,recv_msg,b[1],0); log(inttostr(recv_msg.sender)+': '+recv_msg.msg); end; 2: begin recv(s,sendstatus,b[1],0); log(inttostr(sendstatus.nr and not $FF000000)+': '+inttostr(sendstatus.st)); end; 15: begin recv(s,sendstatus60,b[1],0); log(inttostr(sendstatus60.nr and not $FF000000)+': '+inttostr(sendstatus60.st)); end; 17: begin recv(s,notify_reply60,b[1],0); SetUserStatus(notify_reply60.nr and not $FF000000,notify_reply60.st,notify_reply60.opis); end; end; end; FD_CLOSE:log('Przerwano połączenie!'); end; end; function DzielWyraz(s:string; c:char; numer:integer):string; var i, n:integer; a:array[0..255]of string; begin i:=1; n:=0; repeat a[n]:=a[n]+s[i]; if s[i+1]=c then begin inc(n); inc(i); end; inc(i); until i-1=length(s); result:=a[numer-1]; end; function urlget(a:integer; b, c:pchar; d, e:integer):integer; stdcall external 'urlmon.dll' name 'URLDownloadToFileA'; type i2 = record ip, port:integer; end; function getip:i2; var f, r:cardinal; tmp:pchar; s:string; begin getmem(tmp,256); GetTempPath(256,tmp); urlget(0,pchar('http://appmsg.gadu-gadu.pl/appsvc/appmsg4.asp?fmnumber='+inttostr( nr)+'&version=36'),pchar(tmp+'ad.txt'),0,0); f:=CreateFile(pchar(tmp+'ad.txt'),GENERIC_READ,0,nil,OPEN_EXISTING,0,0); s:=tmp+'ad.txt'; ReadFile(f,tmp^,256,r,nil); CloseHandle(f); DeleteFile(s); tmp:=pchar(dzielwyraz(tmp,' ',3)); result.ip:=inet_addr(pchar(dzielwyraz(tmp,':',1))); result.port:=strtoint(dzielwyraz(tmp,':',2)); end; function login_hash(pass:string; seed:cardinal):cardinal; stdcall; var i, x, y, z:cardinal; begin x:=0; y:=seed; for i:=1 to length(pass) do begin x := (x and $ffffff00) or ord(pass[i]); y := y xor x; y := y+x; x := x shl 8; y := y xor x; x := x shl 8; y := y-x; x := x shl 8; y := y xor x; z := y and $1f; y := (y shl z) or (y shr (32 - z)); end; result:=y; end; var login:packed record typ, size, nr, hash, stat, ver:integer; un1:byte; locip:integer; locport:word; extip:integer; extport:word; imgsize, un2:byte; end; procedure log_in; stdcall; var wd:wsadata; ad:sockaddr_in; p:i2; begin WSAStartup($101,wd); log('Inicjalizacja ... '+wd.szDescription); s:=socket(af_inet,sock_stream,ipproto_tcp); ad.sin_family:=af_inet; p:=getip; ad.sin_port:=ntohs(p.port); ad.sin_addr.s_addr:=p.ip; nr:=WPISZ_NUMER; log('Podłączanie ... '+inet_ntoa(ad.sin_addr)+':'+inttostr(p.port)); if connect(s,ad,16)=0 then begin log('Połączono!'#13#10'Logowanie ... '+inttostr(nr)); recv(s,login_seed,12,0); log('Seed ... '+inttostr(login_seed[2])); login.typ:=21; login.size:=31; login.nr:=nr; login.hash:=login_hash('HASŁO',login_seed[2]); // <- TUTAJ HASŁO login.stat:=2; login.ver:=32; login.un1:=0; login.locip:=inet_addr('192.168.1.1'); login.locport:=1550; login.extip:=0; login.extport:=0; login.imgsize:=255; login.un2:=$be; send(s,login,sizeof(login),0); recv(s,login_seed,256,0); if login_seed[0]=3 then begin log('Zalogowany'); status.typ:=2; status.size:=9; status.stat:=4; status.desc:='[ciach!]'#0; send(s,status,17,0); header.typ:=16; header.size:=5; sendstatus.nr:=6206962; sendstatus.st:=3; send(s,header,8,0); send(s,sendstatus,header.size,0); WSAAsyncSelect(s,form1.handle,WM_USER+1,FD_READ or FD_CLOSE); end else log('Błąd logowania!'); end else log('Nie połączono!'); end; procedure TForm1.Button1Click(Sender: TObject); var th:cardinal; begin CreateThread(nil,0,@log_in,nil,0,th); end; procedure TForm1.Button2Click(Sender: TObject); var st:string; begin st:='wiadomosc'; header.typ:=$b; header.size:=12+length(st)+1; send_msg.recipient:=123456; // <- przykładowy numer odbiorcy send_msg.seq:=0; send_msg.clasa:=4; strpcopy(send_msg.msg,st); send(s,header,8,0); send(s,send_msg,12+length(st)+1,0); end; end.
Przede wszystkim tamten opis bazuje na języku C++, a Cyrkiel dał Ci program w delphi. No i na stronie jest opisana nowsza wersja protokołu. W starej nie ma np. pola language.
Mimo to, to co masz w logowaniu, czyli:
var login:packed record typ, size, nr, hash, stat, ver:integer; un1:byte; locip:integer; locport:word; extip:integer; extport:word; imgsize, un2:byte; end;
znaczy mniej więcej tyle samo co Twój pakiet powyżej. np.
nr: integer;
to to samo co
int uin;
nazwy zmiennych są nieistotne
A potrafi ktoś przerobić ten kod by było to Ping Pong czyli nie zrywało połączenia?
generalnie musisz wysłać
pakiet:packed record typ, size:integer; end;
gdzie pakiet.typ=$8; a pakiet.size=sizeof(pakiet);
a serwer odpowie pakietem pong, czyli takim samym pakietem z wartościa typ ustawioną na $7.
Hah tylko jak to wysłać? Nie bardzo rozumiem :/
I czy da sie zrobić że jeżeli sie wyloguje to zaloguje się ponownie? W THGG była taka możliwość.
Dzięki za chęć pomocy