zoukankan      html  css  js  c++  java
  • RC4经典加密算法VB版本代码

    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 StringAs String
    Dim S(0 To 255As Byte, K(0 To 255As 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
    = 1
    For i = 0 To 255
    If j > Len(key) Then j = 1
    K(i) 
    = Asc(Mid(key, j, 1))
    = j + 1
    Next i
    = 0
    For i = 0 To 255
    = (j + S(i) + K(i)) Mod 256
    temp 
    = S(i)
    S(i) 
    = S(j)
    S(j) 
    = temp
    Next i
    = 0
    = 0
    For x = 1 To Len(inp)
    = (i + 1Mod 256
    = (j + S(i)) Mod 256
    temp 
    = S(i)
    S(i) 
    = S(j)
    S(j) 
    = temp
    = (S(i) + (S(j) Mod 256)) Mod 256
    = S(t)
    outp 
    = Outp & Chr(Asc(Mid(inp, x, 1)) Xor Y)
    Next
    RC4 
    = Outp
    End Function
  • 相关阅读:
    kubernetes的设计理念
    kubernetes整体架构
    kubernetes的起源
    云原生有未来吗?
    cloud native
    kata containers
    go特性
    开源在线分析诊断工具Arthas(阿尔萨斯)--总结
    javaAgent介绍
    oracle函数操作
  • 原文地址:https://www.cnblogs.com/aipeli/p/272097.html
Copyright © 2011-2022 走看看