#!/usr/bin/perl -w
# Jabra < jabra@spl0it.org >
# Tue Dec 16 22:04:43 EST 2008
use strict;
my $file = $ARGV[0];
print "\n\nvar shellcode = unescape(\"";
while(<STDIN>){
    chomp;
    next if (/^\/\//);
    print;
}
print "\");\n\n";