知识屋:更实用的电脑技术知识网站
所在位置:首页 > 操作系统 > linux

扫描VNC的脚本

发布时间:2014-09-05 14:40:33作者:知识屋

扫描VNC的脚本
 
01
#!/usr/bin/perl
02
 
03
use IO::Socket;
04
 
05
if($ARGV[0])
06
{
07
  open(IN,"< $ARGV[0]") || die "[-] Can't open $ARGV[0]!/n"; @ips = <IN>; close(IN);
08
 
09
  foreach $ip (@ips)
10
  {
11
    chomp($ip);
12
    if(!fork())
13
    {
14
      local $SIG{ALRM} = sub { die("-/n"); };
15
      alarm(4);
16
      $socket=IO::Socket::INET->new(  PeerAddr => $ip,PeerPort => 5900, Proto => "tcp", Timeout=>2);
17
      if($socket)
18
      {
19
        $socket->read($protocol, 12 );
20
        $socket->print($protocol);
21
 
22
        $socket->read($NoOfSecTypes, 1 );
23
        $nost=unpack("H2", $NoOfSecTypes);
24
 
25
        if($nost !='00')
26
        {
27
          $socket->read($chal, $nost );
28
          $resp=pack("H2", '01');
29
          $socket->print($resp);
30
          $socket->read( $result, 4 );
31
          $r=unpack("H8", $result);
32
          if($r eq "00000000")
33
          {
34
            print("->$ip <<VULN>>/n");
35
            open (VL, ">> vuln.txt") || die "[-] Can't open vuln.txt!/n";
36
            print VL "$ip/n";
37
            close (VL);
38
          }
39
        }
40
      }
41
      alarm 0;
42
      exit(0);
43
    }
44
    wait;
45
  }
46
}
 
(免责声明:文章内容如涉及作品内容、版权和其它问题,请及时与我们联系,我们将在第一时间删除内容,文章内容仅供参考)
收藏
  • 人气文章
  • 最新文章
  • 下载排行榜
  • 热门排行榜