#!/usr/bin/perl use warnings; use strict; use MIME::Base64; my $XORmask = "T|808|586|127800" ^ decode_base64('Z0xcAVtKAwkDHVcKVF5TCQ'); print $XORmask."\n"; print $XORmask ^ decode_base64('Z0xcAVdKAwkAHVcKUF5VAA')."\n"; print $XORmask ^ decode_base64('Z0xcAVRKAwkAHVcKUF9bAA')."\n";