[es] - Kul PERL kod...

leka
Dejan Lekić
senior software engineer, 3Developers Ltd.
London, UK

Član broj: 234
Poruke: 2530
*.racasse.se

Sajt: dejan.lekic.org

Profil

Kul PERL kod...

^{02.10.2003. u 15:55}

Neverovatno je sta PERL geek-ovi znaju da napisu...

Code:

bash$ cat /tmp/p9j.pl
#!/usr/bin/perl
print"\33[2J";$|=1;($H=sprintf("%x",3741074192))=~y/74239
/porn!/;while($i+=.2){%q=();select('','','',.01);for(-1,1
){($c,$s)=(cos($i)*$_,-sin($i)*$_);@x=(-20*$s,3*$c-7,6+2*
$c);@y=(20*$s,7-6*$c,6-2*$c);$d=1/sqrt(($y[1]-$x[1])**2+(
$y[0]-$x[0])**2);for($j=0;$j<=1;$j+=$d){for(0..2){$p[$_]=
int($x[$_]+($y[$_]-$x[$_])*$j)}for$a(-$p[2]..$p[2]){for(-
$p[2]/2..$p[2]/2){$q{(40+$p[0]+$a)+(11+$p[1]+$_)*79}++if(
($a**2+($_*2)**2)<$p[2])}}}}for(sort(keys%q)){$f=$_%79;$u
=int($_/79);print$_-$g!=1?"\33[$u;${f}H":"",substr($H,$_%
8,1);++$l{$_};$g=$_}for(keys%l){if($l{$_}){--$l{$_}}else{
$f=$_%79;$u=int($_/79);print$_-$g!=1?"\33[$u;".$f.'H':'',
"\40";delete($l{$g=$_})}}print"\33[H"}

Dejan Lekic
software engineer, MySQL/PgSQL DBA, sysadmin

^{02.10.2003. u 15:55}

dr ZiDoo
Web Developer
Banja Luka

Član broj: 189
Poruke: 1729
*.teleklik.net

Jabber: ZiDoo@elitesecurity.org
ICQ: 299539598
Sajt: zidoo.geek.rs.ba

Profil

Re: Kul PERL kod...

^{02.10.2003. u 16:24}

SICK!

tu nema kašike....

^{02.10.2003. u 16:24}

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.ptt.yu

Profil

Re: Kul PERL kod...

^{07.10.2003. u 19:35}

Pa jos kada bi neko znao da posle svakih ; lupi enter
bilo bi malo jednostavnije. A to sto ti tako vidish skriptu !
I meni se desava kada uzmem da editujem (sa notepadom)
skriptu sa linuxa ... nema sledeci red uopste ... mada ima
kvadratice ali sve jedno.

^{07.10.2003. u 19:35}

alex
Aleksandar Radulovic
Software Architect, Software Development, Síminn hf.
Reykjavik, Iceland

Administrator
Član broj: 71
Poruke: 2180
*.du.heimsnet.is

Jabber: maurice.chavez@gmail.com
ICQ: -1
Sajt: www.a13x.info

Profil

Re: Kul PERL kod...

^{07.10.2003. u 20:09}

Gosn' Free_Sex,

U pitanju je obfuscated kod - znaci, namerno takav. To sto si ti napisao nema veze s tim, vec sa razlikom izmedju unix i windows formata fajlova, gde se kraj reda drugacije obelezava.

Alex: My favorite site is http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)
tweet.13x || linkedin.13x

^{07.10.2003. u 20:09}

random
Vladimir Vrzić
Senior Software Engineer, Vast.com
Stari Cerak

Tehnički konsultant
Član broj: 85
Poruke: 3855
194.106.169.*

Sajt: www.last.fm/user/vrza

Profil

Re: Kul PERL kod...

^{07.10.2003. u 20:25}

Stvarno very cool.

int rand(void);

Those who do not understand Unix are condemned to reinvent it, poorly.

Upali lampicu — koristi Jabber!

^{07.10.2003. u 20:25}

dr ZiDoo
Web Developer
Banja Luka

Član broj: 189
Poruke: 1729
*.teol.net

Jabber: ZiDoo@elitesecurity.org
ICQ: 299539598
Sajt: zidoo.geek.rs.ba

Profil

