#!/usr/bin/perl # 与えられたテキストを表示する、whitespace のコードを出力する。 # Usages: # $ echo "FLAG{whitespace}" | text2ws.pl > whitespace.ws $ans = "" ; while( <> ) { $line = $_ ; for( $i = 0 ; $i < length( $line ) ; $i++ ) { $c = substr($line,$i,1) ; $b = sprintf( "%b" , ord( $c ) ) ; $b =~ s/0/ /g ; $b =~ s/1/\t/g ; $ans .= " $b\n\t\n" ; } } $ans .= " \n\n\n\n\n" ; $ans =~ s/^ // ; print $ans ; ### Local Variables: ### ### mode: perl ### ### End: ###