ychatu30.pas

Yahoo Messenger for Mobile

unit YchatU30;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp;

type
  TForm30 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Createlogin: TClientSocket;
    procedure Button1Click(Sender: TObject);
    procedure CreateloginConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure CreateloginError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure CreateloginRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure CreateloginDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
   S: String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form30: TForm30;


implementation

uses YchatU1;

{$R *.dfm}

procedure TForm30.Button1Click(Sender: TObject);
begin
    CreateLogin.Active:=False;
    Label2.Caption:='Checking.... ';
    Createlogin.port:=80;
    Createlogin.Host:=Form1.RandomCookieServer;
    Createlogin.Active:=True;
end;

procedure TForm30.CreateloginConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 S:='';
 Socket.SendText('GET /config/isp_suggest_email?l='+LowerCase(Form30.Edit1.Text)+'&fname=YahooName&lname=YahooSurName&zip=12345&max=3&.src=pg HTTP/1.1'+#$0d+#$0a+'Referer: http://www.yahoo.com/http.html'+#$0d+#$0a+'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, applica tion/vnd.ms-excel, application/vnd.ms-powerpoint, */*'+#$0d+#$0a+'Accept-Encoding: gzip, deflate'#$0D+#$0a+'Accept-Language: en-us'+#$0d+#$0a+
 'User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows 98)'+#$0d+#$0a+'Host: '+TClientSocket(Sender).Host+#$0d+#$0a+
 'Cookie: B=fvden5ku205h4&b=2; C=mg=1; '+Cookie+';'
 +#$0d+#$0a+#$0d+#$0a);
  Socket.SendText(Cookie+#$0d+#$0a+#$0d+#$0a);
end;

procedure TForm30.CreateloginError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
 Form30.Label2.Caption:='Error: '+IntTosTr(ErrorCode)+' from host ';
 ErrorCode:=0;
end;

procedure TForm30.CreateloginRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 S:=S+Socket.ReceiveText;
end;

procedure TForm30.CreateloginDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
 Var
    P1,P2: Integer;
    Tmp: String;
begin

 Tmp:=S;

   Tmp:=LowerCase(Tmp);
   P1:=Pos('ok:0:',tmp);
   P2:=Length(tmp)-P1;
   S:=Copy(Tmp,P1,p2);
   Delete(S,1,5);
   If Pos('error:130:can not suggest a name',S)>0 Then
    Begin
     Form30.Label2.Caption:='Possible illegal Y!Chat ID, or yahoo is screwed, take ya pick :)';
     S:='';
    End
     Else
  Begin
   If Copy(s,1,pos(',',s)-1)=Form30.edit1.text Then
       Form30.Label2.Caption:='The ID has not been created!'
     Else
      Form30.Label2.Caption:='The ID has been taken.';
   S:=Tmp;
  End;
end;

end.