Shellcode Generator

print "shellcode : ";
chomp($data=);
@values=split(undef,$data);
foreach $val (@values) {
print '\x';
print unpack(H8,"$val");
}

--------------------------------------------------------

print "shellcode : ";
chomp($data=);
@data=split(//,$data);
foreach (@data) {
$_=~s/(.)/sprintf("%x",ord($1))/eg;
print "\\x$_";
}