Demon

#!/usr/env/perl
use MIME::Base64;

$in = 'dy';
$out = 'jg';

open DY, '<', $in or die $!;
open JG, '>', $out or die $!;

while (<DY>) {
    if (/^thunder:\/\//i) {
        $url = substr(decode_base64(), 2, -2);
        print JG "$url\n"
    }
}

close DY;
close JG;
复制代码

Demon

回复  Demon


    哇噢   这个代码我还是头一次看到过
这个是perl语言程序吧？
代码中的dy、jg有大小 ...
hacker85 发表于 2012-7-22 20:57

代码有部分被吃掉了，你下载附件吧。