1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117
|
{$M 8024,0,655360}
uses bsd_unit,bsd_Objects,bsd_strings,bsd_dlg;
Var Form1 :Forms;
Info1,Info2,
CryptingKey :TMaskEdit;
EnCrypt,Clear,Browse,CryptFile
:Button;
Labels :Array [0..4] Of TLabel;
Progress1:TProgressBar;
procedure EnCryptDeCryptBtn;
begin
Info2^.Text:=EnCryptDeCrypt(Info1^.Text,StrToInt(CryptingKey^.Text));
Form1.UpDateEdit(Info2);
end;
procedure ClearBtn;
begin
Form1.ClearEdit(Info1);
Form1.ClearEdit(Info2);
end;
procedure CallDlg;
begin
Form1.Form^.Status:=Browser(GetSelectedFile);
Form1.UpdateStatus
end;
procedure CallCrp1;
var F1,
F2:File Of Char;
X:String;
B : Char;
i,L : Word;
begin
if not FileExists(Form1.Form^.Status) then
MessageDlg('Erreur !',_CRLF_+_CRLF_+
' Erreur d''ouvٹrture du fichier !'+_CRLF_+
'Nom du rpertoir ou du fichier incorrect, ou fichier inxistant.',mtError,'$OK$')
else begin
Assign(F1,Form1.Form^.Status);
ReSet(F1);
Assign(F2,GetActualDirectory+'New.CRP');
ReWrite(F2);
Progress1^.Pos:=0;
Form1.UpdateProgressBar(Progress1);
While Not Eof(F1) Do
BEGIN
if Progress1^.Pos<>(FilePos(F1)*100)Div FileSize(F1)
then begin
Progress1^.Pos:=(FilePos(F1)*100)Div FileSize(F1);
Form1.UpdateProgressBar(Progress1);
end;
X:='';
repeat
Read(F1,B);
X:=X+B;
until (Length(X)=255)or(Eof(F1));
L:=Length(X);
X:=EnCryptDeCrypt(X,0);
for i:=1 to L do Write(F2,X[i]);
END;
Close(F1);
Close(F2);
Progress1^.Pos:=100;
Form1.UpdateProgressBar(Progress1);
MessageDlg('Finished','OK',mtInformation,'');
end
end;
procedure Form1_Obj;
begin With Form1 Do Begin
InitProgressBar(Progress1,7,75,45,100,0,clWhite,clBlack,clWhRed,True,'All Progress:','%');
NewButton(EnCrypt,48,74,27,27,True,clGray,clWhite,clBlack,True,'[C]rypter/DeCrypter',@EnCryptDeCryptBtn);
NewButton(Clear,32,45,27,27,True,clGray,clWhite,clBlack,True,'[E]ffacer',@ClearBtn);
NewButton(Browse,54,74,35,35,True,clGray,clWhite,clBlack,True,'[P]arcourir',@CallDlg);
NewButton(CryptFile,52,76,38,38,True,clGray,clWhite,clBlack,True,'Crypter / DeCrypter',@CallCrp1);
InitEdit(Info1,'#',8,74,10,14,clGray,clBlack,clWhite,clBlack,
'Entrez Votre Text Ici..',' L''[i]nformation a traiter..',@Read_Edit);
InitEdit(Info2,'#',8,74,19,23,clGray,clBlack,clWhite,clBlack,
'',' Le [r]sultat de l''opration..',@Read_Edit);
InitEdit(CryptingKey,'9',13,20,30,30,clGray,clBlack,clWhite,clBlack,
'5555555','',@Read_Edit);
InitLabel(Labels[0],10,28,clWhite,clBlack,' La Cl, ');
InitLabel(Labels[1],5,34,clWhite,clBlack,' Entrez Dans Les Zones De Saisies Et Faites, ');
InitLabel(Labels[2],10,36,clWhite,clBlack,' CTRL+C, Pour Copier ');
InitLabel(Labels[3],10,37,clWhite,clBlack,' CTRL+V, Pour Coller ');
InitLabel(Labels[4],10,38,clWhite,clBlack,' CTRL+X, Pour Couper ');
MultiEvents:=True;
EnableArrowKeys:=False;
With Form^ Do Begin
clFace :=clGray;
clTXT :=clWhite;
clBK :=clRed;
FillStyle :=7;
EnableStatus :=True;
Caption :=_TAB_+' Le Cryptage..';
About :=_CRLF_+
'Exemple d''application pour Crypter les informations..,'+_CRLF_+_CRLF_+
'Pour plus d''information visitez :'+_CRLF_+_CRLF_+_CRLF_+_TAB_+HomePage+_CRLF_+_CRLF_+_TAB_+_TAB_+
'(C)2006 February.';
Help :=_CRLF_+
' Exemple d''application,';
End
End
end;
begin
Application.CreateForm(@Form1,@Form1_Obj);
Application.Execute(@Form1);
end. |
Partager