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