program Project1;

uses
  Windows, idHTTP, Classes;

{$APPTYPE CONSOLE}

var

http : TIdHTTP;
in_list, true_list, false_list : TStrings;
iCh, sPos, sPos2, sPos3 : integer;
tmp, response_result : string;

begin

in_list := TStringList.Create;
true_list := TStringList.Create;
false_list := TStringList.Create;
in_list.LoadFromFile('input.txt');


http := TIdHTTP.Create();

for iCh := 0 to in_list.Count -1 do begin

  tmp := http.Get('http://hashkiller.com/api/api.php?md5='+in_list.Strings[iCh]);
  sPos := pos('true',tmp);
  sPos2 := pos('false',tmp);
  sPos3 := pos('<plain>',tmp);

  if sPos<>0 then begin
    response_result:=copy(tmp,sPos3+7,length(tmp)-145);
    writeln(in_list.Strings[iCh]+' : '+response_result);
    true_list.Add(in_list.Strings[iCh]+' : '+response_result);
  end;

  if sPos2<>0 then begin
    false_list.Add(in_list.Strings[iCh]+' : '+'NOT FOUND');
  end;

end;

false_list.SaveToFile('false.txt');
true_list.SaveToFile('true.txt');

http.Free;
in_list.Free;
true_list.Free;
false_list.Free;

end.