my $salt = pack("C*",0x77,0x35,0x36,0xDC,0xC3,0x0E,0x2E,0x84,0x7E,0x0E,0x75,0x29,0xE2,0x34,0x60,0xCF);