On 06/23/2004 08:04:03 PM, Thomas Biju wrote: > R3JhZW1lLA0KTm8sIEknbSBub3QgdGFsa2luZyBhYm91dCBpbmNyZWFzaW5nIHRoZSBzaXplIG9m If someone needs it, here is a useful tool to decode messages like this: #!/usr/bin/perl -w use strict; use Getopt::Long; use MIME::Base64; my ( $in, $out ); # Parse command line options my $stat = GetOptions( "i|input=s" => \$in, "o|output=s" => \$out, "h|help|?" => \&usage ); if ( defined $in ) { close(STDIN); open( STDIN, "<", $in ) || die "Cannot open $in for reading:$!\n"; } if ( defined $out ) { close(STDOUT); open( STDOUT, ">", $out ) || die "Cannot open $out for writing:$!\n"; } # Move to the first empty line and start decoding after it. while (<STDIN>) { last if /^\s*$/; } # Decode until the end of the file or the first empty line. while (<STDIN>) { last if /^\s*$/; printf( "%s", decode_base64($_) ); } sub usage { print q( mimedecode - command line utility for decoding MIME encoded files. USAGE:mime -i <input file> -o <output file> ); exit(0); } -- Mladen Gogala Oracle DBA ---------------------------------------------------------------- Please see the official ORACLE-L FAQ: http://www.orafaq.com ---------------------------------------------------------------- To unsubscribe send email to: oracle-l-request@xxxxxxxxxxxxx put 'unsubscribe' in the subject line. -- Archives are at //www.freelists.org/archives/oracle-l/ FAQ is at //www.freelists.org/help/fom-serve/cache/1.html -----------------------------------------------------------------