Не могу понять в чем проблема 3272 считал норм, почему 3217 проблема не могу понять... Мало того если пробег менялся чисто на проце то дамп который сделался на 100км ранее не пошел бы. А он записался норм тоесть проблема всего навсего в правильном алгоритме пересчета крипто дубля который отличается от 3272 вот кая вижу проблему.
И направление один товарищ дал кальк от WestUA но перебраные гигабайты отломаных ets iprog iprog pro iprog+ результата не дали во всех вариантах програмный код пересчета затерт.
[Dashboard\WestUA\VW\24C32 crypto WestUA]
Size(280,420);
Form
{
Group("Пробег",5,5,140,50)
{
Digit(Distance," ",5,18,90);
Label(lb1,"KM",110,20);
}
Group("Идентификация",5,55,270,50)
{
Label(date," ",0,15);
Label(pn," ",0,30);
}
Group("Информация",5,105,270,60)
{
Label(message," ",0,18);
Label(message1," ",0,38);
}
Group("Описание",5,165,270,80)
{
Label(lb2,"Калькулятор пробега для VW.",0,15);
Label(lb3,"SIEMENS-VDO. EEPROM 24C32.",0,30);
Label(lb4,"Введите нужное значение в окне ПРОБЕГ",0,45);
Label(lb5,"и нажмите кнопку .",0,60);
}
Group("Крипто область",5,245,270,110)
{
Label(message4," ",40,15);
Label(message5," ",40,30);
Label(message6," ",40,45);
Label(message7," ",40,60);
Label(message8," ",40,75);
Label(message9," ",40,90);
}
Picture(Picture,"VW.bmp",180,5,0,0);
{
Label(msg," ",0,360);
}
OnShow {
msg.Color=0x0000FF; msg.Bold=1; msg="комплект WestUA калькулятори";
Var0 = 0;
if(Var0 = 1) {message.Bold = 1; message.Color = 0x0000FF; message = "Неверный дамп !"; Distance = 0; }
else
{
Distance = 0;
date = "DATE : "+#c.@0x668+#c.@0x669+#c.@0x66a+#c.@0x66b+#c.@0x66c+#c.@0x66d+"20"+#c.@0x66e+#c.@0x66f;
pn = " P/N : "+#c.@0x6ba+#c.@0x6bb+#c.@0x6bc+" "+#c.@0x6bd+#c.@0x6be+#c.@0x6bf+" "+#c.@0x6c0+#c.@0x6c1+#c.@0x6c2+#c.@0x6c3;
var21=0;
Var21 = (@0x80DVar21 = Var21 ^ 0xFFFF;
Var21 = Var21 * 32;
Distance = Var21;
var0=0;
if(@0x9e0=0xAA){var0=var0+1;}
if(@0x9e1=0xAA){var0=var0+1;}
if(@0x9e2=0xAA){var0=var0+1;}
if(@0x9e3=0xAA){var0=var0+1;}
if(@0x9e4=0xAA){var0=var0+1;}
if(@0x9e5=0xAA){var0=var0+1;}
if(@0x9e6=0xAA){var0=var0+1;}
if(@0x9e7=0xAA){var0=var0+1;}
if(var0=8){message1.Bold = 1; message1.Color = 0xFF0000; message1 = "Дамп без крипто области.";
message.Color = 0xFF0000; message.Bold = 1; message = "Дамп ОК. Введите новый пробег.";}
else
{
message1.Color = 0x0000FF; message1.Bold = 1; message1 = "Внимание !!! Дамп с крипто областью.";
message.Color = 0xFF0000; message.Bold = 1; message = "Дамп ОК.";
message4 = " "+#b.@0x9DE+" "+#b.@0x9DF+" ";
message5 = " "+#b.@0x9EC+" "+#b.@0x9ED+" "+#b.@0x9EE+" "+#b.@0x9EF+" "+#b.@0x9F0+" "+#b.@0x9F1+" "+#b.@0x9F2+" "+#b.@0x9F3+" "+#b.@0x9F4+" "+#b.@0x9F5+" "+#b.@0x9F6+" "+#b.@0x9F7;
message6 = " "+#b.@0x9F8+" "+#b.@0x9F9+" "+#b.@0x9FA+" "+#b.@0x9FB+" "+#b.@0x9FC+" "+#b.@0x9FD+" "+#b.@0x9FE+" "+#b.@0x9FF+" "+#b.@0xA00+" "+#b.@0xA01+" "+#b.@0xA02+" "+#b.@0xA03;
message7 = " "+#b.@0xA04+" "+#b.@0xA05+" "+#b.@0xA06+" "+#b.@0xA07+" "+#b.@0xA08+" "+#b.@0xA09+" "+#b.@0xA0A+" "+#b.@0xA0B+" "+#b.@0xA0C+" "+#b.@0xA0D+" "+#b.@0xA0E+" "+#b.@0xA0F;
message8 = " "+#b.@0xA10+" "+#b.@0xA11+" "+#b.@0xA12+" "+#b.@0xA13+" "+#b.@0xA14+" "+#b.@0xA15+" "+#b.@0xA16+" "+#b.@0xA17+" "+#b.@0xA18+" "+#b.@0xA19+" "+#b.@0xA1A+" "+#b.@0xA1B;
message9 = " "+#b.@0xA1C+" "+#b.@0xA1D+" "+#b.@0xA1E+" "+#b.@0xA1F+" "+#b.@0xA20+" "+#b.@0xA21+" "+#b.@0xA22+" "+#b.@0xA23+" "+#b.@0xA24+" "+#b.@0xA25+" "+#b.@0xA26+" "+#b.@0xA27;
}
}
}
OnApply {
}
Не хватает второй части кода калька