Re: Kul PERL kod...

^{07.10.2003. u 22:59}

Citat:

alex:
Gosn' Free_Sex,

U pitanju je obfuscated kod - znaci, namerno takav. To sto si ti napisao nema veze s tim, vec sa razlikom izmedju unix i windows formata fajlova, gde se kraj reda drugacije obelezava.

Nije da ispravljam alexa, ali samo da se nadovežem "narodnim" jetizikom:

\n nije isto na Windowsu macu i unixodima.
Skini neki napredniji editor od Notepada, Edit+, UltraEdit i njima slični, koji prepoznaju sve te kodove i prikazuju ih normalno.

tu nema kašike....

^{07.10.2003. u 22:59}

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.beotel.net

Profil

Re: Kul PERL kod...

^{11.10.2003. u 00:58}

To sto neki likovi pisu takve kodove to je druga stvar.
Umesto lepo da sednu i napisu kompajler za perl i vise
se ne muce nego kao da neko slucajno nebi mogao da
uzme deo sorsa ili sl .... meni to deluje kao da neko hoce
da sakrije sors od html strane ... dobro nije bas isto, html
svako skine, perl skriptu samo ako nekome das, prodas ili
ti je hosting provajder mazne :) ali opet isto *ranje.

^{11.10.2003. u 00:58}

dr ZiDoo
Web Developer
Banja Luka

Član broj: 189
Poruke: 1729
*.teol.net

Jabber: ZiDoo@elitesecurity.org
ICQ: 299539598
Sajt: zidoo.geek.rs.ba

Profil

Re: Kul PERL kod...

^{11.10.2003. u 01:59}

Mislim da si pogrešno protumačijo namjenu autora. Kada vidiš sta code radi shvatiš da lik nije ni malo glup, a čim napiše ovako nešto vjerovatno zna da čudnijim formatiranjem coda neće i sakriti code. To je čisto da pokaše da je geek, i po meni je uspjeo

P.S. Imo sam ja neki bezze C code u obliku srca

tu nema kašike....

^{11.10.2003. u 01:59}

MrYoo
Vladimir Markovic
Beograd, Srbija

Član broj: 30
Poruke: 197
*.yubc.net

ICQ: 47188818
Sajt: www.phone.co.yu

Profil

Re: Kul PERL kod...

^{11.10.2003. u 10:35}

Citat:

Free_Sex:
To sto neki likovi pisu takve kodove to je druga stvar.
Umesto lepo da sednu i napisu kompajler za perl i vise
se ne muce nego kao da neko slucajno nebi mogao da
uzme deo sorsa ili sl .... meni to deluje kao da neko hoce
da sakrije sors od html strane ... dobro nije bas isto, html
svako skine, perl skriptu samo ako nekome das, prodas ili
ti je hosting provajder mazne :) ali opet isto *ranje.

Pa kakve veze ima i ako neko uzme deo koda da ga iskoristi u svom programu ili ako neko pogleda sta pise kako bi mozda nesto nacio. I ne zaboravimo na Open Source.

Berza moblinih telefona, cene, mali oglasi, BESPLATAN MMS
www.phone.co.yu

^{11.10.2003. u 10:35}

mpapec

Član broj: 9198
Poruke: 45
*.globalnet.hr

Profil

Re: Kul PERL kod...

^{11.10.2003. u 12:22}

Citat:

dr ZiDoo:
\n nije isto na Windowsu macu i unixodima.

Znam na sto mislis, ali \n bas *jest* isti na svim sistemima.

^{11.10.2003. u 12:22}

bzero
dev null
europe

Član broj: 5907
Poruke: 371
62.108.125.*

Jabber: bzero@elitesecurity.org
Sajt: www.google.com/search?q=b..

Profil

Re: Kul PERL kod...

^{13.10.2003. u 09:15}

Kad smo vec kod Perl-a:

Code:

#!/usr/bin/perl -w
use strict;
                                           $_='ev
                                       al("seek\040D
           ATA,0,                  0;");foreach(1..2)
       {<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=$_;tr/LJF7\173\175`\047/\061\062\063
      45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040
       $Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17
        5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p
         rint"\040$_$Camel\n";}#japh-Erudil';;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

Never trust an operating system you don't have sources for.

^{13.10.2003. u 09:15}