Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kul PERL kod...

[es] :: Perl :: Kul PERL kod...

[ Pregleda: 4942 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

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

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

Sajt: dejan.lekic.org


+2 Profil

icon Kul PERL kod...02.10.2003. u 15:55 - pre 249 meseci
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
 
Odgovor na temu

dr ZiDoo
Banja Luka

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

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


Profil

icon Re: Kul PERL kod...02.10.2003. u 16:24 - pre 249 meseci
SICK!
tu nema kašike....
 
Odgovor na temu

Free_Sex
Aleksandar
Beograd

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



Profil

icon Re: Kul PERL kod...07.10.2003. u 19:35 - pre 249 meseci
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.
 
Odgovor na temu

alex
Aleksandar Radulovic
Senior Software Engineer, Spotify
Stockholm, Sweden

Moderator
Član broj: 71
Poruke: 2194
*.du.heimsnet.is

Jabber: alex@a13x.info
ICQ: -1
Sajt: www.a13x.info


+1 Profil

icon Re: Kul PERL kod...07.10.2003. u 20:09 - pre 249 meseci
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
 
Odgovor na temu

random
Vladimir Vrzić
Beograd

Član broj: 85
Poruke: 3866
194.106.169.*

Sajt: www.last.fm/user/vrza


+4 Profil

icon Re: Kul PERL kod...07.10.2003. u 20:25 - pre 249 meseci
Stvarno very cool.
int rand(void);

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

Upali lampicu — koristi Jabber!
 
Odgovor na temu

dr ZiDoo
Banja Luka

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

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


Profil

icon Re: Kul PERL kod...07.10.2003. u 22:59 - pre 249 meseci
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....
 
Odgovor na temu

Free_Sex
Aleksandar
Beograd

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



Profil

icon Re: Kul PERL kod...11.10.2003. u 00:58 - pre 249 meseci
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.
 
Odgovor na temu

dr ZiDoo
Banja Luka

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

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


Profil

icon Re: Kul PERL kod...11.10.2003. u 01:59 - pre 249 meseci
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....
 
Odgovor na temu

MrYoo

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

ICQ: 47188818


Profil

icon Re: Kul PERL kod...11.10.2003. u 10:35 - pre 249 meseci
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.
 
Odgovor na temu

mpapec

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



Profil

icon Re: Kul PERL kod...11.10.2003. u 12:22 - pre 249 meseci
Citat:
dr ZiDoo:
\n nije isto na Windowsu macu i unixodima.


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

 
Odgovor na temu

bzero
dev null
europe

Član broj: 5907
Poruke: 371
62.108.125.*

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


Profil

icon Re: Kul PERL kod...13.10.2003. u 09:15 - pre 249 meseci
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.
 
Odgovor na temu

Free_Sex
Aleksandar
Beograd

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



Profil

icon Re: Kul PERL kod...14.10.2003. u 20:32 - pre 249 meseci
Znas za ovakve stvari ima podesan naucni naziv .......
 
Odgovor na temu

[es] :: Perl :: Kul PERL kod...

[ Pregleda: 4942 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.