ASP + Serv-u 实现FTP的代码

作者: 来源:网络文章时间:2005-12-13 22:18:31

ASP + Serv-u 实现FTP的代码(6)
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448

lMessageLength = Len(sMessage)

lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_Word)
ReDim lWordArray(lNumberOfWords - 1)

lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_Word
lBytePosition = (lByteCount Mod BYTES_TO_A_Word) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop

lWordCount = lByteCount \ BYTES_TO_A_Word
lBytePosition = (lByteCount Mod BYTES_TO_A_Word) * BITS_TO_A_BYTE

lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)

lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)

1.ASP + Serv-u 实现FTP的代码(1)
2.ASP + Serv-u 实现FTP的代码(2)
3.ASP + Serv-u 实现FTP的代码(3)
4.ASP + Serv-u 实现FTP的代码(4)
5.ASP + Serv-u 实现FTP的代码(5)
6.ASP + Serv-u 实现FTP的代码(6)
7.ASP + Serv-u 实现FTP的代码(7)
8.ASP + Serv-u 实现FTP的代码(8)
9.ASP + Serv-u 实现FTP的代码(9)
10.ASP + Serv-u 实现FTP的代码(10)
11.ASP + Serv-u 实现FTP的代码(11)

共11页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] 8 :>

ASP + Serv-u 实现FTP的代码相关文章：

ASP + Serv-u 实现FTP的代码相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com