1#! /usr/bin/perl -Tw 2 3use strict; 4use MD5; 5 6my($input, $hash, $i, $item); 7 8chomp($input = <STDIN>); 9 10$hash = MD5->hash($input); 11 12for($i = 0; $i < 16; $i++) { 13 $item = unpack("C", substr($hash, $i, 1)); 14 $item = (($item ^ 255) + (53 + $i * 7)) % 256; 15 substr($hash, $i, 1) = pack("C", $item); 16} 17 18print unpack("H*", $hash); 19