{
print "正在扫描 $netaddress.$count.$host n" ;
$ftp = Net::FTP->new("$netaddress.$count.$host", Debug => 0);
if ( $ftp ) #如果连接为空执行检验密码跳过，直接运行else中内容
{
$a=$ftp->login('oracle','oracle'); #校验密码用户名为oracle 密码为 oracle
$ftp->quit; #ftp命令 quit
if ( $a == 1 ) #如果校验通过执行
{
open(OUTFILE, ">>host.txt"); #打开文件host.txt
print OUTFILE ("$netaddress.$count.$host n"); #向里面写入一行当前检验通过的ip地址
print "发现目标 $netaddress.$count.$host n" ;
}
}
else
{
print "连接 $netaddress.$count.$host 失败！ n" ;
}
$host++;
}
$count++;
}
##############################################################################

telnetscaner.pl
###########################################################################

#!/usr/bin/perl
use Socket;
use Net::Telnet ();

# timeouts in seconds for creating a socket and connecting
my $MAX_SOCKET_TIME = 2;
my $MAX_CONNECT_TIME = 3;

my $HELP=qq{Usage: telnetdcheck [-h --help] [-p processes] [-d --debug] hostn};

my @hosts;

# how many simultaneous processes are we allowed to use?
my $MAX_PROCESSES=10;
my $DEBUG=0;

while($_=shift){
if(/^--(.*)/){
$_=$1;
if(/help/){
print $HELP;
exit(0);
}
if(/debug/){
$DEBUG=1;
}
}
elsif(/^-(.*)/){
$_=$1;
if(/^h/ or /^?/){
print $HELP;
exit(0);
}
if(/^p/){
$MAX_PROCESSES=shift;
}
if(/^d/){
$DEBUG=1;
}
}else{
push @hosts,$_;
}
}

if(!$hosts[0]){
print $HELP;
exit(-1);
}

my $host;
$=1;
for $host (@hosts){
$_=shift(@hosts);

# scan a class C
if(/^([^.]+).([^.]+).([^.]+)$/){
my $i;
print "Expanding class C $_n" if($DEBUG);
for($i=1;$i<255;$i++){
my $thost="$_.$i";
push @hosts,$thost;
}
}
else{
push @hosts,$_;
}
}

my @pids;
my $npids=0;

for $host (@hosts){
my $pid;
$pid=fork();
if($pid>0){
$npids++;
if($npids>=$MAX_PROCESSES){
for(1..($MAX_PROCESSES)){
$wait_ret=wait();
if($wait_ret>0){

上一页 [1] [2] [3] [4] [5] 下一页

上一篇:功能丰富的Perl:遗传算法仿真多细胞机体

下一篇:简单的PERL－ADO例子

用Perl写出自己的安全工具--初级相关文章：

·初级网管或黑客必需撑握的8个DOS命令

·IE浏览器再现严重安全漏洞微软紧急发补丁程序

·大量Windows Vista 边栏小工具下载

·如何以安全模式启动计算机

·如何建立自己的博客

用Perl写出自己的安全工具--初级相关软件：

·Kaspersky(卡巴斯基) Internet Security 安全套装 V6.0.2.621 中文版

·U盘超级工具大全

·灵豚课件制作工具——课件精灵v1.0 beta

·电脑装机、系统维护工具盘 2003版

·如何加固Windows XP 主机安全

·新版标准日本语初级单词读音MP3

·王牌超级工具箱V13.5

·Cooolsoft MP3 Sound Cutter （音频截取工具） V1.41 绿色版

·2007网络安全黄皮书V1.0.0

·美萍安全卫士v12.3

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.vipcn.net

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved.	鄂ICP备05000083号Powered by:viphot