SHARE
TWEET

Exstension spoofer

a guest Oct 27th, 2011 52 Never
  1. #!/usr/bin/perl
  2. $char = chr(8238);
  3. $src = $ARGV[0];
  4. $fname = $ARGV[1];
  5. $ext = reverse $ARGV[2];
  6. rename("${src}", "./${fname}${char}${ext}.exe");
  7.  
RAW Paste Data
Top