MiniDisc Posted October 17, 2006 Report Share Posted October 17, 2006 #!/usr/bin/perluse IO::Socket;################################################### Radmin with empty password scanner## usage: ./scan.pl 213.59.*.*# thanx to Forb# Coded by Satir (satir@cyberlords.net) from CyberLords [cyberlords.net]#####################################################################################$|++;use IO::Socket; ## ????? ??????$pids=10; ## Count of threads$port = 4899; ## Default port$tout = 5; ## Default timeout$log = 'scan.log'; ## Default logfile$once=0;$fatal=0;if (@ARGV[0]=~/((.*).(.*).(.*).(.*))/) { $netmask = $1; $n1 = $2; $n2 = $3; $n3 = $4; $n4 = $5;}quit("Incorrect port") if ($port=~/D/);quit("No hostmask given") unless $netmask;check();while(1) { @ips=@ipz[$once..$once+$pids]; for ($i=0;$i<=$pids;$i++) { unless($ips[$i]) { killpidz(); exit print "Scan is completen"; }if ($pid=fork()) { push(@forked,$pid);} else { $res=check_radmin($ips[$i],$port); logg($ips[$i],$res) if ($res ne 0); exit; } } $once+=$pids; killpidz();}sub check { for ($i=0;$i<=254;$i++) { $ipi = $i; if ($n2 ne '*') { $i = 254,$ipi = $n2 } for ($j=0;$j<=254;$j++) { $ipj = $j; if ($n3 ne '*') { $j = 254,$ipj = $n3 } for ($k=1;$k<=254;$k++) { $ipk = $k; if ($n4 ne '*') { $k = 254,$ipi = $n2 } my($ipaddr) = "$n1.$ipi.$ipj.$ipk"; chomp($ipaddr); push(@ipz,$ipaddr); } } }}sub quit { my($reason)=@_; print "$reasonn" if $reason; exit;}sub logg { my($ip,$ans)=@_; open(LOGG,">>$log"); $str="NULL PASS!!!" if $ans eq 1; $str="need pass." if $ans eq 2; print LOGG "$ip:$port : $strn"; close(LOGG);}sub killpidz { foreach (@forked) { chomp; waitpid($_,0); kill("TERM" => $_) } undef @forked;}sub check_radmin{($host,$port)=@_; $sock=IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Photo => "tcp"); if($sock) { $sock->send("x01x00x00x00x01x00x00x00x08x08"); $sock->recv($data,1024); close($sock); @marks=split(//,$data); foreach(@marks){ $string.=unpack('H8', $_); } if($string=~/a080/g){ return 1; } else{ return 2; } }else { return 0;}} Quote Link to comment Share on other sites More sharing options...
Puya Posted October 17, 2006 Report Share Posted October 17, 2006 l`am rulat si zice Scan is complete ce inseamna asta ca nu prea a facut nimic Quote Link to comment Share on other sites More sharing options...
sony_buzi Posted October 17, 2006 Report Share Posted October 17, 2006 si daca Radminu are parola ? Quote Link to comment Share on other sites More sharing options...
Sad_Dreamer Posted October 17, 2006 Report Share Posted October 17, 2006 sony_buzi wrote: si daca Radminu are parola ? nu-l folosesti Quote Link to comment Share on other sites More sharing options...
sony_buzi Posted October 17, 2006 Report Share Posted October 17, 2006 Pai da dar ei au uitat de asta Quote Link to comment Share on other sites More sharing options...
Jobasan2 Posted November 3, 2006 Report Share Posted November 3, 2006 Shakira porn movie!http://shakiranudeworld.info/movies/ Quote Link to comment Share on other sites More sharing options...
Danny Posted November 3, 2006 Report Share Posted November 3, 2006 Jobasan2 wrote: Shakira porn movie!http://shakiranudeworld.info/movies/Ce lake ! =) E o arhiva .exe (cel mai probabil bots) Quote Link to comment Share on other sites More sharing options...
MaHaReT Posted November 3, 2006 Report Share Posted November 3, 2006 da s-io ales bine locu unde sa posteze Quote Link to comment Share on other sites More sharing options...
Christian Posted November 3, 2006 Report Share Posted November 3, 2006 Jobasan2 wrote: Shakira porn movie!http://shakiranudeworld.info/movies/asta vinde gradinarului castravetzi :@Scarto wrote: Jobasan2 wrote: Shakira porn movie!http://shakiranudeworld.info/movies/Ce lake ! =) E o arhiva .exe (cel mai probabil bots)mai exact un trojan downloader Quote Link to comment Share on other sites More sharing options...
Gonzalez Posted November 5, 2006 Report Share Posted November 5, 2006 Jobasan2 wrote: Shakira porn movie!http://shakiranudeworld.info/movies/asta nu-i de-al nostru! Quote Link to comment Share on other sites More sharing options...