pomoc - perl u php

pomoc - perl u php

offline
  • Pridružio: 15 Jul 2009
  • Poruke: 150

Napisano: 05 Avg 2011 21:57

Pozdrav svima, imam jednu perl skriptu koju bih da portujem u php. Dali neko zeli da mi da primer kako ove dve funkciju iz perl da portujem u php?
sub reversestring {     return pack("C*", reverse unpack("C*", shift)); } # in:  96 bytes  hdr 0x80-0xdf # out: 16 bytes sub unpack_80 {     my $hdr= shift;     #printf("packed hdr80 = %s\n", unpack("H*", $hdr));     my $data= "\x00" x 16;     for (my $i=0 ; $i<16 ; $i++) {         substr($data, 15-$i, 1)= substr($hdr, $ofs80list[$i]+4, 1);     }     my $calccrc= XdaDevelopers::NbfUtils::crc32(substr($hdr, 0, 0x5c), 0);     my $storedcrc= unpack("V", substr($hdr, 0x5c, 4));     if ($calccrc!=$storedcrc) {         printf("hdr80: crc mismatch: stored=%08lx calc=%08lx\n", $storedcrc, $calccrc);     }     return $data; }

Jednu funkciju sam preveo iz perl:
our %deskeys= (     dfdfdfdfdfd=>[         pack("C*", map { $_-0x60 } ( 0xB5, 0xC6, 0x94, 0xC4, 0x98, 0xC6, 0x95, 0xA4 )),         pack("C*", map { $_-0x60 } ( 0xC6, 0xC5, 0x95, 0xC7, 0x98, 0xA5, 0x95, 0x91 )),         pack("C*", map { $_-0x60 } ( 0xC3, 0xA3, 0xC2, 0x96, 0xC1, 0x91, 0xC6, 0xC6 )),     ], );
u php:
function cube($n) { return($n - 0x60); } $deskeys = array(); $a = array(0xB5, 0xC6, 0x94, 0xC4, 0x98, 0xC6, 0x95, 0xA4); $b = array(0xC6, 0xC5, 0x95, 0xC7, 0x98, 0xA5, 0x95, 0x91); $c = array(0xC3, 0xA3, 0xC2, 0x96, 0xC1, 0x91, 0xC6, 0xC6); $aa = array_map("cube", $a); $bb = array_map("cube", $b); $cc = array_map("cube", $c); for ($i=0; $i<8; $i++) {        $deskeys[0] .= pack("C*", $aa[$i]);     $deskeys[1] .= pack("C*", $bb[$i]);     $deskeys[2] .= pack("C*", $cc[$i]); } //print_r($deskeys);
Ove dve gore nemam ideju kako, ne znam dali je shift variabla ili je shift array_shift Embarassed

Dopuna: 11 Avg 2011 17:11

Zar niko? Crying or Very sad



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • soxxx 
  • Prijatelj foruma
  • Pridružio: 25 Maj 2005
  • Poruke: 1482
  • Gde živiš: Gracanica, Kosovo

shift je array_shift u php. Skida prvi clan niza.

Nazalost znam samo malo perl, i uopste php. Ali evo ti link koji moze biti od velike pomoci:

[Link mogu videti samo ulogovani korisnici]

Pozdrav



offline
  • Pridružio: 15 Jul 2009
  • Poruke: 150

Da, znam za to, nego me interesuje konkretno "shift" u perl skripti dali je variabla ili je nesto drugo, znam za onaj sajt, bas sam ga malo pogledao pre nego sam napisao temu, u svakom slucaju hvala! Skripta pisana u perl je skripta za generisanje "gold kartice" za HTC telefone, a ova 3 des kljuca su za htc hd mini, eto ako nekom treba mogu naci ovde Wink

offline
  • soxxx 
  • Prijatelj foruma
  • Pridružio: 25 Maj 2005
  • Poruke: 1482
  • Gde živiš: Gracanica, Kosovo

Pa rekoh gore, shift jeste perl funkcija.

Guglajuci skriptu sam nasao ovde, pored ostalih perl skripti. Cisto iz radoznalosti - zasto ne perl, zasto mora da se prabaci u php?

