Форум АНТИЧАТ - пишу на делфи(бесплатно)

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - пишу на делфи(бесплатно) (https://forum.antichat.xyz/showthread.php?t=132037)

пишу на делфи(бесплатно)

Пишу бесплатно не сложные програмки на делфи......Для общего развития в сфере программирования на делфи....аська на аве

"Несложные"
Например?

напиши спамер для вк/одн я даже бонусом награжу )
если интересно то пиши icq 73373309

задание #1.

имеем:
-----------------------------------------------------
*формат url:

Код:

http://hashkiller.com/api/api.php?md5=098f6bcd4621d373cade4e832627b4f6

098f6bcd4621d373cade4e832627b4f6 тут - MD5 хэш (строка из 32 символов).
+
*файл, содержащий много строк с хешами. т.е. в каждой строке по 32 символа.
(название файла фиксированное, скажем, input.txt)

требуется:
------------------------------------------------------
минимум:
слать поочередно все хеши (32 символьные строки) через указанный выше запрос, и записывать ответы сервера в отдельный файл.

желательно:
1. в зависимости от ответа - а их может быть 2 вида. Сравни к примеру запросы

Код:

http://hashkiller.com/api/api.php?md5=098f6bcd4621d373cade4e832627b4f6

и

http://hashkiller.com/api/api.php?md5=00000000000000000000000000000000

ну так вот... ответы с "true" желательно записывать в один файл, а с false - в другой.

ну и само слово true и false в сами файлы писать ессно не надо.

2.
хорошо бы вывести в окно программы счетчики успешных и сфейленных запросов. Так.. просто чтобы было.
Ну и, когда программа закончит проверку - она должна об эотм тоже как-то сообщать. (например где-то в еню программки может появляться надпись "готово")

================================
p.s.
если для тебя это слишком легко - скажу задание посложнее. Смотря насколько сложное тебе нужно :)

С мс-офисным пакетом работал?

ErrorNeo

сделаю возможно сегодня ночью...

Цитата:

С мс-офисным пакетом работал?

а что именно надо?

ErrorNeo
такое надо на перле. 5 минут делов)

ErrorNeo

Моя реализация с помощью инди10

[+] Выполняет все, что надо, после отработки просто закрывается консольное окно
[-] Фиксированные имена файлов
[-] Кривой код, размер файла, использование инди
[-] Нету счетчика (да и нах он, если запросы выполняются моментально?)
[-] Out файлы каждый раз перезаписываются заново

Код:

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.

З.Ы. Заодно нашел все нужные мне хеши, которые даже хешкряк.инфо не осилил =\ Быстро пади у них работают негры :D

Цитата:

Сообщение от zeppe1in

ErrorNeo
такое надо на перле. 5 минут делов)

Зачем перл на дельфи тож работы на 5 мин, если знаешь своё дело!

сорри работы было в аське много...только щас смог зайти сюда....