Using perl Syntax Highlighting
- #!/usr/bin/perl
- '0O00O0O00OOO0O0O0OOO00OO0OOO0O0000O000000O00000O0"
- OO 0O
- OO ..:::::::::::.. 00
- OO ..:::aad0OOOO0Obaa:::.. OO
- 0O .::::d:?000OO0O0000?::Ob::::. O0
- 0O .:::d0O0O:?OO00O000??aO00000b:::. 0O
- 0O .:::d00000OOa00O0O0OaaOO00O00OO0b:::. OO
- 00 ::::dP::::::::00O000000O0::::::::Yb:::: O0
- 00 ::::dP:::::::::Y00OO0O00OP:::::::::Yb:::: 0O
- OO ::::d0:::::::::::Y0O00OO0P:::::::::::0b:::: 00
- O0 .::::OO::::::::::::YO0O00P::::::::::::0O::::. O0
- 0O :::::Y0baaaaaaaaaaO0P:T:Y0Oaaaaaaaaaad0P::::: 00
- 0O :::::::Y0000O0O00O0P::|::Y000OO0OO000P::::::: 0O
- 0O ::::::::::::::::OO0:::|:::000:::::::::::::::: 0O
- OO `:::::::::::::::0O000OO0000O0::::::::::::::´ OO
- 0O :::::::::::::::00O0OO0OOO000:::::::::::::: O0
- 00 :::::::::::::d000O0000OO0OOb::::::::::::: O0
- 0O ::::::::::::00::OO:::0O::OO:::::::::::: O0
- OO `::::::::::OO::0O:::00::OO::::::::::´ OO
- 0O `::::::::00::0O:::00::00::::::::´ 00
- O0 `::::::00::0O:::O0::OO::::::´ OO
- 00 ``:::::::::::::::::::´´ O0
- OO ``:::::::::´´ 00
- 0O 00
- OO .::Captain:Crozz:Cyborg::. 0O
- OO <--SWU--> O0
- OO O0
- "0O00OO00OOO0000O0O0000000000000000000000000000000'
- ~~m{([\w\W]+)}s; # #
- $__.=$_ for grep # Crozz Cyborg #
- /[0O]/,$1=~# Perl # #
- m![\w\W]!g;$_ # SWU #
- =$__;y/O/1/;print # #
- map chr oct"0b$_"# Perl Perl Perl Perl Perl Perl #
- ,/[\w\W]{8}/g; # #
- ###################################################
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Hay cosas que quizá no tengan sentido realmente pero era para tratar de ofuscarlo, aunque a mi parecer así como está lo entiende alguien que conozca Perl a nivel básico-medio o.o