| Prethodna tema :: Sljedeća tema |
| Autor/ica |
Poruka |
cinik
Forumaš(ica)
Pridružen/a: 27. 04. 2003. (23:34:09)
Postovi: (1FB)16
Spol: 
Lokacija: /proc/sys/cpu/
|
 Postano: 23:24 sri, 15. 12. 2004 Naslov: Sta radi 15 linija Python koda.... |
    |
|
|
Maloprije sam na /. nabasao na pricu o sljecem kodu:
[code:1]# tinyp2p.py 1.0 (documentation at http://freedom-to-tinker.com/tinyp2p.html)
import sys, os, SimpleXMLRPCServer, xmlrpclib, re, hmac # (C) 2004, E.W. Felten
ar,pw,res = (sys.argv,lambda u:hmac.new(sys.argv[1],u).hexdigest(),re.search)
pxy,xs = (xmlrpclib.ServerProxy,SimpleXMLRPCServer.SimpleXMLRPCServer)
def ls(p=""):return filter(lambda n:(p=="")or res(p,n),os.listdir(os.getcwd()))
if ar[2]!="client": # license: http://creativecommons.org/licenses/by-nc-sa/2.0
myU,prs,srv = ("http://"+ar[3]+":"+ar[4], ar[5:],lambda x:x.serve_forever())
def pr(x=[]): return ([(y in prs) or prs.append(y) for y in x] or 1) and prs
def c(n): return ((lambda f: (f.read(), f.close()))(file(n)))[0]
f=lambda p,n,a:(p==pw(myU))and(((n==0)and pr(a))or((n==1)and [ls(a)])or c(a))
def aug(u): return ((u==myU) and pr()) or pr(pxy(u).f(pw(u),0,pr([myU])))
pr() and [aug(s) for s in aug(pr()[0])]
(lambda sv:sv.register_function(f,"f") or srv(sv))(xs((ar[3],int(ar[4]))))
for url in pxy(ar[3]).f(pw(ar[3]),0,[]):
for fn in filter(lambda n:not n in ls(), (pxy(url).f(pw(url),1,ar[4]))[0]):
(lambda fi:fi.write(pxy(url).f(pw(url),2,fn)) or fi.close())(file(fn,"wc"))
[/code:1]
Jedan totalni perverzan komad P2P sofvera. Vise na adresi [url]http://freedom-to-tinker.com/tinyp2p.html[/url]
'ave fun!
Sinisa
p.s. veky, bi li ti ovo mogao spakirati u perlu u manje koda?
Maloprije sam na /. nabasao na pricu o sljecem kodu:
| Kod: | # tinyp2p.py 1.0 (documentation at http://freedom-to-tinker.com/tinyp2p.html)
import sys, os, SimpleXMLRPCServer, xmlrpclib, re, hmac # (C) 2004, E.W. Felten
ar,pw,res = (sys.argv,lambda u:hmac.new(sys.argv[1],u).hexdigest(),re.search)
pxy,xs = (xmlrpclib.ServerProxy,SimpleXMLRPCServer.SimpleXMLRPCServer)
def ls(p=""):return filter(lambda n:(p=="")or res(p,n),os.listdir(os.getcwd()))
if ar[2]!="client": # license: http://creativecommons.org/licenses/by-nc-sa/2.0
myU,prs,srv = ("http://"+ar[3]+":"+ar[4], ar[5:],lambda x:x.serve_forever())
def pr(x=[]): return ([(y in prs) or prs.append(y) for y in x] or 1) and prs
def c(n): return ((lambda f: (f.read(), f.close()))(file(n)))[0]
f=lambda p,n,a:(p==pw(myU))and(((n==0)and pr(a))or((n==1)and [ls(a)])or c(a))
def aug(u): return ((u==myU) and pr()) or pr(pxy(u).f(pw(u),0,pr([myU])))
pr() and [aug(s) for s in aug(pr()[0])]
(lambda sv:sv.register_function(f,"f") or srv(sv))(xs((ar[3],int(ar[4]))))
for url in pxy(ar[3]).f(pw(ar[3]),0,[]):
for fn in filter(lambda n:not n in ls(), (pxy(url).f(pw(url),1,ar[4]))[0]):
(lambda fi:fi.write(pxy(url).f(pw(url),2,fn)) or fi.close())(file(fn,"wc"))
|
Jedan totalni perverzan komad P2P sofvera. Vise na adresi http://freedom-to-tinker.com/tinyp2p.html
'ave fun!
Sinisa
p.s. veky, bi li ti ovo mogao spakirati u perlu u manje koda?
_________________
Oslobodjen Senata.
|
|
| [Vrh] |
|
veky
Forumaš(ica)
Pridružen/a: 09. 12. 2002. (19:59:43)
Postovi: (5B0)16
Lokacija: negdje daleko...
|
|
| [Vrh] |
|
Smith
Forumaš(ica)
Pridružen/a: 30. 10. 2004. (23:30:23)
Postovi: (178)16
Spol: 
Lokacija: {Tamo Gore}^{TM}
|
|
| [Vrh] |
|
veky
Forumaš(ica)
Pridružen/a: 09. 12. 2002. (19:59:43)
Postovi: (5B0)16
Lokacija: negdje daleko...
|
|
| [Vrh] |
|
goc9999
Forumaš(ica)
Pridružen/a: 15. 10. 2003. (19:31:20)
Postovi: (238)16
Spol:
Lokacija: Utrina
|
|
| [Vrh] |
|
vjekovac
Forumaš(ica)
Pridružen/a: 23. 01. 2003. (18:26:55)
Postovi: (2DB)16
Spol:
|
|
| [Vrh] |
|
veky
Forumaš(ica)
Pridružen/a: 09. 12. 2002. (19:59:43)
Postovi: (5B0)16
Lokacija: negdje daleko...
|
|
| [Vrh] |
|
Smith
Forumaš(ica)
Pridružen/a: 30. 10. 2004. (23:30:23)
Postovi: (178)16
Spol:
Lokacija: {Tamo Gore}^{TM}
|
| Postano: 13:45 pet, 17. 12. 2004 Naslov: |
|
|
|
:OT:
Veky, znas sto bi bilo divno?
Kad bi dopunio onu rubriku na svom sajtu nazvanu Perl snippets nekim cestim texnickim problemima vezanim uz math zadatke (npr. faktorizacija prirodnog broja, dijeljenje polinoma na razne nacine itd.).
Prvo implementiras relativno opsirno (a mogu i ja nacrckati kako bi islo, samo to ce biti ruzno), zatim komentiras svaku lajnu i napises zasto i kako se ona moze sazeti, te na kraju stavis potpuno zgusnutu verziju.
Just a thought... Ako imas viska vremena, naravno. :wink:
Veky, znas sto bi bilo divno?
Kad bi dopunio onu rubriku na svom sajtu nazvanu Perl snippets nekim cestim texnickim problemima vezanim uz math zadatke (npr. faktorizacija prirodnog broja, dijeljenje polinoma na razne nacine itd.).
Prvo implementiras relativno opsirno (a mogu i ja nacrckati kako bi islo, samo to ce biti ruzno), zatim komentiras svaku lajnu i napises zasto i kako se ona moze sazeti, te na kraju stavis potpuno zgusnutu verziju.
Just a thought... Ako imas viska vremena, naravno. 
_________________
We only have one candle
To burn down to the handle...
- Sonata Arctica, Weballergy
Zadnja promjena: Smith; 17:52 pet, 17. 12. 2004; ukupno mijenjano 2 put/a.
|
|
| [Vrh] |
|
ahri
Forumaš(ica)
Pridružen/a: 19. 11. 2003. (23:16:07)
Postovi: (193)16
|
|
| [Vrh] |
|
veky
Forumaš(ica)
Pridružen/a: 09. 12. 2002. (19:59:43)
Postovi: (5B0)16
Lokacija: negdje daleko...
|
|
| [Vrh] |
|
|
