|
Kleines Verschlüsselungs-Programm
Liste der Anhänge anzeigen (Anzahl: 1)
Delphi-Quellcode:
Wer vorschläge hatt kann sie gerne Posten.
//(c) by Deltachaos (RedPlug.de.vu)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Printers, Menus, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi, Gauges; type TForm1 = class(TForm) GroupBox1: TGroupBox; Memo1: TMemo; GroupBox2: TGroupBox; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; Label4: TLabel; Button3: TButton; Button4: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; PrintDialog1: TPrintDialog; Label6: TLabel; Label7: TLabel; Button6: TButton; Label8: TLabel; GroupBox3: TGroupBox; MainMenu1: TMainMenu; Update1: TMenuItem; UpdateStarten1: TMenuItem; IdHTTP1: TIdHTTP; Datei1: TMenuItem; ffnen1: TMenuItem; Speichernunter1: TMenuItem; Drucken1: TMenuItem; Gauge1: TGauge; Gauge2: TGauge; procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure UpdateStarten1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure ffnen1Click(Sender: TObject); procedure Speichernunter1Click(Sender: TObject); procedure Drucken1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} const imax : integer = 65; iwait : integer = 500; //0.5 sec = 500ms var key1, key1a, key1b, key2, key2a, key2b, key3, key3a, key3b: string; procedure _var_; begin key1:= form1.edit1.text; key2:= form1.edit2.text; key3:= form1.edit3.text; key1a := Copy(key1,1,2); key1b := Copy(key1,3,4); key2a := Copy(key2,1,2); key2b := Copy(key2,3,4); key3a := Copy(key3,1,2); key3b := Copy(key3,3,4); end; procedure l; begin form1.gauge1.progress:=form1.gauge1.progress+1; end; procedure l1; begin form1.gauge2.progress:=form1.gauge2.progress+65; end; procedure l2; begin form1.gauge2.progress:=form1.gauge2.progress+33; end; procedure l2a; begin form1.gauge2.progress:=form1.gauge2.progress+32; end; procedure l3; begin form1.gauge2.progress:=form1.gauge2.progress+22; end; procedure l3a; begin form1.gauge2.progress:=form1.gauge2.progress+21; end; procedure code; begin form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=65; form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=100; begin form1.Memo1.text := stringreplace(form1.Memo1.text, '=', '[_0_]' , [rfReplaceAll]); l; form1.Memo1.text := stringreplace(form1.Memo1.text, ':', '[_-_]' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'a','th%6' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'A','th&%6' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'b','g' + key3b + 'fhu' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'B','gf' + key2a + '#hu' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'c','"' + key1a + 'bJs' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'C','"b' + key2a +'%Js' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'd','/' + key2b +'§jT' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'D','/§' + key3a + '?jT' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'e','&ast' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'E','&a{st' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'f','g@4[' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'F','g' + key2b + '@%4[' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g','JHG³' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'G','JH²³' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'h','&' + key3b +'%gd' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'H','&' + key1b + '%%gd' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'i','ß}' + key1a + '=47' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'I','ß' + key3a + '}=G47' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'j','&"' + key3a + '31' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'J','&"}31' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'k','&' + key1b + '%$2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'K','&%' + key3a + ')$2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'l','9v' + key1b + '45' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'L','9v' + key2a + '[45' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'm','oed' + key3b + '2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'M','oe' + key1b + 'dß2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'n','%' + key2a + '-93' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'N','%-;' + key1a + '93' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'o','jdS' + key2a +'t' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'O','jd' + key1b + '§St' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'p','%h'+ key2a +'te' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'P','%ht' + key2b + '!e' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'q','g' + key1a + 'h92' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Q','g' + key3a + 'h³92' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'r','th' + key3b + 'vg' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'R','th?' + key3b + 'vg' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 's','}\' + key2a + '23' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'S','}\d' + key1b + '³23' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 't','x' + key2b + 'J%"' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'T','xJ' + key1a + '$%"' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'u','²[' + key3b + 'g]{' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'U','²[g' + key2a + '&]{' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'v','ueb' + key3a + 'A' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'V','u²' + key2a + 'ebA' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'w','%&5' + key3a + '&' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'W','%&' + key1b + '=5&' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'x','g' + key2b + 'htz' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'X','gh{' + key1b + 'tz' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'y','(th' + key3a + '{G' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Y','(th!{' + key1a + 'G' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'z','³E' + key2b + '€w' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Z','³E€@' + key1a + 'w' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, ' ','[H$%³t]' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '1','Hß' + key1b + '!' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '2','Hß' + key1b + '"' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '3','Hß' + key1b + '§' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '4','Hß' + key1b + '$' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '5','Hß' + key1b + '%' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '6','Hß' + key1b + '&' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '7','Hß' + key1b + '/' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '8','Hß' + key1b + '(' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '9','Hß' + key1b + ')' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '0','Hß' + key1b + '=' , [rfReplaceAll]); l; end; form1.gauge1.progress:=0; end; procedure decode; begin form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=65; form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=65; begin form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '=','0' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + ')','9' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '(','8' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '/','7' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '&','6' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '%','5' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '$','4' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '§','3' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '"','2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '!','1' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '[H$%³t]',' ' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '³E€@' + key1a + 'w','Z' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '³E' + key2b + '€w','z' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '(th!{' + key1a + 'G','Y' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '(th' + key3a + '{G','y' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'gh{' + key1b + 'tz','X' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key2b + 'htz','x' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '%&' + key1b + '=5&','W' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '%&5' + key3a + '&','w' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'u²' + key2a + 'ebA','V' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'ueb' + key3a + 'A','v' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '²[g' + key2a + '&]{','U' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '²[' + key3b + 'g]{','u' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'xJ' + key1a + '$%"','T' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'x' + key2b + 'J%"','t' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '}\d' + key1b + '³23','S' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '}\' + key2a + '23','s' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'th?' + key3b + 'vg','R' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'th' + key3b + 'vg','r' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key3a + 'h³92','Q' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key1a + 'h92','q' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '%ht' + key2b + '!e','P' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '%h' + key2a + 'te','p' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'jd' + key1b + '§St','O' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'jdS' + key2a +'t','o' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '%-;' + key1a + '93','N' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '%' + key2a + '-93','n' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'oe' + key1b + 'dß2','M' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'oed' + key3b + '2','m' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '9v' + key2a + '[45','L' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '9v' + key1b + '45','l' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&%' + key3a + ')$2','K' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&' + key1b + '%$2','k' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&"}31','J' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&"' + key3a + '31','j' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'ß' + key3a + '}=G47','I' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'ß}' + key1a + '=47','i' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&' + key1b + '%%gd','H' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&' + key3b +'%gd','h' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'JH²³','G' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'JHG³','g' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key2b + '@%4[','F' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g@4[','f' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&a{st','E' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&ast','e' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '/§' + key3a + '?jT','D' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '/' + key2b +'§jT','d' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '"b' + key2a +'%Js','C' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '"' + key1a + 'bJs','c' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'gf' + key2a + '#hu','B' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key3b + 'fhu','b' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'th&%6','A' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'th%6','a' , [rfReplaceAll]); l; form1.Memo1.text := stringreplace(form1.Memo1.text, '[_-_]',':' , [rfReplaceAll]); l; form1.Memo1.text := stringreplace(form1.Memo1.text, '[_0_]','=' , [rfReplaceAll]); l; end; form1.gauge1.progress:=0; end; procedure TForm1.Button3Click(Sender: TObject); begin _var_; begin if form1.RadioButton1.Checked then begin begin code; l1; end; MessageDlg('Codieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin if form1.RadioButton2.Checked then begin; begin; code; l2; code; //ich weis das es zählschleifen gibt! :-) l2a; end; MessageDlg('Codieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin if form1.radiobutton3.checked then begin begin code; l3; code; l3; code; l3a; end; MessageDlg('Codieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; end; procedure TForm1.Button4Click(Sender: TObject); begin _var_; begin if form1.RadioButton1.Checked then begin begin decode; l1; end; MessageDlg('Decodieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin if form1.RadioButton2.Checked then begin; begin decode; l2; decode; //ich weis das es zählschleifen gibt! :-) l2a; end; MessageDlg('Decodieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin; if form1.radiobutton3.checked then begin begin decode; l3; decode; l3; decode; l3a; end; MessageDlg('Decodieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; end; procedure TForm1.Button6Click(Sender: TObject); begin memo1.Lines.Clear end; //Update Anfang //uses ShellApi; var prog_name: string; procedure TForm1.UpdateStarten1Click(Sender: TObject); var stream: TFileStream; version, version_p, prog_name_k, check_version: string; version_int, check_version_int: integer; text_dat: TextFile; begin showmessage('EnigmaD und Updateprogramm kehren wehrend dem Update' + #13#10 + 'In einen Zustandt in dem es nicht mehr Reagiert.' + #13#10 + 'Warten sie einfach ab. Sollte sich aber nach ungefähr 2 min kein' + #13#10 + 'Neues Fenster öffnen Starten sie Das Programm neu und Führen sie das Update erneut aus.' + #13#10 + 'Das Update Programm legt vor jedem Update ein Backup im Ordner /bak an!'); version:= '1001'; version_p:= '1.00.1'; prog_name_k:= 'enigmad'; prog_name:= 'EnigmaD'; version_int:= (StrToInt(version)); stream := TFilestream.create('ver_info.ini', fmcreate); form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/'+ prog_name_k +'/aktuelle_version.txt',stream); stream.Free; AssignFile(text_dat, 'ver_info.ini'); Reset(text_dat); Readln(text_dat, check_version); CloseFile(text_dat); check_version_int:= StrToInt(check_version); if (check_version_int > version_int) then begin stream := TFilestream.create('th_upd.exe',fmcreate ); try form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/'+ prog_name_k +'/th_upd.exe',stream); finally stream.Free; end; ShellExecute(Application.Handle,'open',PChar('th_upd.exe'),PChar('/UPDATE'),PChar(''),SC_DEFAULT); form1.close end; if (check_version_int <= version_int) then showmessage('Sie haben die aktuellste Version ('+ version_p +') von '+ prog_name); DeleteFile('ver_info.ini'); form1.Close; end; procedure TForm1.FormCreate(Sender: TObject); var version: string; begin MessageDlg('Diese Version von EnigmaD hatt immer noch leichte aber unwichtige Bugs' + #13#10 + '-----------------------------------------------------------------------------------------' + #13#10 + 'Bugs: Die Fortschrits Anzeige ist noch nicht Funktionstüchtig.' + #13#10 + '-----------------------------------------------------------------------------------------' + #13#10 + 'Bitte haben Sie Verständniss',mtWarning , [mbOK], 0); if ParamCount > 0 then if UpperCase(ParamStr(1)) = '/UPDATE' then begin DeleteFile('th_upd.exe'); DeleteFile('unrar.dll'); DeleteFile('ver_info.ini'); version:= UpperCase(ParamStr(2)); showmessage('' + prog_name +' wurde auf Version ' + version + ' aktualisiert.') end; end; //update Ende procedure TForm1.ffnen1Click(Sender: TObject); begin if OpenDialog1.Execute then TRY Memo1.Lines.Loadfromfile(OpenDialog1.Filename); EXCEPT MessageDlg('Es ist ein Fehler beim Laden der Datei aufgetreten!', mtError, [mbOk], 0) end; end; procedure TForm1.Speichernunter1Click(Sender: TObject); begin if SaveDialog1.Execute then TRY Memo1.Lines.SavetoFile(SaveDialog1.Filename); EXCEPT MessageDlg('Es ist ein Fehler beim speichern der Datei aufgetreten!', mtError, [mbOk], 0) END; end; procedure TForm1.Drucken1Click(Sender: TObject); begin with Printer do begin BeginDoc; Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200), 200, 200, Memo1.Lines.Text); EndDoc; end; MessageDlg('Druckauftrag wurde gesendet!', mtinformation, [mbOk], 0); end; end. |
Re: Kleines Verschlüsselungs-Programm
Warum postest du hier über 600 Zeilen Quellcode?
|
Re: Kleines Verschlüsselungs-Programm
ich hab zufaellig was gesehen
Delphi-Quellcode:
begin;
if form1.radiobutton3.checked then begin begin < warum? decode; l3; decode; l3; decode; l3a; end; MessageDlg('Decodieren erfolgreich beendet', < beendet, aber auch wirklich erfolgreich? mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; |
Re: Kleines Verschlüsselungs-Programm
Ich auch:
Delphi-Quellcode:
Vorher weißt du, dass das Dokument an den Drucker gesendet wurde? Wie überprüfst du das?
with Printer do
begin BeginDoc; Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200), 200, 200, Memo1.Lines.Text); EndDoc; end; MessageDlg('Druckauftrag wurde gesendet!', mtinformation, [mbOk], 0); |
Re: Kleines Verschlüsselungs-Programm
dein programm ist total unübersichtlich und praktisch nicht zu warten. weshalb verwendest du globale variablen? modularisiere es mal und übergib die daten, welche du benötigst als parameter. dann wird vielleicht 'n schuh draus.
<HTH> |
Re: Kleines Verschlüsselungs-Programm
Zitat:
Zitat:
Es ist eben immer noch eine Beta Version |
Re: Kleines Verschlüsselungs-Programm
Hallo!
Ich finde du hast dir Mühe gegeben aber die Entropie von deinem quelltext ist sehr gering :pale: Vielleicht solltest du das programm nochmals schreiben und aufpassen, dass du ähnliche Sachen zusammenfasst nicht immer nur Ctrl+C Ctrl+V :gruebel: Liebe Grüsse Laufi |
Re: Kleines Verschlüsselungs-Programm
noch was, was ins auge sticht :)
in deiner 'code' und 'decode' prozedur finde ich vielmals folgende zeilen:
Delphi-Quellcode:
wie waere es, wenn du eine kleine prozedur schreibst, in der du nur parameter zwei und drei deiner bisherigen string replace funktion uebergibst? von mir aus auch noch dein TMemo objekt
form1.Memo1.text := stringreplace(form1.Memo1.text, '=', '[_0_]' , [rfReplaceAll]);
l;
Delphi-Quellcode:
was aber noch besser ist:
procedure strrep(const s1, s2: String; memo: TMemo);
begin memo.Text := StringReplace(Memo.text, s1, s2 , [rfReplaceAll]); l; end; //aufruf: strrep('=', '[_0_], Memo1);
Delphi-Quellcode:
so kannst du ggf. deine zeichen einfach und ohne großen aufwand aendern.
const
orig: array[0..3] of String = ('a', 'b', 'c', 'd'); new: array[0..3] of String = ('d', 'c', 'b', 'a'); var i: LongInt; begin for i := 0 to high(orig) do strrep(orig[i], new[i], memo1); //strrep bezogen auf die obige strrep prozedur außerdem finde ich deine l prozedur usw. auch nicht gerade guenstig. vll. bietet sich auch hier sowas aehnliches an:
Delphi-Quellcode:
so hat es der, der deinen quelltext lesen will viel leichter
procedure IncGauge(g: TGauge; i: LongInt = 1);
begin g.progress := g.progress + i; end; //aufruf IncGauge(gauge1); IncGauge(gauge1, 20); |
Re: Kleines Verschlüsselungs-Programm
Liste der Anhänge anzeigen (Anzahl: 1)
Ich habe jetzt auch die Proggressbar durch diese "Gauge" ersätzt gefällt mir irgendwie besser und finde ich mit der Prozentanzeige auch Benutzerfreundlicher.
Auserdem Par Rechtschreibfehler korigirt.
Delphi-Quellcode:
Was ist "Entropie"? :cyclops:
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Printers, Menus, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi, Gauges; type TForm1 = class(TForm) GroupBox1: TGroupBox; Memo1: TMemo; GroupBox2: TGroupBox; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; Label4: TLabel; Button3: TButton; Button4: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; PrintDialog1: TPrintDialog; Label6: TLabel; Label7: TLabel; Button6: TButton; Label8: TLabel; GroupBox3: TGroupBox; MainMenu1: TMainMenu; Update1: TMenuItem; UpdateStarten1: TMenuItem; IdHTTP1: TIdHTTP; Datei1: TMenuItem; ffnen1: TMenuItem; Speichernunter1: TMenuItem; Drucken1: TMenuItem; Gauge1: TGauge; Gauge2: TGauge; procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure UpdateStarten1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure ffnen1Click(Sender: TObject); procedure Speichernunter1Click(Sender: TObject); procedure Drucken1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; implementation {$R *.dfm} const imax : integer = 65; iwait : integer = 500; //0.5 sec = 500ms var key1, key1a, key1b, key2, key2a, key2b, key3, key3a, key3b: string; procedure _var_; begin key1:= form1.edit1.text; key2:= form1.edit2.text; key3:= form1.edit3.text; key1a := Copy(key1,1,2); key1b := Copy(key1,3,4); key2a := Copy(key2,1,2); key2b := Copy(key2,3,4); key3a := Copy(key3,1,2); key3b := Copy(key3,3,4); end; procedure l; begin form1.gauge1.progress:=form1.gauge1.progress+1; end; procedure code; begin form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=100; form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=100; begin form1.Memo1.text := stringreplace(form1.Memo1.text, '=', '[_0_]' , [rfReplaceAll]); l; form1.Memo1.text := stringreplace(form1.Memo1.text, ':', '[_-_]' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'a','th%6' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'A','th&%6' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'b','g' + key3b + 'fhu' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'B','gf' + key2a + '#hu' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'c','"' + key1a + 'bJs' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'C','"b' + key2a +'%Js' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'd','/' + key2b +'§jT' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'D','/§' + key3a + '?jT' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'e','&ast' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'E','&a{st' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'f','g@4[' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'F','g' + key2b + '@%4[' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g','JHG³' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'G','JH²³' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'h','&' + key3b +'%gd' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'H','&' + key1b + '%%gd' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'i','ß}' + key1a + '=47' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'I','ß' + key3a + '}=G47' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'j','&"' + key3a + '31' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'J','&"}31' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'k','&' + key1b + '%$2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'K','&%' + key3a + ')$2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'l','9v' + key1b + '45' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'L','9v' + key2a + '[45' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'm','oed' + key3b + '2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'M','oe' + key1b + 'dß2' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'n','%' + key2a + '-93' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'N','%-;' + key1a + '93' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'o','jdS' + key2a +'t' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'O','jd' + key1b + '§St' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'p','%h'+ key2a +'te' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'P','%ht' + key2b + '!e' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'q','g' + key1a + 'h92' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Q','g' + key3a + 'h³92' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'r','th' + key3b + 'vg' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'R','th?' + key3b + 'vg' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 's','}\' + key2a + '23' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'S','}\d' + key1b + '³23' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 't','x' + key2b + 'J%"' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'T','xJ' + key1a + '$%"' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'u','²[' + key3b + 'g]{' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'U','²[g' + key2a + '&]{' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'v','ueb' + key3a + 'A' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'V','u²' + key2a + 'ebA' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'w','%&5' + key3a + '&' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'W','%&' + key1b + '=5&' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'x','g' + key2b + 'htz' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'X','gh{' + key1b + 'tz' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'y','(th' + key3a + '{G' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Y','(th!{' + key1a + 'G' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'z','³E' + key2b + '€w' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Z','³E€@' + key1a + 'w' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, ' ','[H$%³t]' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '1','Hß' + key1b + '!' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '2','Hß' + key1b + '"' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '3','Hß' + key1b + '§' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '4','Hß' + key1b + '$' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '5','Hß' + key1b + '%' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '6','Hß' + key1b + '&' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '7','Hß' + key1b + '/' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '8','Hß' + key1b + '(' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '9','Hß' + key1b + ')' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '0','Hß' + key1b + '=' , [rfReplaceAll]); l; l; end; form1.gauge1.progress:=0; end; procedure decode; begin form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=65; form1.gauge2.MinValue:=0; form1.gauge2.MaxValue:=65; begin l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '=','0' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + ')','9' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '(','8' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '/','7' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '&','6' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '%','5' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '$','4' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '§','3' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '"','2' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'Hß' + key1b + '!','1' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '[H$%³t]',' ' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '³E€@' + key1a + 'w','Z' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '³E' + key2b + '€w','z' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '(th!{' + key1a + 'G','Y' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '(th' + key3a + '{G','y' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'gh{' + key1b + 'tz','X' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key2b + 'htz','x' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '%&' + key1b + '=5&','W' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '%&5' + key3a + '&','w' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'u²' + key2a + 'ebA','V' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'ueb' + key3a + 'A','v' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '²[g' + key2a + '&]{','U' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '²[' + key3b + 'g]{','u' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'xJ' + key1a + '$%"','T' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'x' + key2b + 'J%"','t' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '}\d' + key1b + '³23','S' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '}\' + key2a + '23','s' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'th?' + key3b + 'vg','R' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'th' + key3b + 'vg','r' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key3a + 'h³92','Q' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key1a + 'h92','q' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '%ht' + key2b + '!e','P' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '%h' + key2a + 'te','p' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'jd' + key1b + '§St','O' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, 'jdS' + key2a +'t','o' , [rfReplaceAll]); l; l; form1.memo1.text := StringReplace(form1.memo1.text, '%-;' + key1a + '93','N' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '%' + key2a + '-93','n' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'oe' + key1b + 'dß2','M' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'oed' + key3b + '2','m' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '9v' + key2a + '[45','L' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '9v' + key1b + '45','l' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&%' + key3a + ')$2','K' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&' + key1b + '%$2','k' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&"}31','J' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&"' + key3a + '31','j' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'ß' + key3a + '}=G47','I' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'ß}' + key1a + '=47','i' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&' + key1b + '%%gd','H' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&' + key3b +'%gd','h' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'JH²³','G' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'JHG³','g' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key2b + '@%4[','F' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g@4[','f' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&a{st','E' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '&ast','e' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '/§' + key3a + '?jT','D' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '/' + key2b +'§jT','d' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '"b' + key2a +'%Js','C' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, '"' + key1a + 'bJs','c' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'gf' + key2a + '#hu','B' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'g' + key3b + 'fhu','b' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'th&%6','A' , [rfReplaceAll]); l; form1.memo1.text := StringReplace(form1.memo1.text, 'th%6','a' , [rfReplaceAll]); l; form1.Memo1.text := stringreplace(form1.Memo1.text, '[_-_]',':' , [rfReplaceAll]); l; form1.Memo1.text := stringreplace(form1.Memo1.text, '[_0_]','=' , [rfReplaceAll]); l; end; form1.gauge1.progress:=0; end; procedure TForm1.Button3Click(Sender: TObject); begin _var_; begin if form1.RadioButton1.Checked then begin code; form1.gauge2.progress:=form1.gauge2.progress+100; MessageDlg('Codieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin if form1.RadioButton2.Checked then begin; code; form1.gauge2.progress:=form1.gauge2.progress+50; code; //ich weis das es zählschleifen gibt! :-) form1.gauge2.progress:=form1.gauge2.progress+50; MessageDlg('Codieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin if form1.radiobutton3.checked then begin code; form1.gauge2.progress:=form1.gauge2.progress+33; code; form1.gauge2.progress:=form1.gauge2.progress+33; code; form1.gauge2.progress:=form1.gauge2.progress+34; MessageDlg('Codieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; end; procedure TForm1.Button4Click(Sender: TObject); begin _var_; begin if form1.RadioButton1.Checked then begin decode; form1.gauge2.progress:=form1.gauge2.progress+100; MessageDlg('Decodieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin if form1.RadioButton2.Checked then begin; decode; form1.gauge2.progress:=form1.gauge2.progress+50; decode; //ich weis das es zählschleifen gibt! :-) form1.gauge2.progress:=form1.gauge2.progress+50; MessageDlg('Decodieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; begin; if form1.radiobutton3.checked then begin decode; form1.gauge2.progress:=form1.gauge2.progress+33; decode; form1.gauge2.progress:=form1.gauge2.progress+33; decode; form1.gauge2.progress:=form1.gauge2.progress+34; MessageDlg('Decodieren erfolgreich beendet', mtinformation, [mbOk], 0); form1.gauge2.progress:=0; end; end; end; procedure TForm1.Button6Click(Sender: TObject); begin memo1.Lines.Clear end; //Update Anfang //uses ShellApi; var prog_name: string; procedure TForm1.UpdateStarten1Click(Sender: TObject); var stream: TFileStream; version, version_p, prog_name_k, check_version: string; version_int, check_version_int: integer; text_dat: TextFile; begin showmessage('EnigmaD und Updateprogramm kehren während des Updates in einen Zusatnd, in dem es nicht mehr reagiert.' + #10 + 'Warten Sie einfach ab!' + #10 + 'Sollte sich aber nach ungefähr 2 Minuten kein neues Fenster öffnen, starten Sie das Programm neu und führen Sie das Update erneut aus.' + #10 + 'Das Update-Programm legt vor jedem Update ein Backup im Ordner /bak an!'); version:= '1002'; version_p:= '1.00.2'; prog_name_k:= 'enigmad'; prog_name:= 'EnigmaD'; version_int:= (StrToInt(version)); stream := TFilestream.create('ver_info.ini', fmcreate); form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/'+ prog_name_k +'/aktuelle_version.txt',stream); stream.Free; AssignFile(text_dat, 'ver_info.ini'); Reset(text_dat); Readln(text_dat, check_version); CloseFile(text_dat); check_version_int:= StrToInt(check_version); if (check_version_int > version_int) then begin stream := TFilestream.create('th_upd.exe',fmcreate ); try form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/'+ prog_name_k +'/th_upd.exe',stream); finally stream.Free; end; ShellExecute(Application.Handle,'open',PChar('th_upd.exe'),PChar('/UPDATE ' + version_p),PChar(''),SC_DEFAULT); form1.close end; if (check_version_int <= version_int) then begin showmessage('Sie haben die aktuellste Version ('+ version_p +') von '+ prog_name); DeleteFile('ver_info.ini'); end; end; procedure TForm1.FormCreate(Sender: TObject); var version: string; begin if ParamCount > 0 then if UpperCase(ParamStr(1)) = '/UPDATE' then begin DeleteFile('th_upd.exe'); DeleteFile('unrar.dll'); DeleteFile('ver_info.ini'); version:= UpperCase(ParamStr(2)); showmessage('' + prog_name +' wurde auf Version ' + version + ' aktualisiert.') end; end; //update Ende procedure TForm1.ffnen1Click(Sender: TObject); begin if OpenDialog1.Execute then TRY Memo1.Lines.Loadfromfile(OpenDialog1.Filename); EXCEPT MessageDlg('Es ist ein Fehler beim Laden der Datei aufgetreten!', mtError, [mbOk], 0) end; end; procedure TForm1.Speichernunter1Click(Sender: TObject); begin if SaveDialog1.Execute then TRY Memo1.Lines.SavetoFile(SaveDialog1.Filename); EXCEPT MessageDlg('Es ist ein Fehler beim speichern der Datei aufgetreten!', mtError, [mbOk], 0) END; end; procedure TForm1.Drucken1Click(Sender: TObject); begin with Printer do begin BeginDoc; Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200), 200, 200, Memo1.Lines.Text); EndDoc; end; MessageDlg('Druckauftrag wurde gesendet!', mtinformation, [mbOk], 0); end; end. Das mit dem ändern der "code" und "decode" procedure musst du mir noch genauer erklären. EnigmaD ist mein erstes Richtiges (sinfolles) Programm. kleine Frage nebenbei: wie Kann ich überprüfen ob eine internetverbindung besteht? Ich habs schon mit
Delphi-Quellcode:
versucht aber das ist net das wahre
if not form1.idhttp1.Get('http://redplug.re.funpic.de/dlw/'+ prog_name_k +'/aktuelle_version.txt',stream) then
showmessage('Bitte überprüfen sie ihre internetverbindung'); |
Re: Kleines Verschlüsselungs-Programm
|
| Alle Zeitangaben in WEZ +1. Es ist jetzt 10:55 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz
