15/02/14 19:21:54.15 dykNRzlE
$fn = "cardtool.exe";
($fs) = (stat($fn))[7];
open fp, $fn;
binmode(fp);
read(fp,$buff,$fs);
close fp;
$s = "\x02\xCD\xFD\x76\xBF\xE1\x42\x73\x59\x03\x21\xB4\xC0\xA5\x38\x98\xF5\xE1";
$d = "\x02\x42\x6F\x72\x6C\x61\x64\x63\x43\x05\x56\x69\x73\x75\x61\x6C\x20\x43";
$buff =~ s/$s/$d/g;
$s = "\x02\x19\x98\x12\x14\x20\x02\x06\x03\x01\x25\x12\x73\x04\x48\x12\x26\x84";
$d = "\x04\x56\x69\x73\x75\x61\x6C\x20\x43\x01\x42\x6F\x72\x6C\x61\x64\x63\x43";
$buff =~ s/$s/$d/g;
open fp, ">".$fn;
binmode(fp);
print fp $buff;
close fp;