#!perl
# create new crypted 
# for cred/cert
#

$block="";

#$block.="\x4B\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB";
#$block.="\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB";
#$block.="\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB";
#$block.="\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB\xBB";
#$block.="\xBB\xBB\xBB\xBB\xBB\xBA\x41\x05\x03\x00\x78\x6F\x74\x65\x67\x5F";
#$block.="\x69\x61\x6D\x00\x00\x03\x00\x04\x01\x80\x01\xAF\x14\xB3\x2C\xB9";
#$block.="\xFD\x59\x72\x01\x69\x38\xD4\x24\x92\x5F\x16\x11\xAF\x16\xB5\x26";
#$block.="\x68\x38\xAF\xE0\xB8\xC3\xB8\x50\xD2\xD3\x35\x8C\xB6\x79\xB2\xAE";

$block.="\x48\x5C\x6D\xD9\x5E\x57\xE7\xA0\x5B\x34\x94\xE5\x8F\x35\x27\x43";
$block.="\xDC\xEC\x85\x6B\x1F\x60\xB0\xF0\x97\x8A\xB0\x40\x81\xCB\x3B\x33";
$block.="\x3D\x38\x5B\xD9\x6E\x87\x27\x90\xEF\xAF\x1C\xE2\xAE\x36\x58\x5C";
$block.="\x6A\xED\x2A\xDF\x94\x3D\x64\xD3\x54\x9A\x02\x91\x2A\x0D\x64\x45";
$block.="\xB8\x33\x0C\x46\xA7\x6E\x08\xE7\x2F\xF5\x01\xAC\x4E\xBA\xC2\xD9";
$block.="\x5B\xFA\x10\xF5\x1A\xB0\x35\xD4\xCF\xDD\x15\x00\x04\xE0\xC5\xED";
$block.="\x09\x05\x02\x41\x01\x00\x09\xE0\xC5\xED\x09\x8A\x39\xC4\x2F\x42";
$block.="\x42\x7D\x2E\x78\x82\x18\x4F\x77\xD6\xAC\xBA\x6A\xFD\xF0\x07\xBC";

open WR, ">_myin_cred.txt";
binmode (WR);
print WR $block;
close WR;
