автоматическая проверка на virustotal

[lightydav]

спасибо ещё раз, но решил проблему по-своему

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
  webbrowser1.Navigate('www.virustotal.com' + dest);
end;

можете критиковать мой говнокод

[lightydav]

я только что наткнулся на серьёзную проблему. каждый файл, который я отсылаю этим кодом

var
  ASource: TIdMultiPartFormDataStream;

begin

  ASource := TIdMultiPartFormDataStream.Create;
  ASource.AddFile('archivo', 'C:\2.exe', 'multipart/form-data');
  idhttp1.Post('http://www.virustotal.com/vt/ru/recepcion', ASource);
  ASource.Free;
end;

увеличивается на два байта - 0D 0A. в результате проверка может быть неадекватной. я думаю, что это не мой косяк, но что с этим можно сделать?