包含vb.netrc4的词条

求RC4算法的原理,最好用通俗的语言讲解,能打下比方更好了(本人能看懂一点VB跟C)

RC4经典加密算法VB版本代码

网站建设哪家好,找成都创新互联!专注于网页设计、网站建设、微信开发、小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了阳新免费建站欢迎大家使用!

VB版rc4算法

Public Sub main()

Dim key As String

For i = 1 To 16

Randomize

key = key Chr(Rnd * 255)

Next i

MsgBox RC4(RC4("Welcome To Plindge Studio!", key), key)

End Sub

Public Function RC4(inp As String, key 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(key) Then j = 1

K(i) = Asc(Mid(key, 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 To Len(inp)

i = (i + 1) Mod 256

j = (j + S(i)) Mod 256

temp = S(i)

S(i) = S(j)

S(j) = temp

t = (S(i) + (S(j) Mod 256)) Mod 256

Y = S(t)

Outp = Outp Chr(Asc(Mid(inp, x, 1)) Xor Y)

Next

RC4 = Outp

End Function

vb.net使用如密狗

加密狗怎么使用,分为以下几个步骤。

1、做加密软件之前先安装好客户端CodeMeterSDK。打开客户端,进入CodeMeter功能导航界面。

2、打开AxProtector自动加密工具。打开加密工具界面后,选择您要加密的程序类型,根据开发者软件的特点进行选择。

vb.net串口类程序,串口打不开

1、检查串口是否正确,比如COM1,COM2,COM3等;

2、检查波特率是否正确,比如9600,115200等;

3、检查数据位、停止位、校验位是否正确,比如8位数据位、1位停止位、无校验位等;

4、检查串口线是否接好;

5、检查串口是否被其他程序占用,可以使用串口调试助手查看;

6、检查串口驱动是否安装正确,可以在设备管理器中查看;

7、检查程序代码是否正确,可以使用串口调试助手查看。


网页名称:包含vb.netrc4的词条
标题链接:http://scyanting.com/article/doiipsh.html