Forum@DeGiorgi :: Pogledajte temu - Pomoc s Perlom....

Search
Engleski Open in this window (click to change)

Forum@DeGiorgi: Početna

Forum za podršku nastavi na PMF-MO

Login

Registracija

FAQ

Smajlići

Članstvo

Pretražnik

Forum@DeGiorgi: Početna

Pomoc s Perlom....

Započnite novu temu

Odgovorite na temu

printer-friendly view

Forum@DeGiorgi: Početna -> Ostalo - opušteno -> Biseri

Prethodna tema :: Sljedeća tema

Autor/ica Poruka

vsego
Site Admin

Site Admin

Pridružen/a: 06. 10. 2002. (22:07:09)
Postovi: (3560)₁₆
Spol: zombi

zombi

Sarma	=	la pohva - posuda
854	=	1068 - 214

Lokacija: /sbin/init

Postano: 22:28 ned, 8. 12. 2002 Naslov: Pomoc s Perlom....

Ako netko ima par sati (dana? mjeseci?? godina??? zivota????) da mi iskrampa sto radi ovaj program (nadjeno na Netu):

[code:1]$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)
[20]&48){$h=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}
@ARGV;s/...$/1$&/;$d=unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];
$d=$d>>8^($f=($t=255)&($d>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&
($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=(map{$_%16or$t^=$c^=
($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^
=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
[/code:1]
:o :o :o :o :o

Hvala! :)

Ako netko ima par sati (dana? mjeseci?? godina??? zivota????) da mi iskrampa sto radi ovaj program (nadjeno na Netu):

Kod:

$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)
[20]&48){$h=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}
@ARGV;s/...$/1$&/;$d=unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];
$d=$d>>8^($f=($t=255)&($d>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&
($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=(map{$_%16or$t^=$c^=
($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^
=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

Surprised

Surprised

Surprised

Surprised

Surprised

Hvala!

Smile

_________________
U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju. Drzim prodike

Drzim prodike

Korisnički profil

Pošaljite privatnu poruku

Void
Forumaš(ica)

Forumaš(ica)

Pridružen/a: 14. 11. 2002. (18:08:22)
Postovi: (FA)₁₆

Sarma	=	la pohva - posuda
8	=	8 - 0

Postano: 22:39 ned, 8. 12. 2002 Naslov: Re: Pomoc s Perlom....

Citirajte i odgovorite

[quote="vsego"]
[code:1]$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)
[20]&48){$h=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}
@ARGV;s/...$/1$&/;$d=unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];
$d=$d>>8^($f=($t=255)&($d>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&
($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=(map{$_%16or$t^=$c^=
($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^
=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
[/code:1]
[/quote]

I kako netko moze ne voljeti Perl?

vsego (napisa):

Kod:

$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)
[20]&48){$h=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}
@ARGV;s/...$/1$&/;$d=unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];
$d=$d>>8^($f=($t=255)&($d>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&
($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=(map{$_%16or$t^=$c^=
($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^
=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

I kako netko moze ne voljeti Perl?

Korisnički profil

Pošaljite privatnu poruku

vsego
Site Admin

Site Admin

Pridružen/a: 06. 10. 2002. (22:07:09)
Postovi: (3560)₁₆
Spol: zombi

zombi

Sarma	=	la pohva - posuda
854	=	1068 - 214

Lokacija: /sbin/init

Postano: 23:41 ned, 8. 12. 2002 Naslov: Re: Pomoc s Perlom....

[quote="Void"]I kako netko moze ne voljeti Perl?[/quote]

Joj, pipl, kak' ste naporni! Pa [b]ne mora[/b] program u Perl tak izgledati. Ovo je samo za izivljavanje. Ili da cure padaju na to kak si pametan kad to kuzis... :lol:

[url=http://degiorgi.math.hr/forum/viewtopic.php?p=673]I kako netko moze ne voljeti C?[/url] :twisted:

Void (napisa):

I kako netko moze ne voljeti Perl?

Joj, pipl, kak' ste naporni! Pa ne mora program u Perl tak izgledati. Ovo je samo za izivljavanje. Ili da cure padaju na to kak si pametan kad to kuzis... Laughing

Laughing

I kako netko moze ne voljeti C? Twisted Evil

Twisted Evil

_________________
U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju. Drzim prodike

Drzim prodike

Korisnički profil

Pošaljite privatnu poruku

veky
Forumaš(ica)

Forumaš(ica)

Pridružen/a: 09. 12. 2002. (19:59:43)
Postovi: (5B0)₁₆

Sarma	=	la pohva - posuda
22	=	24 - 2

Lokacija: negdje daleko...

Postano: 1:05 uto, 10. 12. 2002 Naslov: Re: Pomoc s Perlom....

Citirajte i odgovorite

[quote="vsego"]Ako netko ima par sati (dana? mjeseci?? godina??? zivota????) da mi iskrampa sto radi ovaj program (nadjeno na Netu):

[code:1]$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)
[20]&48){$h=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}
@ARGV;s/...$/1$&/;$d=unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];
$d=$d>>8^($f=($t=255)&($d>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&
($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=(map{$_%16or$t^=$c^=
($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^
=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
[/code:1]
:o :o :o :o :o

Hvala! :)[/quote]

Cuj, inace stvarno volim Perl :-), ali ovako nesto mi se stvarno nije
dalo dekodirat, tim vise sto kasnim na Zvjezdane staze... :-))
Ali uspio sam skuzit da x znaci pack;-), a i brojevi
(11,10,116,100,11,122,20,100) su mi odnekud poznati...
Jos filter koji cita po 2^11 znakova iz STDINa u binary modu...
my first bet je dekripcija DVD zastite... [:-?]

vsego (napisa):

Ako netko ima par sati (dana? mjeseci?? godina??? zivota????) da mi iskrampa sto radi ovaj program (nadjeno na Netu):

Kod:

$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)
[20]&48){$h=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}
@ARGV;s/...$/1$&/;$d=unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];
$d=$d>>8^($f=($t=255)&($d>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&
($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=(map{$_%16or$t^=$c^=
($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^
=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))[$_]^
(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

Surprised

Surprised

Surprised

Surprised

Surprised

Hvala!

Smile

Cuj, inace stvarno volim Perl Smile

Smile

, ali ovako nesto mi se stvarno nije
dalo dekodirat, tim vise sto kasnim na Zvjezdane staze... Smile

Smile

)
Ali uspio sam skuzit da x znaci pack;-), a i brojevi
(11,10,116,100,11,122,20,100) su mi odnekud poznati...
Jos filter koji cita po 2^11 znakova iz STDINa u binary modu...
my first bet je dekripcija DVD zastite... [ Confused

Confused

]

Korisnički profil

Pošaljite privatnu poruku

Pošaljite e-mail

Posjetite Web stranice

vsego
Site Admin

Site Admin

Pridružen/a: 06. 10. 2002. (22:07:09)
Postovi: (3560)₁₆
Spol: zombi

zombi

Sarma	=	la pohva - posuda
854	=	1068 - 214

Lokacija: /sbin/init

Postano: 1:13 uto, 10. 12. 2002 Naslov: Re: Pomoc s Perlom....

[quote="veky"]my first bet je dekripcija DVD zastite...[:-?][/quote]

Yikes! Ode Vas omiljeni Admin u zatvor... :cry:

Samo, ja sam ovo nasao na jednom full legalnom siteu, tako da mislim da je ipak nesto manje opasno. Mozda tajni plan Al'Quaide ili tako nesto, ali ne valjda nesto anti-copyrightsko!!! ;)

veky (napisa):

my first bet je dekripcija DVD zastite...[ Confused

Confused

]

Yikes! Ode Vas omiljeni Admin u zatvor... Crying or Very sad

Crying or Very sad

Samo, ja sam ovo nasao na jednom full legalnom siteu, tako da mislim da je ipak nesto manje opasno. Mozda tajni plan Al'Quaide ili tako nesto, ali ne valjda nesto anti-copyrightsko!!! Wink

Wink

_________________
U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju. Drzim prodike

Drzim prodike

Korisnički profil

Pošaljite privatnu poruku

C'Tebo
Moderator

Moderator

Pridružen/a: 03. 11. 2002. (18:40:48)
Postovi: (26A)₁₆

Sarma	=	la pohva - posuda
-13	=	3 - 16

Lokacija: Zagreb

Postano: 1:35 uto, 10. 12. 2002 Naslov:

Samo se pazi Metalike. Ostali su pljuga :) Samo se pazi Metalike. Ostali su pljuga _________________ Click me! _______________________ Bad panda!

Korisnički profil

Pošaljite privatnu poruku

Pošaljite e-mail

veky
Forumaš(ica)

Forumaš(ica)

Pridružen/a: 09. 12. 2002. (19:59:43)
Postovi: (5B0)₁₆

Sarma	=	la pohva - posuda
22	=	24 - 2

Lokacija: negdje daleko...

Postano: 17:37 uto, 10. 12. 2002 Naslov: Re: Pomoc s Perlom....

Citirajte i odgovorite

[quote="vsego"][quote="veky"]my first bet je dekripcija DVD zastite...[:-?][/quote]

Yikes! Ode Vas omiljeni Admin u zatvor... :cry:

Samo, ja sam ovo nasao na jednom full legalnom siteu, tako da mislim da je ipak nesto manje opasno. Mozda tajni plan Al'Quaide ili tako nesto, ali ne valjda nesto anti-copyrightsko!!! ;)[/quote]

Sorry, morat cu te potpuno razocarat... ipak sam bio u pravu - gle:
[url=http://perl.plover.com/qrpff/article-main.html]detaljno objasnjenje
na Netu[/url]...

No don't worry, neces u zatvor... necemo nikom reci! ;-))

vsego (napisa):

veky (napisa):

my first bet je dekripcija DVD zastite...[ Confused

Confused

]

Yikes! Ode Vas omiljeni Admin u zatvor... Crying or Very sad

Crying or Very sad

Samo, ja sam ovo nasao na jednom full legalnom siteu, tako da mislim da je ipak nesto manje opasno. Mozda tajni plan Al'Quaide ili tako nesto, ali ne valjda nesto anti-copyrightsko!!! Wink

Wink

Sorry, morat cu te potpuno razocarat... ipak sam bio u pravu - gle:
detaljno objasnjenje
na Netu...

No don't worry, neces u zatvor... necemo nikom reci! Wink

Wink

)

Korisnički profil

Pošaljite privatnu poruku

Pošaljite e-mail

Posjetite Web stranice

vsego
Site Admin

Site Admin

Pridružen/a: 06. 10. 2002. (22:07:09)
Postovi: (3560)₁₆
Spol: zombi

zombi

Sarma	=	la pohva - posuda
854	=	1068 - 214

Lokacija: /sbin/init

Postano: 19:34 uto, 10. 12. 2002 Naslov: Re: Pomoc s Perlom....

[quote="veky"]Sorry, morat cu te potpuno razocarat... ipak sam bio u pravu - gle: [url=http://perl.plover.com/qrpff/article-main.html]detaljno objasnjenje na Netu[/url]...

No don't worry, neces u zatvor... necemo nikom reci! ;-))[/quote]

:shock: Kuku meni :!::!::!: Trazim zamjenskog administratora za Degiorgija za iducih 314 godina (ako mi priznaju dobro vladanje)... :cry:

Da bih ipak izbjegao smrtnu kaznu :shocked!: molim pucanstvo da ne koristi spomenuti programcic na Metalikinim DVDovima... :muzak:

veky (napisa):

Sorry, morat cu te potpuno razocarat... ipak sam bio u pravu - gle: detaljno objasnjenje na Netu...

No don't worry, neces u zatvor... necemo nikom reci! Wink

Wink

)

Shocked

Kuku meni

Exclamation

Exclamation

Exclamation

Trazim zamjenskog administratora za Degiorgija za iducih 314 godina (ako mi priznaju dobro vladanje)... Crying or Very sad

Crying or Very sad

Da bih ipak izbjegao smrtnu kaznu #Shocked

#Shocked

molim pucanstvo da ne koristi spomenuti programcic na Metalikinim DVDovima... Muzak

Muzak

_________________
U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju. Drzim prodike

Drzim prodike

Korisnički profil

Pošaljite privatnu poruku

C'Tebo
Moderator

Moderator

Pridružen/a: 03. 11. 2002. (18:40:48)
Postovi: (26A)₁₆

Sarma	=	la pohva - posuda
-13	=	3 - 16

Lokacija: Zagreb

Postano: 19:57 uto, 10. 12. 2002 Naslov:

Heh, ilegalno je znachi? To je OK :) Aj nek mi neko sad objasni kaj to radi da i ja to znam koristit :) Da ne dekriptira mozhda one regional settingse? Heh, ilegalno je znachi? To je OK Aj nek mi neko sad objasni kaj to radi da i ja to znam koristit Da ne dekriptira mozhda one regional settingse? _________________ Click me! _______________________ Bad panda!

Korisnički profil

Pošaljite privatnu poruku

Pošaljite e-mail

veky
Forumaš(ica)

Forumaš(ica)

Pridružen/a: 09. 12. 2002. (19:59:43)
Postovi: (5B0)₁₆

Sarma	=	la pohva - posuda
22	=	24 - 2

Lokacija: negdje daleko...

Postano: 23:47 uto, 10. 12. 2002 Naslov:

Citirajte i odgovorite

[quote="C'Tebo"]Heh, ilegalno je znachi?
To je OK :)[/quote]

Da, samo je pitanje _koliko_, odnosno do koje mjere ilegalno...
pogle [url=http://www-2.cs.cmu.edu/~dst/DeCSS/Gallery/]cega se
sve ljudi sjete[/url]... :-)
(jest malo podugacko, al mislim da se isplati... ROTFLao sam
na neke ideje...:)

[quote="C'Tebo"]
Aj nek mi neko sad objasni kaj to radi da i ja to znam koristit :)
Da ne dekriptira mozhda one regional settingse?[/quote]

LOL, ne... nema veze s regijama, vec s opcenitom zabranom
kopiranja... ako te zanima detaljnije, evo ti pa
[url=http://www.dvddemystified.com/dvdfaq.html#4.8]gledaj[/url]...
(pazi, velika stranica!:)

C'Tebo (napisa):

Heh, ilegalno je znachi?
To je OK Smile

Smile

Da, samo je pitanje _koliko_, odnosno do koje mjere ilegalno...
pogle cega se
sve ljudi sjete... Smile

Smile

(jest malo podugacko, al mislim da se isplati... ROTFLao sam
na neke ideje... Smile

Smile

C'Tebo (napisa):

Aj nek mi neko sad objasni kaj to radi da i ja to znam koristit Smile

Smile

Da ne dekriptira mozhda one regional settingse?

LOL, ne... nema veze s regijama, vec s opcenitom zabranom
kopiranja... ako te zanima detaljnije, evo ti pa
gledaj...
(pazi, velika stranica! Smile

Smile

Korisnički profil

Pošaljite privatnu poruku

Pošaljite e-mail

Posjetite Web stranice

C'Tebo
Moderator

Moderator

Pridružen/a: 03. 11. 2002. (18:40:48)
Postovi: (26A)₁₆

Sarma	=	la pohva - posuda
-13	=	3 - 16

Lokacija: Zagreb

Postano: 0:43 sri, 11. 12. 2002 Naslov:

Aj fala, bum probo shvatit :) Aj fala, bum probo shvatit _________________ Click me! _______________________ Bad panda!

Korisnički profil

Pošaljite privatnu poruku

Pošaljite e-mail

Prethodni postovi:

	Forum@DeGiorgi: Početna -> Ostalo - opušteno -> Biseri	Vremenska zona: GMT + 01:00.
Stranica 1 / 1.

Forum(o)Bir:

Ne možete otvarati nove teme.
Ne možete odgovarati na postove.
Ne možete uređivati Vaše postove.
Ne možete izbrisati Vaše postove.
Ne možete glasovati u anketama.
You can attach files in this forum
You can download files in this forum

Powered by phpBB © 2001, 2002 phpBB Group
Theme created by Vjacheslav Trushkin
HR (Cro) by Ančica Sečan