SHARE
TWEET

Untitled

a guest Apr 20th, 2018 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. #############################################################################
  3. use IO::Socket::INET;
  4. use Term::ANSIColor;
  5. #############################################################################
  6.  
  7. my $addr=$ARGV[1];
  8. my $user=$ARGV[2];
  9. my $pass=$ARGV[0];
  10.  
  11. $sock = IO::Socket::INET->new(PeerAddr => $addr,
  12.                               PeerPort => 22,
  13.                               Proto    => 'tcp');
  14. $resp = <$sock>;
  15.  
  16. my $addr = $addr || '';
  17. for ($addr) {
  18.         s/^\s+//;
  19.         s/\s+$//;
  20. }
  21. my $host;
  22. my $host = gethostbyaddr(inet_aton($addr), AF_INET);
  23. if ($host) {
  24. print color 'bold green';
  25. print "[2012] $user:$pass $addr <=> $host - using $resp\n";
  26. print color 'reset';
  27.                    open(OUT, ">>vuln.log");
  28.                    print OUT "[2012] $user:$pass $addr <=> $host - using $resp\n";
  29.                    close OUT;
  30. }
  31. else {
  32. print color 'bold red';
  33. print "[2012] $user:$pass $addr <=> NO PTR Reverse - using $resp\n";
  34. print color 'reset';
  35.                    open(OUT, ">>vuln.log");
  36.                    print OUT "[2012] $user:$pass $addr <=> NO PTR Reverse - using $resp\n";
  37.                    close OUT;
  38. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top