文件列表:

.TV (1413, 1999-09-25)
append.yy1 (119, 1999-09-25)
bulbon.bmp (376, 1998-06-12)
buttons (0, 2000-08-02)
buttonsBMP (0, 2000-08-02)
buttonsBMP\bulbon.bmp (376, 1998-06-12)
buttonsBMP\crdfile3.bmp (376, 1998-06-12)
buttonsBMP\desk.ico (2238, 1996-07-04)
buttonsBMP\doorshut.bmp (376, 1998-06-12)
buttonsBMP\edit.bmp (376, 1998-06-12)
buttonsBMP\EQUERRE2.bmp (458, 1999-11-17)
buttonsBMP\erase.bmp (376, 1998-06-12)
buttonsBMP\FINANCE.ICO (766, 1997-08-05)
buttonsBMP\globe.bmp (376, 1998-06-12)
buttonsBMP\help.bmp (376, 1998-06-12)
buttonsBMP\new.bmp (374, 1998-06-12)
buttons\about.yy1 (61, 1999-11-16)
buttons\append.yy1 (150, 1999-11-10)
buttons\delete.yy1 (138, 1999-11-10)
buttons\edit.yy1 (163, 1999-11-10)
buttons\end.yy1 (55, 1999-11-16)
buttons\help.yy1 (55, 1999-11-16)
buttons\query.yy1 (120, 1999-11-11)
buttons\setup.yy1 (101, 1999-11-16)
copydbf.bat (91, 1999-11-15)
dat (0, 2000-08-02)
dat\FS.dat (16, 1999-10-08)
dat\Query.txt (0, 1999-11-17)
dat\SR.dat (32, 1999-10-08)
dat\zc.dat (116, 1999-11-17)
DBDWORK.INI (2, 1999-11-10)
dbf.ARJ (792, 1999-11-15)
DBTYPE.txt (47, 1999-09-29)
delete.yy1 (107, 1999-09-29)
DelForExp.cfg (90, 1999-11-10)
desk.ico (2238, 1996-07-04)
doorshut.bmp (376, 1998-06-12)
edit.yy1 (106, 1999-09-25)
EncryptIt.dcu (2241, 1999-11-15)
EncryptIt.pas (2148, 1997-11-12)
... ...

This unit encrypts strings and files, using a standard borland algorithym. I believe the number of possible variations is 2^96. I made this unit because the example that is on Borlands TI page is for Pascal, this unit makes slight changes to the Borland string Encryption Algorithyms (So that they will work with Delphi2, and also to be able to use strings bigger than 256 chars), and also adapts them to be able to encrypt entire files (OF any kind). Just add the unit to your projects uses clause (Must Be in your projects search path). It is kinda slow: 137K File = Encrypt 0.267sec Decrypt 0.265sec 3,1***M File = Encrypt 6.541 sec Decrypt 6.374sec (Includes reading source and writing result. Figures generated on a P100, 32 megs ram). TO USE: function Encrypt(const S: String; Key: Word): String; function Decrypt(const S: String; Key: Word): String; procedure EncryptFile(INFName, OutFName : String; Key : Word); procedure DecryptFile(INFName, OutFName : String; Key : Word); NB!! Before you start using the unit, change the constants in the Encryptit.pas file to WORD values of your choice (preferably over 256). I welcome any comments etc, especially if they would improve the speed or security of the unit. This unit id free, And I take no responsibility for anything at all (especially this unit) ;). Sean Mathews [killraven@globalserve.net]

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：