<![CDATA[
#!/usr/local/bin/perl
#############################################################
# 解析できたjohn.potとpasswd.txtを
# このスクリプトと同じフォルダにぶち込んで走らせれば
# おっけ〜ざんす
# By 怒羅絵悶
#############################################################
$body = '<body bgcolor=black text=white>';
print "Content-type: text/html\n\n";
print "<html><head><title>decode</title></head>\n";
print "$body\n";
print "<pre>\n";
&dec;
print "end\n";
print "</pre></body></html>\n";
exit;
sub dec{
@match = ();@id = ();@data = ();@sorteddata = ();@john = ();@pass = ();
open(QQ,"./john.pot") || &error; #john.potのファイル名
@john= <QQ>;
close(QQ);
open(ZZ,"./passwd.txt") || &error; #passwd.txtのファイル名
@pass= <ZZ>;
close(ZZ);
open(XX,">./mk.txt"); #出力するファイル名
#print DB "ID/PASS\n\n";
foreach $john (@john) {
chomp ($john);
($john1,$pa)=split(/\:/,$john);
if(@match = grep(/$john1/,@pass)){
foreach $match (@match) { #同じパスがあった場合の為
chomp ($match);
@id=split(/\:/,$match);
push @data,"@id[0]/$pa\n";
}
}
}
@sorteddata = sort(@data); #親切設計（＾＾）
print XX @sorteddata;
close(XX);
}
sub error{
print 'error';
exit;
}
]]>
written by 2代目怒羅絵悶