|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Windows завершает работу программы
Здравствуйте, программу переписал уже раз 10. менял всё с нуля. каждый раз ошибка. вкратце: прога создает или загружает ключ, потом цепляет файл и шифрует его, записывая в "crypted.dat". но после успешной компиляции, после того как выбираю файл и нажимаю СТАРТ (шифрование), windows завершает работу программы. подскажите кто может.
Код:
unit Unit1; interface uses math,Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; OpenDialog1: TOpenDialog; Edit1: TEdit; Label2: TLabel; Button2: TButton; Edit2: TEdit; Button3: TButton; Label3: TLabel; Edit3: TEdit; Button4: TButton; OpenDialog2: TOpenDialog; Edit4: TEdit; Button5: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; cryptkey:file of byte; key,keygen:array[0..9] of byte; OpenF,CloseF:TFileStream; f2:textfile; keyround:array[0..31] of int64; x16,x161:byte; toEdit2:string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var filekey:tfilestream; i:byte; begin randomize; filekey:=Tfilestream.Create('key.txt',fmCreate); filekey.Position:=0; Edit2.Text:=''; for i:=0 to 9 do begin key[i]:=random(255); filekey.Write(key[i],sizeof(key[i])); //отображение ключа в 16-ричной системе -> x16:=key[i] div 16; x161:=key[i] mod 16; if (x16 < 10) then toEdit2:=inttostr(x16) else case x16 of 10: toedit2:='A'; 11: toedit2:='B'; 12: toedit2:='C'; 13: toedit2:='D'; 14: toedit2:='E'; 15: toedit2:='F'; end; if (x161 < 10) then toEdit2:=toedit2 + inttostr(x161) else case x161 of 10: toedit2:=toedit2 + 'A'; 11: toedit2:=toedit2 + 'B'; 12: toedit2:=toedit2 + 'C'; 13: toedit2:=toedit2 + 'D'; 14: toedit2:=toedit2 + 'E'; 15: toedit2:=toedit2 + 'F'; end; Edit2.Text:=Edit2.Text + '$' + toedit2 + ' '; end; // <- отображение ключа в 16-ричной системе filekey.Free; end; procedure TForm1.Button2Click(Sender: TObject); begin if OpenDialog1.Execute=true then Edit1.Text:=OpenDialog1.FileName; OpenDialog1.FreeOnRelease; end; procedure TForm1.Button3Click(Sender: TObject); var help:int64; fin,fout: array[0..10000000] of int64; s,s1,bs,bs1,nom,buf8,razmerhvosta:byte; keyi:file of byte; massiv:string; round:byte; razmer,num,change,i1,sxor:int64; sizefile,ifile:longint; const sbox:array [0..15] of byte=(5,14,15,8,12,1,2,13,11,4,6,3,0,7,9,10); pbox:array [0..63] of byte = (0,4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,1, 5,9,13,17,21,25,29,33,37,41,45,49,53,57, 61,2,6,10,14,18,22,26,30,34,38,42,46,5,54,58, 62,3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63); begin for round:=0 to 31 do begin //Генерация раундовых подлкючей for s1:=0 to 7 do begin help:=key[s1]; help:=help shl 8*(7-s1); keyround[round]:=keyround[round]+help; end; keygen[0]:=key[7] shl 5; keygen[0]:=keygen[0]+(key[8] shr 3); keygen[1]:=key[8] shl 5; keygen[1]:=keygen[1]+(key[9] shr 3); keygen[2]:=key[9] shl 5; keygen[2]:=keygen[2]+(key[0] shr 3); keygen[3]:=key[0] shl 5; keygen[3]:=keygen[3]+(key[1] shr 3); keygen[4]:=key[1] shl 5; keygen[4]:=keygen[4]+(key[2] shr 3); keygen[5]:=key[2] shl 5; keygen[5]:=keygen[5]+(key[3] shr 3); keygen[6]:=key[3] shl 5; keygen[6]:=keygen[6]+(key[4] shr 3); keygen[7]:=key[4] shl 5; keygen[7]:=keygen[7]+(key[5] shr 3); keygen[8]:=key[5] shl 5; keygen[8]:=keygen[8]+(key[6] shr 3); keygen[9]:=key[6] shl 5; keygen[9]:=+keygen[9]+(key[7] shr 3); for s1:=0 to 9 do key[s1]:=keygen[s1]; buf8:=key[0] shr 4; buf8:=buf8 shl 4; key[0]:=(key[0] shl 4) shr 4; key[0]:=key[0] + buf8; buf8:=round shr 1; key[7]:=key[7] xor buf8; buf8:=round shl 7; key[8]:=key[8] xor buf8; buf8:=0; end; // Генерация раундовых подключей //Загрузка файла OpenF:=TFileStream.Create(Edit1.Text,fmOpenRead); OpenF.Position:=0; razmer:=OpenF.Size; change:= razmer div 8; s1:=0; for round:=0 to change do begin i1:=0; for s1:=round to 7 do begin i1:=OpenF.Read(i1,1); i1:=i1 shl (8*(7-s1)); fin[round]:=fin[round]+i1; end; end; razmerhvosta:=razmer-(change*8); if (razmerhvosta<>0) then begin round:=round+1; for s1:=0 to razmerhvosta do begin i1:=OpenF.Read(i1,1); i1:=i1 shl (8*(7-s1)); fin[round]:=fin[round]+i1; end; end; //Загрузка файла for ifile:=0 to round do //Шифрование begin //SP-сеть fout[ifile]:=0; change:=0; for s1:=0 to 30 do begin fin[ifile]:=fin[ifile] xor keyround[ifile]; for s:=0 to 15 do //S-замена begin change:=fin[ifile] shl (s*4); change:=change shr 60; buf8:=change; buf8:=sbox[buf8]; change:=buf8; change:=change shl (60-(s*4)); change:=change+((fin[ifile] shr (64-(s*4))) shl (64-(s*4))); change:=change+((fin[ifile] shl (4+(s*4))) shr (4+(s*4))); end; //S-замена for s:=0 to 63 do //P-перестановка begin change:=fin[ifile] shr (63-s); change:=change shl 63; change:=change shr pbox[s]; fout[ifile]:=fout[ifile]+change; end; //P-перестановка end; //SP-сеть fout[num]:=fout[num] xor keyround[31]; //необходимо выходной блок проксорить с 31 подключом!!! end; //Шифрование CloseF:=Tfilestream.Create('crypted.dat',fmCreate); for ifile:=0 to round do CloseF.Write('crypted.dat',fout[ifile]); OpenF.Free; CloseF.Free; end; procedure TForm1.Button4Click(Sender: TObject); var ikey,bufkey:byte; begin if OpenDialog2.Execute then Edit3.Text:=OpenDialog2.FileName; OpenDialog2.FreeOnRelease; AssignFile(f2,Edit3.Text); Reset(f2); ikey:=0; while not eof(f2) do begin Read(f2,bufkey); key[ikey]:=bufkey; ikey:=ikey + 1; end; end; procedure TForm1.Button5Click(Sender: TObject); var s23:integer; begin for s23 := 0 to 9 do begin Edit4.Text:=edit4.Text + ' '; x16:=key[s23] div 16; x161:=key[s23] mod 16; if (x16 < 10) then toEdit2:=inttostr(x16) else case x16 of 10: toedit2:='A'; 11: toedit2:='B'; 12: toedit2:='C'; 13: toedit2:='D'; 14: toedit2:='E'; 15: toedit2:='F'; end; if (x161 < 10) then toEdit2:=toedit2 + inttostr(x161) else case x161 of 10: toedit2:=toedit2 + 'A'; 11: toedit2:=toedit2 + 'B'; 12: toedit2:=toedit2 + 'C'; 13: toedit2:=toedit2 + 'D'; 14: toedit2:=toedit2 + 'E'; 15: toedit2:=toedit2 + 'F'; end; Edit4.Text:=Edit4.Text + '$' + toedit2 + ' '; end; Edit4.Visible:=true; end; end. |
#2
|
|||
|
|||
Если поможет
|
#3
|
|||
|
|||
Во-первых, есть такая встроенная функция IntToHex.
Во-вторых. Обычно винда "срубает" программу когда происходит попытка записи в защищенную область памяти. Скорее всего это результат того, что у тебя какой-либо указатель не инициализируется или происходит выход за пределы массива, что не проверяется. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
vankai14 (27.05.2014)
|
#4
|
|||
|
|||
скорее всего вот это располагается в стеке
fin,fout: array[0..10000000] of int64; вытащите в глобалы |
Этот пользователь сказал Спасибо icWasya за это полезное сообщение: | ||
vankai14 (27.05.2014)
|
#5
|
|||
|
|||
Цитата:
Спасибо! не вылетает))) только теперь проблема другая... зашифрованный файл получается размером 100 Мегабайт из исходного 1 килобайт(( |
#6
|
|||
|
|||
А что и сколько Вы пишете здесь ?
Код:
CloseF.Write('crypted.dat',fout[ifile]); |