/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Crypt / Decrypt
Fra : DENNIS LARSEN


Dato : 11-01-01 14:19

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




 
 
Thomas P (11-01-2001)
Kommentar
Fra : Thomas P


Dato : 11-01-01 17:24

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
>
>
>



N/A (12-01-2001)
Kommentar
Fra : N/A


Dato : 12-01-01 01:26



Hauge (12-01-2001)
Kommentar
Fra : Hauge


Dato : 12-01-01 01:26

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



Nicolai Lang (12-01-2001)
Kommentar
Fra : Nicolai Lang


Dato : 12-01-01 15:30

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

Jan Pe\"d\"ersen (13-01-2001)
Kommentar
Fra : Jan Pe\"d\"ersen


Dato : 13-01-01 03:49

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



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste