|
|
[ leka @ 02.10.2003. 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"}
|
[ dr ZiDoo @ 02.10.2003. 16:24 ] @
SICK!
[ Free_Sex @ 07.10.2003. 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.
[ alex @ 07.10.2003. 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.
[ random @ 07.10.2003. 20:25 ] @
Stvarno very cool.
[ dr ZiDoo @ 07.10.2003. 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. [ Free_Sex @ 11.10.2003. 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.
[ dr ZiDoo @ 11.10.2003. 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 [ MrYoo @ 11.10.2003. 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. [ mpapec @ 11.10.2003. 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.
[ bzero @ 13.10.2003. 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
[ Free_Sex @ 14.10.2003. 20:32 ] @
Znas za ovakve stvari ima podesan naucni naziv .......
Copyright (C) 2001-2024 by www.elitesecurity.org. All rights reserved.
|