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)