AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Was bedeutet dieser Quellcode ? --- Verschlüsselungprogramm
Thema durchsuchen
Ansicht
Themen-Optionen

Was bedeutet dieser Quellcode ? --- Verschlüsselungprogramm

Offene Frage von "Freak1993"
Ein Thema von Freak1993 · begonnen am 4. Jan 2010 · letzter Beitrag vom 4. Jan 2010
 
Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Was bedeutet dieser Quellcode ? --- Verschlüsselungprogr

  Alt 4. Jan 2010, 17:46
Zitat von Freak1993:
Hi,

ich hab mal ne Frage, da ich letztens im Intenet nach Verschlüsselungssoftware gesucht habe bin ich auf die Idee gekommen selbst ein kleines Prog zu programmieren. Da bin ich dann auf diesen Code gestoßen :
Delphi-Quellcode:
 procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
i : integer;
begin
  s:=Memo1.Text;
  for i:=1 to length(s) do
    s[i]:=char(22 Xor Ord(s[i]));
    Memo2.text := s;
end;

Kann mir vielleicht jemand sagen, was er aussagt ?
XOR...Wikipedia...aber nebenbei...Du verschluesselst die Datei(jedes einzelne Byte) mit "22"..beim entschluesseln musst Du dann nur wieder mit "XOR 22" die Datei herstellen.
damit ist der Inhalt ueber einen Texteditor nicht lesbar und somit nur mit Programm sichtbar zu machen.
Gruss Kaki

Repeat Until true=false;
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz