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:

http://www.cs.wcupa.edu/~rkline/perl2php/

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 -> psas.revskills.de/?q=goldcard pozz

Ko je trenutno na forumu
 

Ukupno su 1002 korisnika na forumu :: 70 registrovanih, 6 sakrivenih i 926 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, A.R.Chafee.Jr., Alibaba1981, aljosa7, Apok, Belac91, Ben Roj, bojank, bojcistv, Brada i Gibanica, Bubili, Bubimir, bufanje, dankisha, Denaya, DonRumataEstorski, Džordžino, Ehinacea, FOX, francis begbie, Griffon vulture, Insan, Istman, Ivan Campo, ivan979, ivicasimo, Joja, karevski, krlebgd77, kunktator, kybonacci, ladro, laurusri, ljuba, Mendonca, mercedesamg, Milan A. Nikolic, mileJNA, miodrag, misa2, Miškić, mpetro35, nedeljkovici, nemkea71, nenad81, niksa517, nobutado, nuke92, nuki1234, operniki, panzerwaffe, pein, Profica, raptorsi, raskoljnikov, RobinHood12, Rocker, rovac, S2M, Shinobi, slonic_tonic, srecko81, stegonosa, Tas011, tvlada, Vatrogasaccc, Wisdomseeker, wizzardone, zastavnik, ZoranB.