ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function DecChas(chas: string): string;
var
 Decchas : string;
 str : string;
 I : Integer;
 Len : integer;
begin

 str := Copy(chas, 6, 12);
 Len := Length(str);

 For I := 0 To Length(str) -1 do
 begin
  Decchas := Decchas + str[len];
  Inc(len, -1);
 end;

 str := Copy(chas, 21, Length(chas) -5);
 str := str + Copy(chas, 5, 1);

 Len := Length(str);

 For I := 0 To Length(str) -1 do
 begin
   Decchas := Decchas + str[len];
   Inc(len, -1);
 end;

 Result := Decchas;
end;


....


function SendMessage(const ID, MsgText, MsgTitle: string): boolean;
var
 ResponseText, Hash : string;
 Post : TStringList;
begin

 Hash := HTTP.Get('http://vkontakte.ru/mail.php?act=a_write_box&to=' + id);
 Hash := Copy(Hash, Pos('decodehash', Hash) +12, Length(Hash));
 Delete(Hash, Pos(#39, Hash), Length(Hash));
 Post := TStringList.Create;
 Post.Add('act=sent');
 Post.Add('ajax=1');
 Post.Add('chas=' + DecChas(hash));
 Post.Add('to_id=' + id);
 Post.Add('title=' + AnsiToUTF8(MsgTitle));
 Post.Add('message=' + AnsiToUTF8(MsgText));
 Post.Add('from_box=1');

 HTTP.Request.Referer := 'http://vkontakte.ru/mail.php?act=a_write_box&to=' + id;
 ResponseText := HTTP.Post('http://vkontakte.ru/mail.php', Post);

 If Pos('отправлено', ResponseText) <> 0 Then Result := True else Result := False;

 Post.Free;
end;

procedure TForm5.btn2Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('action=authaddans');
params.Add('ch=046d65b4c60aa1284e7e83ef3fc93');
params.Add('qid=36881813');
params.Add('f80325b38=1');
params.Add('Body=Это Я =)');
params.Add('source=');
responseres.Text:=http1.Post('http://otvet.mail.ru/question/36881696/',params);

end;

procedure TIdCookieManager.DoAdd(ACookie: TIdCookieRFC2109; ACookieText, AHost: String);
Var
  LDomain: String;
begin
  ACookie.CookieText := ACookieText;

  if Length(ACookie.Domain) = 0 then LDomain := AHost
  else LDomain := ACookie.Domain;

  ACookie.Domain := LDomain;

// если есть точка в начале домена, убираем ее
  If ACookie.Domain[1] = '.' Then
  ACookie.Domain := Copy(ACookie.Domain, 2, Length(ACookie.Domain));

  if ACookie.IsValidCookie(AHost) then
  begin
    if DoOnNewCookie(ACookie) then
    begin
      FCookieCollection.AddCookie(ACookie);
    end
    else begin
      ACookie.Collection := nil;
      ACookie.Free;
    end;
  end
  else begin
    ACookie.Free;
  end;
end;