1 CryptoWrapper for Delphi 6 Personal (Windows)
4 Windows
\82ÌCryptoAPI
\82ð
\8eg
\82¤wrapper
\82Å
\82·
\81B
5 \83p
\83X
\83\8f\81[
\83h
\94²
\82«
\82Å
\88Ã
\8d\86\89»
\82·
\82é
\82Æ
\82©
\81A
\82»
\82¤
\82¢
\82¤
\97p
\93r
\81B
6 \96Ü
\98_
\83p
\83X
\83\8f\81[
\83h
\82Â
\82¯
\82Ä
\82à
\82¢
\82¢
\82Å
\82·
\81B
7 \82¢
\82â
\81A
\82Â
\82¯
\82½
\82Ù
\82¤
\82ª
\89½
\82©
\82Æ
\88À
\90S
\81B
9 \81y
\93®
\8dì
\8aÂ
\8b«
\81z
10 CryptoAPI
\82Ì
\93®
\8dì
\8aÂ
\8b«
\82Í
\88È
\89º
\82Ì
\92Ê
\82è
\82ç
\82µ
\82¢
\82Å
\82·
\81B
11 Windows NT: Requires version 4.0 or later.
12 Windows: Requires Windows 95 OSR2 or later
13 (or Windows 95 with IE 3.02 or later).
14 Windows CE: Unsupported.
16 \81y
\8dÅ
\8f\89\82É
\8eã
\93_
\81H
\81z
17 \83p
\83X
\83\8f\81[
\83h
\82ð
\82Â
\82¯
\82¸
\82ÉEncode
\82·
\82é
\8fê
\8d\87\81AUserKey(EXCHANGE)
\82ð
\97\98\97p
\82µ
\82Ä
\82Ü
\82·
\81B
18 \82±
\82ê
\82ª
\82Ü
\82¾
\96³
\82¢
\8fê
\8d\87\82É
\8cÀ
\82èKey
\82ð
\90¶
\90¬
\82·
\82é
\82æ
\82¤
\82É
\82µ
\82Ä
\82 (
\82è
\82Ü|
\82é
\82Â
\82à
\82è
\82Å
\81j
\82·
\82ª
\81A
19 \82Ç
\82±
\82©
\82ÅKey
\82ð
\8fã
\8f\91\82Å
\8dì
\82ç
\82ê
\82é
\82Æ
\95Û
\91¶
\82µ
\82Ä
\82¨
\82¢
\82½
\83\82\83m
\82ª
\95\9c\8d\86\82Å
\82«
\82È
\82
\82È
\82Á
\82Ä
\81A
20 \81u
\89ó
\82ê
\82Ä
\82È
\82¢
\82Ì
\82É
\82È
\82ñ
\82Å
\93Ç
\82ß
\82È
\82¢
\82Ì
\81H
\81v
\82É
\82È
\82è
\82Ü
\82·
\81B
22 \83p
\83X
\83\8f\81[
\83h
\82ð
\82Â
\82¯
\82ÄEncode
\82·
\82é
\8fê
\8d\87\82Í
\8fã
\8bL
\82Í
\8aÖ
\8cW
\82È
\82¢
\82Å
\82·
\82¯
\82Ç
\81A
23 \82»
\82¤
\82·
\82é
\82Æ
\91¼
\82Ì
\83t
\83\8a\81[
\82È
\83R
\81[
\83h
\95û
\82ª
\94Ä
\97p
\93I
\82©
\82à
\81B
24 \90Ü
\92\8f\88Ä
\82Æ
\82µ
\82Ä
\81A
\83p
\83X
\83\8f\81[
\83h
\95t
\82«
\82Å
\95Ê
\93r
\95Û
\91¶
\82µ
\82Ä
\82¨
\82
\82Æ
\82¢
\82¤
\82Ì
\82à
\83A
\83\8a\82©
\82à
\82Å
\82·
\81B
25 \81u
\83y
\83b
\83g
\82Ì
\96¼
\91O
\82Í
\81H
\81v
\82Æ
\82©
\82¢
\82¤
\82â
\82Â
\81B
28 UserKey
\82ÍWindows
\82Ì
\83\86\81[
\83U
\96\88\82É
\8aÇ
\97\9d\82³
\82ê
\82Ä
\82é
\82Ý
\82½
\82¢
\82Å
\82·
\81B
29 \83p
\83X
\83\8f\81[
\83h
\82ð
\82Â
\82¯
\82È
\82©
\82Á
\82½
\8fê
\8d\87\81AEncode
\82µ
\82½
\82Ì
\82Æ
\82Í
\95Ê
\82Ì
30 \83A
\83J
\83E
\83\93\83g(Windows
\82Ì
\83\84\83c)
\82Å
\82Í
\95\9c\8d\86\82Å
\82«
\82Ü
\82¹
\82ñ
\81B
33 \81y
\83t
\83H
\83\8b\83_
\81z
35 \83L
\81[
\83R
\83\93\83e
\83i
\82âUser
\82Ì
\8cð
\8a·
\83L
\81[
\82ª
\96³
\82¯
\82ê
\82Î
\8f\9f\8eè
\82É
\8dì
\82Á
\82¿
\82á
\82¤
36 \82¨
\94C
\82¹
\83o
\81[
\83W
\83\87\83\93\82Å
\82·
\81B
39 \83L
\81[
\83R
\83\93\83e
\83i
\82âUser
\82Ì
\8cð
\8a·
\83L
\81[
\82ª
\96³
\82¯
\82ê
\82Î
\8dì
\82é
\81@
\82¾
\82¯
\81@
\82Ì
\83T
\83\93\83v
\83\8bAP
\82Å
\82·
\81B
40 \8fã
\8bL
\82ÌCryptAuto
\82ð
\8cÄ
\82ñ
\82Å
\82é
\82¾
\82¯
\82Å
\82·
\81B
41 \83L
\81[
\82ð
\8dì
\82é
\82Ì
\82Í
\82P
\89ñ
\82â
\82Á
\82Æ
\82¯
\82Î
\97Ç
\82¢
\82ñ
\82Å
\81B
44 \81u
\83L
\81[
\83R
\83\93\83e
\83i
\82âUser
\82Ì
\8cð
\8a·
\83L
\81[
\82ª
\96³
\82¯
\82ê
\82Î
\8f\9f\8eè
\82É
\8dì
\82Á
\82¿
\82á
\82¤
\81v
\95\94\95ª
\82ð
45 \8dí
\8f\9c\82µ
\82½
\83o
\81[
\83W
\83\87\83\93\82Å
\82·
\81B
46 \96³
\82¢
\8fê
\8d\87\82É
\82Í
\96Ü
\98_
\88Ã
\8d\86\89»
\82Å
\82«
\82Ü
\82¹
\82ñ
\81B
47 \82¨
\94C
\82¹
\83o
\81[
\83W
\83\87\83\93\82ª
\95s
\88À
\82È
\8e\9e\82É
\81B
50 \83L
\81[
\83R
\83\93\83e
\83i
\82ª
\96³
\82¯
\82ê
\82Î
\8dì
\82é
\82¯
\82ÇUser
\82Ì
\8cð
\8a·
\83L
\81[
\82Í
\8dì
\82ç
\82È
\82¢
\83o
\81[
\83W
\83\87\83\93\82Å
\82·
\81B
51 \83p
\83X
\83\8f\81[
\83h
\82ð
\8ew
\92è
\82·
\82é
\8fê
\8d\87\82É
\82Í
\82±
\82ê
\82Å
\8aÔ
\82É
\8d\87\82¢
\82Ü
\82·
\81B
54 <em>
\83C
\83\93\83`
\83L</em>Base64
\82Å
\82·
\81B
55 \88Ã
\8d\86\89»
\8e©
\91Ì
\82Æ
\82Í
\8aÖ
\8cW
\82 \82è
\82Ü
\82¹
\82ñ
\81B
56 \82¿
\82å
\82Á
\82Æ
\8f\91\82¢
\82Ä
\82Ý
\82½
\82¾
\82¯
\81B
59 class THogeCrypt*; // *
\82Ì
\82Æ
\82±
\82ë
\82ÍUnit
\82Æ
\82©
\8eQ
\8fÆ
\82µ
\82Ä
\89º
\82³
\82ê
61 constructor THogeCrypt*.Create; //
\8f\80\94õ
62 destructor THogeCrypt*.Destroy; //
\8dÏ
\82ñ
\82¾
64 function THogeCrypt*.Encrypt( //
\88Ã
\8d\86\89»
\82·
\82é
65 PlainText: TStream; // [in]
\88Ã
\8d\86\89»
\82µ
\82½
\82¢
\82à
\82Ì
66 Password: String; // [in]
\83p
\83X
\83\8f\81[
\83h
\81B
\8bó
\95¶
\8e\9a\97ñ
\82Å
\82à
\89Â
\81B
67 Encrypted: TStream // [out]
\88Ã
\8d\86\89»
\82³
\82ê
\82Ä
\8fo
\82Ä
\82
\82é
68 ): Boolean; //
\8e¸
\94s
\82µ
\82½
\82çFalse
70 function THogeCrypt*.Decrypt( //
\95\9c\8d\86\82·
\82é
71 Crypted: TStream; // [in]
\88Ã
\8d\86\89»
\82³
\82ê
\82Ä
\82é
\82à
\82Ì
72 Password: String; // [in]
\83p
\83X
\83\8f\81[
\83h
\81B
\8bó
\95¶
\8e\9a\97ñ
\82à
\97L
\82è
\81B
73 Decrypted: TStream // [out]
\95\9c\8d\86\82³
\82ê
\82Ä
\8fo
\82Ä
\82
\82é
74 ): Boolean; //
\8e¸
\94s
\82µ
\82½
\82çFalse
76 \88Ã
\8d\86\89»
\82³
\82ê
\82½
\83\82\83m
\82Í
\83o
\83C
\83i
\83\8a\97ñ
\82É
\82È
\82è
\82Ü
\82·
\81B
78 \81y
\88ê
\94Ô
\91å
\90Ø
\82È
\82±
\82Æ
\81z
79 \96³
\95Û
\8fØ
\81B
\89ü
\91¢
\82»
\82Ì
\91¼
\89½
\82Å
\82à
\82²
\8e©
\97R
\82É
\81B
81 This program is free software, and distributed in the hope that it will
82 be useful, but WITHOUT ANY WARRANTY; without even the implied
83 warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
85 -----------------------