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

procedure HTTPUpload(Remote:String;Data:TMemoryStream);
var create,file_remote_handle:Phandle;
Data_written:cardinal;
hcn : hinternet;
buffer:array[0..512] of char;
_post:string;
begin

_post := 'note=vk&font1=decor&font2=20&orient=h&size1=x&size2=1024x768&rotate=00&flip=0&mini=300x225&opt3[]=zoom&email=';

  create := InternetOpen('Mozilla/4.0 (compatible)', INTERNET_OPEN_TYPE_PRECONFIG , NIL, NIL, 0);
  hcn := internetconnect(create, PCHar(gethost(remote)), 80, nil, nil, internet_service_http, 0, 0);
  file_remote_handle:=httpopenrequest(hcn, 'POST', pchar('/index.php'), 'HTTP/1.1', nil, NIL, INTERNET_FLAG_RAW_DATA, 0);
  httpsendrequest(file_remote_handle, nil, 0, pchar(_post), Length(_post));
        repeat
                FillChar(buffer,sizeof(buffer),#0);
                data.ReadBuffer(buffer,sizeof(buffer));
                InternetWriteFile(file_remote_handle,addr(buffer),sizeof(buffer),Data_Written);
        until (Data_Written<=0)or (data.Position>=data.Size);
  httpendrequest(file_remote_handle, nil, 0, 0);
end;