savezelda/lsw/titleid.pl

3 lines
85 B
Perl
Raw Normal View History

2011-02-02 03:14:14 +01:00
#!/usr/bin/perl
print "00010000", map { sprintf "%02x", ord uc } split //, $ARGV[0];