---

Hej

Er der nogen der har nogle componenter til at Crypte og Decrypte filer?

--

Hilsen
Dennis Larsen

ICQ: 65241472
Hjemmeside: http://hjem.get2net.dk/DennisLarsen
E-Mail: larsen.dennis@get2net.dk

---

Har vist sagt det før, men på Torry.net ligger det tonsvis af komponenter
til det samme - bruger dem selv :)))

--
- Thomas [blomme@post.com] [http://www.FlowCode.f2s.com]


DENNIS LARSEN <larsen.dennis@get2net.dk> skrev i en
nyhedsmeddelelse:Tti76.107$Ed2.3239@news.get2net.dk...
> Hej
>
> Er der nogen der har nogle componenter til at Crypte og Decrypte filer?
>
> --
>
> Hilsen
> Dennis Larsen
>
> ICQ: 65241472
> Hjemmeside: http://hjem.get2net.dk/DennisLarsen
> E-Mail: larsen.dennis@get2net.dk
>
>
>

---

---

Hejsa

"DENNIS LARSEN" <larsen.dennis@get2net.dk> wrote in message
news:6Jo76.391$Ed2.8392@news.get2net.dk...
> Kan ikke lige finde nogen Cryptning og Decryptning Component.

Har du set under 'Security' under VCL menuen?

Der er :

Crypting
Crypting Other

Måske man kunne finde en søge-algoritme

Mvh Hauge

---

On Thu, 11 Jan 2001 14:19:29 +0100, "DENNIS LARSEN"
<larsen.dennis@get2net.dk> wrote:

>Er der nogen der har nogle componenter til at Crypte og Decrypte filer?

Jeg bruger "Delphi Encryption Compendium", og kan kun anbefale det.
Forneden har jeg gengivet starten af Readme filen, som fortæller havd
det indeholder. Jeg bruger selv bl.a. BlowFish.

Via

http://www.google.com/search?q=Delphi+Encryption+Compendium+download&hl=da&safe=off&lr=

kan du sikkert finde en del downloadesites, jeg fandt ihvertfald lige:

http://www.devarchive.com/Delphi_Encryption_Compedium_Part_I.html

- Nicolai


Copyright: Hagen Reddmann mailto:HaReddmann@AOL.COM
Author: Hagen Reddmann
Remarks: freeware, shareware
Description:    Delphi Encryption Compendium Part I-III

D2-D5, BCB3-4

DEC Part I -----------------------------------------------

Status: Freeware, Version 3.0
Description: Includes variuos basicly Algorithm:

5 Checksum: CRC32, XOR32bit, XOR16bit, CRC16-CCITT,
CRC16-Standard

23 Hash: MD4, MD5, SHA (other Name SHS), SHA1,
RipeMD128, RipeMD160, RipeMD256, RipeMD320,
Haval (128, 160, 192, 224, 256) with Rounds,
Snefru, Square, Tiger
Sapphire II (128, 160, 192, 224, 256, 288, 320)


40 Cipher: Gost, Cast128, Cast256, Blowfish, IDEA
Mars, Misty 1, RC2, RC4, RC5, RC6, FROG, Rijndael,
SAFER, SAFER-K40, SAFER-SK40,SAFER-K64, SAFER-SK64,
SAFER-K128, SAFER-SK128, TEA, TEAN, Skipjack, SCOP,
Q128, 3Way, Twofish, Shark, Square, Single DES,
Double DES,
Triple DES, Double DES16, Triple DES16, TripleDES24,
DESX, NewDES, Diamond II, Diamond II Lite, Sapphire
II         

2 RNG: Standard Random Generator, Linear Feedback Shift
Register RNG with
variable Period from 2^64-1 to 2^2032-1.

6 Text Formats: Hexadecimal, MIME Base 64, Plain, RFC1760 Six Word,
UU Coding, XX Coding


others: * Low Level API to access outside from Delphi and BCB
* Fast implementation (i.E. THash_MD4 > 27Mb/sec,
TCipher_Blowfish > 8.0 Mb/sec)
* Stringformat Management, includes:
HEX, MIME Base 64, RFC1760 Six Word, UU and XX
Coding String converting and Samples
* Designtime Manager Components for Hash's and
Cipher's
* Full and easy objectorientated
* RNG's can be cryptographicaly secure
* Standard Cipher Modes:
CBC - Cipher Block Chaining
CTS - Cipher Text Stealing
CFB - Cipher Feedback
OFB - Output Feedback
ECB - Electronic Code Book
CBCMAC - CBC Message Authentication Code
CTSMAC - CTS Message Authentication Code
CFBMAC - CFB Message Authentication Code
* High optimized Assembler Core
* Progress Gauge Support in all Cipher's, Hash's,
CheckSums's
* Self Test Support for all Cipher's, Hash's,
CheckSums's to test of
any illegal or incorrect Modification's
* Detailed and full DEMO
* variable HMAC's - Hash Message Authentication Code
Support for all THash_XXX Classes,
supports RFC2104 Standard HMAC's
    * automatically Compression Support
* Chaining from all THash_XXX, TRandom_XXX,
TCipher_XXXX and TCompress_XXX Classes
* En/Decryption/Scrambling/Wipe with all TProtection
Classes,
this includes all Hash's, Cipher's, Random's and
Compress's Classes
* Internet RFC2289/RFC1760/RFC2444 O

---

Hej.

Prøv denne kode:

function Encrypt(S : String) : String;
type
PWORD = ^WORD;
var
Len : Integer;
I : Integer;
V : WORD;
P : PChar;
Buffer : String[255];
begin
Buffer := S;
Len := Length(Buffer) + 1;
if (Len mod 2) <> 0 then
Inc(Len);

if Len < 10 then
Len := 10;

I := Length(Buffer);
if I = 0 then
Buffer := IntToStr(GetTickCount)
else
while Length(Buffer) < 10 do
Buffer := Buffer + Buffer;
SetLength(Buffer, I);

Result := '';
P := PChar(@Buffer[0]);
for I := 1 to Len div 2 do begin
V := 29876 + PWORD(P)^;
P := P + 2;
Result := Result + Format('%5.5d', [V]);
end;
end;

function Decrypt(S : String) : String;
type
PWORD = ^WORD;
var
Buffer : String;
PW : String[255];
P : PWORD;
I : Integer;
V : Integer;
begin
PW := ' ';
P := PWORD(@PW[0]);
I := 1;
while I <= Length(S) do begin
Buffer := Copy(S, I, 5);
I := I + 5;
V := StrToInt(Buffer) - 29876;
P^ := V;
Inc(P);
end;
Result := PW;
end;

-Jan