#!perl
# make sha1 hash, from nonce buffer
 
#$xoteg.="\x01\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";

$xoteg="";
$xoteg.="\x00\x00\x00\x00";
$xoteg.="\x01\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";
$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";
$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";
$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";
$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";
$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";
$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";
$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";

#$xoteg.="\x7B\x82\x17\x83\xEC\xAF\x32\x9B\xB3\x4A\xA4\x28\xE0\x2E\xEF\xEA";

open WR, ">_myin_nonce.txt";
binmode (WR);
print WR $xoteg;
close WR;

