Разработка модулей администрирования и шифрования данных для информационной системы предприятия
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
;inc(l1);end;c1>1023 then begin c1:=0;inc(l2);end;[c1]:=pt[c1] xor b xor ord(pwd[c]);:=b+ord(pwd[c])+c+l1+l2;(c);inc(c1);;i:=0 to 255 do[i]:=ns1[i] xor b;:=pt[b];i:=0 to 255 do[i]:=ns2[i] xor b;:=pt[b];i:=0 to 255 do[i]:=ns3[i] xor b;:=pt[b];i:=0 to 255 do[i]:=ns4[i] xor b;i:=0 to 1023 do ExtChTab[i]:=0;:=0;length(ns1)>0 do:=Length(ns1);:=(pt[c]*1007+ExtChTab[pt[c])mod l1;[256-l1]:=ns1[l];[l]:=ns1[l1-1];(ns1,l1-1);(c);:=(pt[c]*1007+ExtChTab[pt[c]+256])mod l1;[512-l1]:=ns2[l];[l]:=ns2[l1-1];(ns2,l1-1);(c);:=(pt[c]*1007+ExtChTab[pt[c]+512])mod l1;[768-l1]:=ns3[l];[l]:=ns3[l1-1];(ns3,l1-1);(c);:=(pt[c]*1007+ExtChTab[pt[c]+768])mod l1;[1024-l1]:=ns4[l];[l]:=ns4[l1-1];(ns4,l1-1);(c);;i:=0 to 31 do[i]:=0;i:=0 to 1023 do[i]:=pt[i] xor ExtChTab[i];:=0;c:=0;:=0;l131 then:=0;i:=0 to 255 do[((i xor b)+(l1+0)*256)mod 1024]:=ExtChTab[(ExtChTab[((i xor b)+(l1+0)*256)mod 1024]+(l1+1)*256)mod 1024];:=ExtChTab[b];i:=0 to 255 do[((i xor b)+(l1+1)*256)mod 1024]:=ExtChTab[(ExtChTab[((i xor b)+(l1+1)*256)mod 1024]+(l1+2)*256)mod 1024];:=ExtChTab[b+256];i:=0 to 255 do[((i xor b)+(l1+2)*256)mod 1024]:=ExtChTab[(ExtChTab[((i xor b)+(l1+2)*256)mod 1024]+(l1+3)*256)mod 1024];:=ExtChTab[b+512];i:=0 to 255 do[((i xor b)+(l1+3)*256)mod 1024]:=ExtChTab[(ExtChTab[((i xor b)+(l1+3)*256)mod 1024]+(l1+4)*256)mod 1024];:=ExtChTab[b+768];(l1);;:=ExtChTab[b] xor ExtChTab[pt[c]+256];[c1]:=ExtChTab[(Key[c1] xor b)+512];:=ExtChTab[(Key[c1] xor b)+768];(c);inc(c1);;;TGOSTEncryption.Set128Table(p:TP128Table);pt:TPExtTable;:=@ExtChTab;PushAllESI,pEDI,ptecx,4
@blocks:mov EBX,ESIEBX,10heCXeCX,16
@lines: push ESIAH,[EBX]eCXCL,4AH,CLECX,16
@bytes: lodsbAL,AH@byteseCXESIEBX@lineseCXESI,20h@blocksPopAll;;TGOSTEncryption.SetTable(p:TPExtTable);pt:TPExtTable;:=@ExtChTab;PushAllesi,pedi,ptecx,1024movsbPopAll;;TGOSTEncryption.SetKey(p:TPEncKey);pk:TPEncKey;:=@Key;PushAllesi,pedi,pkecx,32movsbPopAll;
end;.