$k= "0802020501020401054a2b020154212d01050c030d5230150d064c28190208060d";
@r=unpack('C*', pack('H*',$k)); for (1..shift(@r)){$n[$q+= shift(@r)]=1;}
for(@r){if($n[$t]){$_=-$_};$t++;print chr($o+=$_);}#sig-relation.04.20.02
Stack Overflow
Q&A for professional and enthusiast programmers
Joined 3 years ago, last seen 7 days ago
2,705 reputation
1811
badges
0 questions
28 answers
Programmers
Q&A for professional programmers interested in conceptual questions about software development
Joined 2 years ago, last seen 1 year ago
101 reputation
1
badges
0 questions
0 answers
101 reputation
0 questions
0 answers
