2007年04月_acool555

04月

原创用perl实现两数的置换

文件名test内容如下: one:two three:four five:six 要求把它们的结果变为: two:one four:three six:five 源码如下: #!/usr/bin/perl open (FILE,"test2"); while() { ($one,$two)=split(/:/); ($a,$b)=($tw

2007-04-21 02:22:00 1072

原创 perl版ping源码

#!/usr/bin/perl use Net::Ping; if(pingecho("www.163.com",150) ) { print "163 is on the network."; } else { print "163 is unreachable"; }

2007-04-21 02:21:00 1253

原创 perl 实现日志抓错功能

#!/usr/bin/perl $logfile="/var/log/messages"; open(LOG,$logfile) or die "Unable to open logfile:$!/n"; while(){ print if //berror/b/i; } close(LOG);

2007-04-21 02:19:00 1047

原创 perl从/etc/passwd找出udi>500的用户

用perl从/etc/passwd找出udi>500的用户 cat pw.pl #!/usr/bin/perl $passwd="/etc/passwd"; open(PW,$passwd) || die "cant open $paswd:$!/n"; while () { ($name,$passwd,$uid,$gid,$gcos,$dir,$shell)=split(/:/); pri

2007-04-21 02:12:00 936

谷歌生成器源码

谷歌动态密码生成器

2018-10-31

逆向用的API全集.txt

常见的简单介绍软件逆向常见API要用到的

2009-09-17

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

原创 用perl实现两数的置换