Tekst kryptering

Der er mange former for kryptering, der er nogen der er næsten umulige at bryde og så er der nogen der kan knækkes på få øjeblikke. Her er et eksempel på xor9, det er den der blev brugt i konkurrencen fra i går:

procedure TForm1.Button1Click(Sender: TObject);
var
 s:String;
 t:integer;
begin
 s:=memo1.text;
 for t:=1 to length(s) do
  s[t]:=chr(byte(s[t]) xor 9);
 memo1.Text:=s;
end;

Teksten du vil kryptere placere du i memo1, trykker på knappen og den krypterede tekst er i memo1. Hvis du vil dekryptere trykker du bare på knappen igen.

Hvis du vil vide mere om kryptering, kan du besøge denne gruppe:

http://www.udvikleren.dk/groups/?gid=120

MvH

Stefan Svensson
http://fusket.frac.dk

Hvordan kryptere og dekryptere jeg en fil? (filen indeholder kun ren teskt).

Hvis du vil kryptere en tekst så brug den her kode:

[pre9
var
A: TStrings;
B,C,D: String;
i,j,k: Integer;
begin
A := TStringList.Create;
A.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');
D := inputbox('Enter a Password','Secure this file with a password','default');
J := 1;
for i := 1 to length(A.Text)do
begin
k := ord(A.Text)+ord(D[j]);
if K > 255 then
K := K - 255;
if J = Length(D) then
J := 1
else
J := J+1;
C := C + chr(K);
end;
A.Text := C;
deletefile(extractfilepath(application.exename)+'Testing.Bac');
A.SaveToFile(extractfilepath(application.exename)+'Testing.Bac');
memo1.Lines.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');
[/pre]

Du skal lave et memo felt, så laver scriptet en temp fil og kryptere den hvor efter den gemmer den som en rigtig fil.

Hvis du vil dekryptere den:

var
 A: TStrings;
 B,C,D: String;
 i,j,k: Integer;
begin
 A := TStringList.Create;
 A.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');
 D := inputbox('Enter Password','We need your password','Default');
 J := 1;
 for i := 1 to length(A.Text)do
  begin
  k := ord(A.Text[i])-ord(D[j]);
  if K <1 then
   K := K + 255;
  if J = Length(D) then
   J := 1
  else
   J := J+1;
  C := C + chr(K);
  end;
 A.Text := C;
 A.Delete(A.Count-1);
 A.SaveToFile(extractfilepath(application.exename)+'Testing.Bac');
 memo1.Lines.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');

Den gør næsten det samme bare modsat.

Med venlig hilsen
Frede_Manden

Der er mange former for kryptering, der er nogen der er næsten umulige at bryde og så er der nogen der kan knækkes på få øjeblikke. Her er et eksempel på xor9, det er den der blev brugt i konkurrencen fra i går:

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
 s:String;
 t:integer;
begin
 s:=memo1.text;
 for t:=1 to length(s) do
  s[t]:=chr(byte(s[t]) xor 9);
 memo1.Text:=s;
end;

Hej
Jeg er ret ny med brug af delphi.
Har afprøvet jeres kryptering af file.

Men i linjen: k := ord(A.Text)+ord(D[j]); lige efter A.Text) for jeg en fejlmeddelse som: Incompatible type. Hvad skal der gøres her?

Mvh og god jul
Monie Jacobsen



Teksten du vil kryptere placere du i memo1, trykker på knappen og den krypterede tekst er i memo1. Hvis du vil dekryptere trykker du bare på knappen igen.

Hvis du vil vide mere om kryptering, kan du besøge denne gruppe:

http://www.udvikleren.dk/groups/?gid=120

MvH

Stefan Svensson
http://fusket.frac.dk

energy@sunwind.dk

Hvordan kryptere og dekryptere jeg en fil? (filen indeholder kun ren teskt).

Hvis du vil kryptere en tekst så brug den her kode:

