Kryptering/Dekryptering

på borrisholt.com finder du noget kryptering under Algoritme sektionen.

Jens B

Jens B -> Jeg har prøvet din udmærkede kode, men den har begrænsninger!
Jeg citerer mig selv:
"Hvordan krypterer / dekrypterer jeg noget  tekst i en TMemo, jeg vil have ALLE ASCII-KAREKTERER MED (kan forestille mig en teknik hvor "teknik" afhængdigt af password bliver til f.eks. "313,948,3243,785,1298,450," )?"

så prøv dem 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

Jeg bliver desværre nødt til at forlade nettet og har ikke mulighed for at tage kode med mig,
Kigger på det hurtigst muligt.

hey borrisholt

http://www.eksperten.dk/spm/196330

:)

Jens B -> Kan du ikke forklare koden? Jeg er ikke ekspert i Delphi.

Kom til at acceptere, opretter et nyt spm.

http://www.eksperten.dk/spm/198877

Hallo?..