Pastable version of Smtp Scanner

<pre class='prettyprint' language='perl'>#!/usr/bin/perl
      #smtp scanner by Tak
      use strict;
      use warnings;
      use Net::Ping;
      use Net::Telnet;
      print &quot;ip list: &quot;;  #asks for ip's
      chomp(my $input=&lt;STDIN&gt;); #takes file
      #
      #if nothing was entered
      #
      if ($input=~/^$/) {
		print &quot;ip range, ex 0.0.0.0-1.1.1.1 :&quot;;
		chomp($input=&lt;STDIN&gt;); 
		#idea for most of this ip generator i stole from  Asia Pacific Network Information Center (APNIC2)
		#
		#generateing a log.
		
		$|=1; #pipes become super pipes
		print &quot;where to log ip range: &quot;;   
		chomp(my $log=&lt;STDIN&gt;);    #takes a file name to log
		open(LOG, '&gt;&gt;', &quot;$log&quot;) or die &quot;couldent open $log file\n&quot;;    #opens the log file
		my @ip0=split(/-/, $input);  #seperates ip ranges
		my @ip1=split(/\./, $ip0[0]);  #seperates numbers
		my @ip2=split(/\./, $ip0[$#ip0]);    
		#complicates loops that generate every ip address inbetween the ranges
			for (my $a=$ip1[0]; $a&lt;1+$ip2[0]; $a++) {

for (my $b=$ip1[1]; $b&lt;1+$ip2[1]; $b++) {

for (my $c=$ip1[2]; $c&lt;1+$ip2[2]; $c++) {

for (my $d=$ip1[3]; $d&lt;1+$ip2[3]; $d++) {

print &quot;$a.$b.$c.$d\n&quot;;
							print LOG &quot;$a.$b.$c.$d\n&quot;;
						}
					}
				}
			}
		close(LOG);
		exit 0;
	}
      
      open(IP, &quot;$input&quot;) or die &quot;couldent open ip file\n&quot;; #opens file</pre>
<pre class='prettyprint' language='perl'>#
      my @ip; #all ip addresses
      my @liveip; #all working ip addresses
      my @deadip; #all dead ip addresses
      #
      #
      foreach(my $line = &lt;IP&gt;) {
        $line =~ s/\n//g; #rid of the newline.
        push(@ip, &quot;$line&quot;);
      }
      close(IP); #closeing the file</pre>
<pre class='prettyprint' language='perl'></pre>
<pre class='prettyprint' language='perl'></pre>
<pre class='prettyprint' language='perl'>foreach my $ip (@ip) {
      #if it exists
        if (pingecho($ip, 10)) {
            push(@liveip, &quot;$ip&quot;);
            next;
        }
      #if its dead
        else {
            push(@deadip, &quot;$ip&quot;);
        }
      #if nothing is alive
        if ($#ip eq $#deadip) {
            die &quot;no live hosts\n&quot;;
        }
      }
      #wipeing the useless variables
      @deadip=();
      @ip=();</pre>
<pre class='prettyprint' language='perl'>#we got all the alive ip addresses, now to probe with Telnet for SMTP running!</pre>
<pre class='prettyprint' language='perl'>my @testsmtp; #ip's to be tested for smtp
      #makeing the live ip's into telnet objects.
      foreach my $ip (@liveip) {
		#if no port is there, it gives WTF message. and moves on
          my $thing = new Net::Telnet (Host =&gt; $ip, Port =&gt; '25', Errmode =&gt; 'return') or print &quot;WTF?!\n&quot; and next;

#now that we have the objects we can test them.
		if ($thing-&gt;open()) {
            print $thing-&gt;host . &quot; has smtp alive\n&quot;;
		}
	  }</pre>
<a href="http://www.refactormycode.com/codes/669-smtp-scanner" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Smtp Scanner