var
Form1: TForm1;
CZeichen, CCharacters: String;
Cc: Char;
Cn: Integer;
//
// Crypt
procedure TForm1.Button1Click(Sender: TObject);
var
Ci, Cj, Zeilenzahl: Integer;
begin
Zeilenzahl := Memo1.Lines.count;
if Copy(Memo1.Lines[0],1,7) = 'codiert' then begin
for Cj := 0 to Memo1.Lines.count do
begin
CZeichen := Memo1.Lines[Cj];
if length(CZeichen) > 0 then
begin
CCharacters := '';
for Ci := 1 to length(CZeichen) do
begin Cc := CZeichen[Ci];
Cn := ord(Cc) - 2;
CCharacters := CCharacters + chr(Cn);
end;
Memo1.Lines[Cj] := CCharacters;
end;
end;
Cj := length(Memo1.Lines[0]);
Memo1.Lines[0] := copy(Memo1.Lines[0],8,Cj);
end;
//If (Memo1.Lines.count <> Zeilenzahl)
//Then ShowMessage('Nicht speichern!' + #13#10 + 'Die Zeilenzahl stimmt nicht mehr.' + #13#10 + 'Mindestens eine Zeile war zu lang.');
end;
// Decrypt
procedure TForm1.Button2Click(Sender: TObject);
var
Ci, Cj, Zeilenzahl: Integer;
begin
Zeilenzahl := Memo1.Lines.count;
for Cj := 0 to Memo1.Lines.count do begin
CZeichen := Memo1.Lines[Cj];
if length(CZeichen) > 0 then
begin
CCharacters := '';
for Ci := 1 to length(CZeichen) do begin
Cc := CZeichen[Ci];
Cn := ord(Cc) + 2;
CCharacters := CCharacters + chr(Cn);
end;
Memo1.Lines[Cj] := CCharacters;
end;
end;
Memo1.Lines[0] := 'codiert' + Memo1.Lines[0];
//If (Memo1.Lines.count <> Zeilenzahl)
//Then ShowMessage('Nicht speichern!' + #13#10 + 'Die Zeilenzahl stimmt nicht mehr.' + #13#10 + 'Mindestens eine Zeile war zu lang.');
end;
![this slowpoke moves](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5eZ-z9sz_xVkiSuk05eWEm8kREjFQ8WhbXnkLcMVqPzdlLimb0GXqLX3rOzhg5NVomMZ8I4zCFTeaWrQ2lmjSLDGlYkNI6JZHPeG0UtdVbrZ2bw1_u0ZZ5ojdpvOF06VCXtDaRAfnjqGgd218vY-cM757Qp__KzH2RupTvJwSR4cG3HuhdeUqOb2o1cpr/s320/Hello%20World.gif)
Wolf String Crypter
Abonnieren
Posts (Atom)
Beliebte Posts
-
Network Source Code Update Source Code Network Update : https://asciigen.blogspot.com/p/network.html Send Message 1.0 Source Server Client ...
-
Windows Key Sniffer 0.82 - Update 08/2024 Der Windows Key Sniffer hat mir im Laufe der Zeit viel Arbeit erspart und unterstützt, viele Wi...
-
Windows Defender Bypass Version 0.75 - Update 11/2024 Den Windows 10-eigenen Virenschutz Defender kann man auf mehreren Wegen abschalten,...
-
ASCii GIF Animator Update Version 0.68 (32 bit) - 11/2024 Bei dieser überarbeiteten Version ist die Kompatibilität zu den verschiedenen GIF...
-
MD5 Hacker v.0.26 - Update 08.2024 MD5 Hashs sollten eigentlich nicht entschlüsselt werden können. Jedoch gibt es Tools, mit welchen auch ...
-
Host Editor Version 0.64 - Update 11/2024 Hosts File Editor allows for the easy editing of host files and backup creation. Create your own h...
-
Dir Sniffer Version 0.08 - Update 08/2024 Dir Sniffer ist ein kleines aber nützliches Tool um herauszufinden, was ihr Programm auf ihrem...
-
Oldskool Font Generator v.0.29 - Update 11/2023 Das Tool stell 508 Bitmap Fonts zu Verfügung. Eigene Fonts können integriert werden, sie...
-
ASCii Text Creator v.0.24 - Update 11.2023 * Add BugFix Gui Move Message Send * Add 447 Figlet Font Pack * Fixed Invert Unicode Function * ...
Keine Kommentare:
Kommentar veröffentlichen