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

var
  afile, signature, boundary,
  cookie, url, Headers, ret,
  multi, _post : string;
begin
 AFile := 'd:\~tmpPic.png';
// Создаем сигнатуру файла по формуле file -> content -> Base64 -> Copy 1024 bytes -> MD5
 Signature := StrTobase64(file_get_contents(AFile), 0);  // Получаем контент и кодируем в base64
 Signature := Copy(Signature, 0, 1024); // Копируем первые 1024 байта
 Signature := GetMD5(Signature); // Хэшируем в MD5

  url := 'http://vkontakte.ru/graffiti.php?to_id=46405451&group_id=0';
  cookie := 'remixsid=куки; remixchk=5';
  boundary := '----OLEG-ANDREEV-PAVEL-DUROV-GRAFFITI-POST';

  Headers :=
      'POST /graffiti.php?to_id=46405451&group_id=0 HTTP/1.0' + #13#10 +
      'User-Agent: Mozilla/4.8 [en](Windows NT 5.0; U)'       + #13#10 +
      'Accept: Accept: text/html;q=0.9,*/*;q=0.8'             + #13#10 +
      'Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7'      + #13#10 +
      'Accept-Language: ru,en-us;q=0.7,en;q=0.3'              + #13#10 +
      'Connection: close'                                     + #13#10 +
      'Referer: http://vkontakte.ru/graffiti.swf?12'          + #13#10 +
      'Host: ' + GetHost(url)                                 + #13#10 +
      'Cookie: ' + cookie                                     + #13#10 +
      'Content-Length: con-len'                               + #13#10 +
      'Content-Type: multipart/form-data; boundary=' + boundary +  #13#10#13#10;

      multi :=
      boundary + #13#10 +
      'Content-Disposition: form-data; name="Signature"' + #13#10#13#10 +
      signature + #13#10 + boundary + #13#10 +
      'Content-Disposition: form-data; name="Filedata"; filename="graffiti.png"' + #13#10 +
      'Content-Type: image/png' + #13#10#13#10 +
      file_get_contents(AFile) + #13#10#13#10 + boundary;

      Headers := StringReplace(Headers, 'con-len', IntToStr(Length(multi)), []);

      _post := headers + multi;

      send_packs(GetIPAddress(GetHost(url)), 80, _post, ret);

      memo2.Text := _post;
      memo1.Text := ret;
end;