in reply to Re: Obfuscation or printing words like \160\162\151\156\164
in thread Obfuscation or printing words like \160\162\151\156\164
#!/usr/bin/perl -w use strict; my $chars = {}; for (my $i=33; $i<=127; $i++) { my $oct = sprintf("\\%o", $i); $chars->{chr($i)} = $oct; } foreach my $word (@ARGV) { my(@str) = split(//,$word); foreach my $letter (@str) { print $chars->{$letter}; } print " "; } # ./obus.pl just another Perl hacker, # returns # \152\165\163\164 \141\156\157\164\150\145\162 \120\145\162\154 \150\ +141\143\153\145\162\54
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Obfuscation or printing words like \160\162\151\156\164
by ikegami (Patriarch) on Apr 06, 2005 at 05:16 UTC | |
|
Re^3: Obfuscation or printing words like \160\162\151\156\164
by hubb0r (Pilgrim) on Apr 06, 2005 at 06:39 UTC | |
|
Re^3: Obfuscation or printing words like \160\162\151\156\164
by jhourcle (Prior) on Apr 06, 2005 at 11:32 UTC |