Gracias calantra, por tu trabajo. Si alguien sabe o se anima a aprender conmigo, a programar algo parecido en vb.net, yo estoy dispuesto a ello. Solo necesitaría saber comprobar la clave si es correcta o no... es decir... lo que hace calantra de...
tmp : array [0..64-1] of byte;
const
iv : array [1..16] of Byte = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
{lv0} lv0meta : array [1..16] of LongWord = (2626276755, 2375922298, 3689834797, 1525574696, 1066391909, 4172057485, 1909459759, 4031331336,
986848741, 2255776357, 1816842367, 712672675, 1838089829, 3165343335, 146369270, 3362187819);
{met} metmeta : array [1..16] of longword = (829464153, 790246718, 3100314556, 3133489900, 1308467002, 628843994, 4278123661, 2501507690,
2397652503, 2280974692, 824894977, 3200932179, 3216255001, 335303580, 3672707467, 871184235);
begin
case sel of
0 : tools.decaes256cbc(@lv0meta,@tmp,@key,@iv,$40);
1 : tools.decaes256cbc(@metmeta,@tmp,@key,@iv,$40);
end;
metaok := true;
if tmp[16] > 0 then metaok :=false;if tmp[50] > 0 then metaok :=false;
if tmp[20] > 0 then metaok :=false;if tmp[55] > 0 then metaok :=false;
if tmp[24] > 0 then metaok :=false;if tmp[59] > 0 then metaok :=false;
if tmp[31] > 0 then metaok :=false;if tmp[63] > 0 then metaok :=false;
portarlo a vb.net
del resto me encargaria yo... de intentar montar algo, para que cada usuario que utilice la aplicacion utilizase un rango de keys para probar y asi no probar muchos usuarios las mismas... alguien se anima a ayudarme?. gracias y perdon por la parrafada...