Simpel kryptering

det er nok xor du mener, efter lidt søgning på google fandt jeg noget du måske kan bruge som inspiration:
http://delphi.icm.edu.pl/ftp/d10free/clcrypt.zip

Det du skal lede efter hedder kaos matematik. Den mest simple form for kryptering... ... ... . ....

prøv der her :

procedure FastCrypt(ptrBuffer: Pointer; iSize: Integer; uiInit: Byte = $00);
var
  iIdx      : Integer;
  uiCurrByte : Integer;
  uiLastByte : Integer;
begin
  uiLastByte := 0;

  for iIdx := 1 to iSize do
  begin
    uiCurrByte := Byte(ptrBuffer^);
    uiCurrByte := uiCurrByte xor uiLastByte;
    uiCurrByte := not uiCurrByte;
    uiCurrByte := uiCurrByte xor uiInit;
    uiCurrByte := ((uiCurrByte and $0F) shl 4) or ((uiCurrByte and $F0) shr 4);
    uiLastByte := uiCurrByte;
    Char(ptrBuffer^) := Char(uiCurrByte);
    inc(pChar(ptrBuffer));
  end;
end;

procedure FastDeCrypt(ptrBuffer: Pointer; iSize: Integer; uiInit: Byte = $00);
var
  iIdx      : Integer;
  uiCurrByte : Byte;
  uiLastByte : Byte;
begin
  uiLastByte := 0;
  for iIdx := 1 to iSize do
  begin
    uiCurrByte := Byte(ptrBuffer^);
    uiCurrByte := ((uiCurrByte and $0F) shl 4) or ((uiCurrByte and $F0) shr 4);
    uiCurrByte := uiCurrByte xor uiInit;
    uiCurrByte := not uiCurrByte;
    uiCurrByte := uiCurrByte xor uiLastByte;
    uiLastByte := Byte(ptrBuffer^);
    Char(ptrBuffer^) := char(uiCurrByte);
    inc(pChar(ptrBuffer));
  end;
end;



Jens B

Jens >> Har du et ekempel for hvordan procedurerne kaldes, hvis man har en string str := 'hemmeligt', der skal krypteres og bagefter dekrypteres.

Prøv at smide tre memo felter på en form samt en knap.

Og skriv så det følgende kode til din knap :

procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
begin
  s := Memo1.Lines.Text;
  FastCrypt(pointer(s), length(s));
  Memo2.Lines.Text := s;
  s := Memo2.Lines.Text;
  FastDeCrypt(pointer(s), length(s));
  Memo3.Lines.Text := s;
end;


Jens B

Takker, hvorfor er der altid hurtigere hjælp at få på Eksperten-Delphi end Eksperten-VB :)

fordi VB stinker af Mickey Mouse !

Jens B

he he ...

tsk tsk tsk.. nu skal i ikke være onde ved mickey mouse :)

Jens B> Du er en stjerne.....