offline
  • Pridružio: 15 Jul 2009
  • Poruke: 150

Ok, shift znam da je perl funkcija, ali mislim da me nisi razumeo jer pitam konkretno za perl skriptu koju sam postavio u postu a ne perl skriptu globalno, jer ako pogledamo ovaj deo:
return pack("C*", reverse unpack("C*", shift));
shift mi deluje kao varijaba a ne kao funkcija jer unpack funkcija nema sta da unpakuje ovde: unpack("C*", shift));

A zasto zelim da prebacim u php, zato sto hocu da napravim online servis za generisanje gold kartica kao sto je napravljeno ovde -> [Link mogu videti samo ulogovani korisnici] pozz

Ko je trenutno na forumu
 

Ukupno su 1020 korisnika na forumu :: 226 registrovanih, 20 sakrivenih i 774 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 10x10.9, 9191vs, advokat84, akaherz994, AleksandarV, aleksjevt, Alojzije, alzir86, asdfjklc, Asparagus, ast13, Atomski čoban, avijacija, babaroga, BasCelik, Batko.VD.65, Bbbggg1979, Betta, Betty25, black_raven, blackjack, Bo96, Bobrock1, boj.an, bojan_t, bokicacar, Borski1977, BORUTUS, Bosnjo, BrcakRS, Bubimir, BZ, celt, Chainsaw, cifra, cojapop, Comyymoc, crazydkure, cuvarkuca, Cvijo_ue, darkkran, DeerHunter, dejan1972, del boy, DENIRO, Desmond, dexteroza, Dimitrije Paunovic, Dioniss, dj.ape, DjomlaHomer, djonsule, DJUNTA, Doca, Dolinc, DragoslavS, Dukelander, Dungorth, Ebemliga, Ercomero, Frunze, g_g, galico, gasha, geo.dule, GeoM, Georgius, Geran136, Giro77, Giskard, Glavni Oružni, glisok, Gogi_avio, goran.vvv, Gosha101980, Goxy1, GveX, Hans Gajger, HawX, helen1, HrcAk47, Insan, InzenjerBL, Istman, ivan1973, ivica976, Jan, Jaz, Jester, Još malo pa deda, Kajzer Soze, kokodakalo, koliko, Kredit, Kriglord, kunktator, kuntakinte, kybonacci, laganini123, laurusri, Lazur_01, lima, LjubisaR, lord sir giga, MaCS, Makarid, mane123, Manjane, max power, maxim_von_burdengate, metallac777, Metanoja, mexo, Mi lao shu, Mickey12345, MiGac, Miki01, Miki281, mikrimaus, milan124, mile09, Miler88, milimoj, Milometer, mino bosanac, mir juzni, MiroslavD, Mis uz pusku, mishkooo, mist-mist, mkukoleca, Mozgonja, N.e.m.a.nj.a., Naj-Turs, Natuzzi, Nebojsa81, nefs, neko iz mase, neko_drugi, nelezele, Nemanja.M, nenad81, neutrino, nikola11, Nikola93., Njubara, nnovakis, nobutado, novator, operniki, Orc, Pantaaa, Pegggio, Pekman, Permaldar, Pero, Pero Petković, Petarvu, ping15, pirke96, procesor, Prometeus, pvjantar, radovanstojkov023, raketaš, Ray1973, rebro1974, Redred, Resnica, rikirubio, Romibrat, royst33, sabros, Samo gledam, samocitam, SamoGledam, sasics, Sevetar, Sirius, sistem22, Sonic, Sr.Stat., ss10, sslay, stefanmpurtic, Stevan Visoki, Str2022, Szigetwar, tamno.nebo, Tragač, Trpe Grozni, TTN, tuja, UAV operator, uruk, v0idmp3, Valter071, Vasilije Budović, vathra, veljkovicdani, Vica1958, vija, Vlada1389, Vladimir90, vladulns, vlajkox, Vojin, vukajlo71, vuksa72, Wrangler, xpforswodniw, Yekaterinburg, yrraf, Yugol33, Zadonbas, zdrebac, zeka013, zemljanin, ZetaMan, zgoljo, ZlatniRez, Zvone, zziko, Žrnov, 79693, 800077