|
|
|
|
Menu |
|
|
Home |
| |
|
Discussions |
| |
|
Tools |
| |
|
Affiliates |
| |
|
Content |
| |
|
Info |
| | |
|
|
|
|
|
User Info |
|
Membership:
Latest: MichaelSnaRe
New Today: 0
New Yesterday: 0
Overall: 9144
People Online:
Visitors: 65
Members: 0
Total: 65
|
|
|
|
|
|
Full disclosure |
|
|
|
|
|
|
|
|
|
IT Security and Insecurity Portal |
|
|
lately scrapt |
|
Posted: Wed Mar 02, 2005 1:22 pm |
|
|
y3dips |
Valuable expert |
|
|
Joined: Feb 25, 2005 |
Posts: 281 |
Location: Indonesia |
|
|
|
|
|
|
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 |
|
_________________ IO::y3dips->new(http://clog.ammar.web.id); |
|
|
|
|
|
|
|
Posted: Mon Apr 18, 2005 5:11 pm |
|
|
poerschke |
Regular user |
|
|
Joined: Apr 18, 2005 |
Posts: 5 |
Location: Brazil |
|
|
|
|
|
|
[--------------------//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------------]
|
|
|
|
|
Posted: Tue Apr 19, 2005 2:00 am |
|
|
y3dips |
Valuable expert |
|
|
Joined: Feb 25, 2005 |
Posts: 281 |
Location: Indonesia |
|
|
|
|
|
|
thx for the time out ..
btw are you interested with my project |
|
_________________ IO::y3dips->new(http://clog.ammar.web.id); |
|
|
|
www.waraxe.us Forum Index -> Perl
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
All times are GMT
Page 1 of 1
|
|
|
Powered by phpBB © 2001-2008 phpBB Group
|
|
|
|
|
|
|