#!/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) 回复
??
回复评论