[pre9
var
A: TStrings;
B,C,D: String;
i,j,k: Integer;
begin
A := TStringList.Create;
A.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');
D := inputbox('Enter a Password','Secure this file with a password','default');
J := 1;
for i := 1 to length(A.Text)do
begin
k := ord(A.Text)+ord(D[j]);
if K > 255 then
K := K - 255;
if J = Length(D) then
J := 1
else
J := J+1;
C := C + chr(K);
end;
A.Text := C;
deletefile(extractfilepath(application.exename)+'Testing.Bac');
A.SaveToFile(extractfilepath(application.exename)+'Testing.Bac');
memo1.Lines.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');
[/pre]

Du skal lave et memo felt, så laver scriptet en temp fil og kryptere den hvor efter den gemmer den som en rigtig fil.

Hvis du vil dekryptere den:

Kode 

var
 A: TStrings;
 B,C,D: String;
 i,j,k: Integer;
begin
 A := TStringList.Create;
 A.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');
 D := inputbox('Enter Password','We need your password','Default');
 J := 1;
 for i := 1 to length(A.Text)do
  begin
  k := ord(A.Text[i])-ord(D[j]);
  if K <1 then
   K := K + 255;
  if J = Length(D) then
   J := 1
  else
   J := J+1;
  C := C + chr(K);
  end;
 A.Text := C;
 A.Delete(A.Count-1);
 A.SaveToFile(extractfilepath(application.exename)+'Testing.Bac');
 memo1.Lines.LoadFromFile(extractfilepath(application.exename)+'Testing.Bac');

Den gør næsten det samme bare modsat.

Med venlig hilsen
Frede_Manden

Hej
Ang: Kryptere en fil?

Har afprøvet jeres kryptering af file.

Men i linjen: k := ord(A.Text)+ord(D[j]); lige efter A.Text) for jeg en fejlmeddelse som: Incompatible type. Hvad skal der gøres her?

Mvh og god jul
Monie Jacobsen

energy@sunwind.dk

Hej
Ang: Kryptere en fil?

Har afprøvet jeres kryptering af file.

Men i linjen: k := ord(A.Text)+ord(D[j]); lige efter A.Text) for jeg en fejlmeddelse som: Incompatible type. Hvad skal der gøres her?

Det er fordi der er en lille fejl i eHTML som jo benyttes til bl.a. disse forum.

Linien skal hedde:
k := ord(A.Text[ I ])+ord(D[j]);

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 17/12-03 12:53:12 af Thomas Due]

Når jeg prøver at dekryptere filen så skriver den: List index out of bounds (-1)
Hvorfor det?

[Redigeret d. 17/12-03 19:24:48 af Kasper Færch Mikkelsen]

Glem det sidste spørgsmål!

Men hvordan virker den første kryptering?
Kan jeg ikke få det skåret ud i pap, hvad den precist gør og hvordan?

Glem det sidste spørgsmål!

Men hvordan virker den første kryptering?
Kan jeg ikke få det skåret ud i pap, hvad den precist gør og hvordan?

DU kigger efter en af de scripter du har fået, og så retter du i det, og ser hvad der sker.. På den måde lære du det!
Med venlig hilsen
Frede_Manden

Hej
Ang: Kryptere en fil?

Har afprøvet jeres kryptering af file.

Men i linjen: k := ord(A.Text)+ord(D[j]); lige efter A.Text) for jeg en fejlmeddelse som: Incompatible type. Hvad skal der gøres her?


Det er fordi der er en lille fejl i eHTML som jo benyttes til bl.a. disse forum.

Linien skal hedde:
k := ord(A.Text[ I ])+ord(D[j]);

--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk

[Redigeret d. 17/12-03 12:53:12 af Thomas Due]

Tak for svaret Thomas Due
Og en god jul herfra.
Mvh
Monie Jacobsen
energy@sunwind.dk