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;
复制代码

hacker85

回复 3# broly


    首先感谢你的回复，毕竟用linux的人还是不多的。

我存放诸多电影地址的文件名为“dy”，那么针对程序来说， 我是要把filename改成dy后就可以直接sh ./脚本，之后就会在newfile里
得到每部电影的真实下载地址了是吧？

只不过我用得shell不是bash，而是用sh，所以我第一行写得是#!/bin/sh

可是如我上面形容的那样，我运行脚本之后在newfile里什么也没有得到，为此我还是上传我的dy文件吧，烦请再查看一下。

附件：[attach]5520[/attach]

broly

#!/bin/bash

touch newfile

for i in `sed -n '/thunder/{n;p}' filename`
do
	echo $i | base64 -d>>newfile
done

sed -i 's/AA//g;s/ZZ/\n/g' newfile
复制代码

hacker85

没有人回答吗？当顶