|
FAQ | Calendário | Search | Postagens do dia | Search | Marcar os fóruns como lidos | Buscapé | Search |
|
Thread Tools |
inativo
|
[c0de] JAPH - Just another perl hacker
08-08-05, 18:39
#1
Atencão: Tópico nerd.
A arte de escrever código em perl EXECUTÁVEL e TOTALMENTE ilegível: http://www.perl.com/CPAN/misc/japh exemplos: Code:
#!/usr/bin/perl -w # camel code use strict; $_='ev al("seek\040D ATA,0, 0;");foreach(1..3) {<DATA>;}my @camel1hump;my$camel; my$Camel ;while( <DATA>){$_=sprintf("%-6 9s",$_);my@dromedary 1=split(//);if(defined($ _=<DATA>)){@camel1hum p=split(//);}while(@dromeda ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;} $CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){ $camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift( @camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if( defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@ camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\ 064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse; print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y /LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/; $_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval ("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s ;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124 \1 50\145\040\165\163\145\040\157\1 46\040\1 41\0 40\143\141 \155\145\1 54\040\1 51\155\ 141 \147\145\0 40\151\156 \040\141 \163\16 3\ 157\143\ 151\141\16 4\151\1 57\156 \040\167 \151\164\1 50\040\ 120\1 45\162\ 154\040\15 1\163\ 040\14 1\040\1 64\162\1 41\144 \145\ 155\14 1\162\ 153\04 0\157 \146\ 040\11 7\047\ 122\1 45\15 1\154\1 54\171 \040 \046\ 012\101\16 3\16 3\15 7\143\15 1\14 1\16 4\145\163 \054 \040 \111\156\14 3\056 \040\ 125\163\145\14 4\040\ 167\1 51\164\1 50\0 40\160\ 145\162 \155\151 \163\163 \151\1 57\156\056 %% #MeowChow from http://www.perlmonks.com/ $ _= qq .CG T--A A---T A----T C----G T----A A---T G--C CG CG C--G G---C G----C C----G A----T C---G G--C AT CG A--T A---T G----C A----T G----C C---G A--T GC CG G--C A---T G----C G----C G----C A---T T--A AT CG T--A C---G A----T A----T G----C A---T A--T CG TA T--A G---C G----C C----G A----T C---G G--C CG TA T--A C---G T----A C----G A----T C---G G--C GC TA G--C C---G G----C G----C G----C A---T T--A CG AT G--C A---T A----T C----G C----G A---T A--T CG CG G--C G---C G----C A----T T----A C---G G--C CG TA A--T A---T G----C A----T A----T C---G A--T GC TA G--C C---G T----A G----C G----C C---G T--A AT CG G--C G---C T----A C----G G----C C---G C--G CG AT T--A C---G G----C G----C A----T T---A G--C CG TA G--C A---T G----C A----T G----C .;@_{A => C => G=> T=>} =0..3 ;s;. * (\w).* (\w).* \n;$_ { $- ++ /9 %2?$ 2:$ 1 };gex; s;(.)( .)(.)(. );chr 64*$ 1+ 16 *$2+ 4 *$ 3 +$ 4 ;gex ; eval |
||||
Trooper
|
08-08-05, 18:41
#2
?
|
Trooper
|
08-08-05, 18:43
#3
WTF?
E o que isso faz de util? |
Trooper
|
08-08-05, 18:46
#4
Gostei desse DNA alien.
|
Banned
|
08-08-05, 18:51
#5
executa o arquivo
|
inativo
|
08-08-05, 18:52
#6
Quote:
|
|
Banned
|
08-08-05, 18:55
#7
Quote:
|
|
The Alpha Male
|
08-08-05, 19:37
#8
o camelo eh old
o do dna n conhecia hih |
Trooper
|
08-08-05, 19:40
#9
Não entendi nada.
* dumbass * |
Thread Tools | |
|
|