
#!/usr/bin/perl -w
use strict;
use MIME::Base64;
foreach ( <DATA> )
{
print decode_base64 ( $_ );
}
exit 0;
__DATA__
xOO6w6Osu7bTrcC0tb1jaGluYXVuaXguY29tIFtwZXJsXbDmIQo=
1eLKx2Jhc2U2NLHgwuu1xMD919OjrNPJTUlNRTo6QmFzZTY0xKO/6cC0veLC66GjCg==
cGVybGRvYyBNSU1FOjpCYXNlNjQgZm9yIGRldGFpbHMsIGVuam95IGl0IDopCg==
#用来处理MIME/BASE64编码。




by: 发表于:2017-09-12 14:55:05 顶(0) | 踩(0) 回复
??
回复评论