![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |
my $decoded = decode_base64($str);
my ($username, $password, $server, $debug) = @ARGV;
1
2
3
4
5
6
7
8
use strict;
use warnings;
use MIME::Words qw(:all);
my $data = "=?iso-8859-1?B?RFZELVZlcmxlaWggLSBwZXJmZWt0IGb8ciBsYW5nZSBXaW50ZXJhYmVuZGU6IDMgRFZEcyBm/HIgOSw5OSBFVVI=?=";
print decode_mimewords($data);
![]() |
|< 1 2 3 >| | ![]() |
24 Einträge, 3 Seiten |