<<< 返回 access911.net 编程静态资料库索引页

re:参数存储过程如何赋值?adp 如何调用存储过程?

 

作者:  摘自:  录入:cg1  时间:2003-3-30  浏览人次:1830


专题地址:http://access911.net/fixhtm/73FAB01E1ADC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


一个测试:
Option Compare Database
Private Const conKey = "E54YBYB5eytn7kVSr6ub56uyAV%^&^$^%$$*YUGhj"

Public Function RC4(strInp As String) As String

Dim s(0 To 255) As Byte, K(0 To 255) As Byte, I As Long
Dim j As Long, temp As Byte, Y As Byte, t As Long, X As Long
Dim Outp As String


For I = 0 To 255
    s(I) = I
Next

j = 1
For I = 0 To 255
    If j > Len(conKey) Then j = 1
    K(I) = Asc(Mid(conKey, j, 1))
    j = j + 1
Next I

j = 0
For I = 0 To 255
    j = (j + s(I) + K(I)) Mod 256
    temp = s(I)
    s(I) = s(j)
    s(j) = temp
Next I

I = 0
j = 0
For X = 1.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB01E1ADC.htm

 


上一篇:如何用vba代码创建一个查询?

下一篇:怎样删除名字前3位是wwt的表?

2017年2月22日生成静态资料