Waraxe IT Security Portal

y3dips · Valuable expert

just to grab a banner from service

nothin special ,

[---------------------------------//code------------------------
#!/usr/bin/perl -w
print "*Simple Remote SSH Grab Banner by y3dips*\n";
if(@ARGV==0)
#Help Options
{
print "Gunakan: perl $0 www.target.com:ssh \n";
}
else
#Processing
{
use IO::Socket;
my$server = shift;
my$love = IO::Socket::INET->new($server);
my$garis = <$love>;
print "Result = $garis";
}
--------------------------------------------\\EOF------------]

just leaarning about networking comgination with " < > "
hehhehe,

i use it for grabbing ssh banner

once again, nothin special

poerschke · Regular user

[--------------------//recoded by poerschke----------------
#!/usr/bin/perl -w
print "*Simple Remote SSH Grab Banner by y3dips RECODED*\n";
if(!$ARGV[1])
#Help Options
{
print "Gunakan: perl $0 www.target.com port \n";
exit;
}

use IO::Socket;
my $server = $ARGV[0];
my $port = $ARGV[1];
my $love = IO::Socket::INET->new(PeerAddr => $server, PeerPort => $port, Proto => "tcp", Timeout => "5" ) or die "No Connection\n";
my$garis = <$love>;
print "Result = $garis";

--------------------------------------------\\EOF------------]

Twisted Evil

y3dips · Valuable expert

thx for the time out Smile

..

btw are you interested with my project Laughing