this slowpoke moves

Wolf String Crypter

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;

Keine Kommentare:

Kommentar veröffentlichen

Beliebte Posts

Translate