	। 室  ASSEMBLER  CW  㭪樨 ஢
   MD5. ⠥  16-32 .
	 㬥᪨ .., ⠢ .. 1997-2000 .

		I. 室  ࠡ, 
		    ணࠬ  Clarion

1.稩   MD5
MD5_CTX  GROUP
state      ULONG,DIM(4)
bits       ULONG,DIM(2)
bufer      BYTE,DIM(64)
         END

2.஢ :
Signature	STRING(16)

		II.⨯ 맮  C++ 㯭 㭪権.

1.樠 MD5
void MD5Init (MD5_CTX *context) 

2. ଠ樨 ⮪
void MD5Update(MD5_CTX *context, unsigned char *input, unsigned int inputLen)

unsigned char *input	- 㪠⥫  ।  뢠 ଠ樨
unsigned int inputLen	-  뢠 ଠ樨

3.襭   
void MD5Final (unsigned char digest[16], MD5_CTX *context)

unsigned char digest[16]	- ६ 㤠 頥 .

		III.ࠣ ணࠬ  Clarion, 
		    뢠騩 ।

.....

    MODULE('MD5A.A')
       MD5Init(*GROUP),RAW,NAME('_MD5Init')
       MD5Update(*GROUP,*STRING,UNSIGNED),RAW,NAME('_MD5Update')
       MD5Final(*STRING,*GROUP),RAW,NAME('_MD5Final')
    END

....

MD5_CTX  GROUP
state      ULONG,DIM(4)
bits       ULONG,DIM(2)
bufer      BYTE,DIM(64)
         END

i	long
Siganture	STRING(16)
Queue	Queue,PRE(Que)
Name	String(30)
	.

CODE
  .......
  MD5Init(MD5_CTX)
  Loop i = 1 to records(Queue)
    Get(Queue,i)
    MD5Update(MD5_CTX, que:name, size(que:name))
  End
  MD5Final(Signature, MD5_CTX)
  .......

	   ਣ.
	 㢠 ⠢  24.02.2000 .

