Jump to content

Phantome1992

Members
  • Posts

    7
  • Joined

  • Last visited

Posts posted by Phantome1992

  1. dea se poate scrie si in maxim 6 lini dar imi e lene daca iam pus si o keye ajung la 7 lini

    sub create {
    my $tostr = $_[0];
    my @t = (4, 32, 128);
    my $return = "";
    for(my $i=0; $i<length($tostr); $i++) {
    $hx = substr($tostr, $i, 1);
    $hxr = chr(ord($hx) + ($t[2]-$t[1]>ord($hx)?32:64) - ($t[0]**(($i%2==0)?2:1))*2);
    $return .= &strtohex(ord($hxr));
    }

    return $return;
    }

    PERL ;) (Crisalixx)

    • Upvote 1
×
×
  • Create New...