zoukankan      html  css  js  c++  java
  • Domino 加密密码 与C#版本对应

    Public Function Encrypt(strPWtoEncrypt As String) As String
    Dim strPword As String
    Dim bytCount As Byte
    Dim intTemp As Integer

    For bytCount = 1 To Len(strPWtoEncrypt)
    intTemp = Asc(Mid(strPWtoEncrypt, bytCount, 1))
    If bytCount Mod 2 = 0 Then
    intTemp = intTemp - bytEncrypt
    Else
    intTemp = intTemp + bytEncrypt
    End If

    intTemp = intTemp Xor (10 - bytEncrypt)
    strPword = strPword & Chr$(intTemp)
    Next bytCount
    'Some words cannot be used as file name
    Encrypt = strPword
    Encrypt = Replace(strPword, "\", "{01}")
    Encrypt = Replace(strPword, "/", "{02}")
    Encrypt = Replace(strPword, ":", "{03}")
    Encrypt = Replace(strPword, "*", "{04}")
    Encrypt = Replace(strPword, "?", "{05}")
    Encrypt = Replace(strPword, """", "{06}")
    Encrypt = Replace(strPword, "<", "{07}")
    Encrypt = Replace(strPword, ">", "{08}")
    Encrypt = Replace(strPword, "|", "{09}")

    End Function
    Public Function Decrypt(strPWtoDecrypt As String) As String
    Dim strPword As String
    Dim bytCount As Byte
    Private Const bytEncrypt = 5

    Dim intTemp As Integer

    strPWtoDecrypt = Replace(strPWtoDecrypt, "{01}", "\")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{02}", "/")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{03}", ":")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{04}", "*")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{05}", "?")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{06}", """")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{07}", "<")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{08}", ">")
    strPWtoDecrypt = Replace(strPWtoDecrypt, "{09}", "|")

    For bytCount = 1 To Len(strPWtoDecrypt)
    intTemp = Asc(Mid(strPWtoDecrypt, bytCount, 1)) Xor (10 - bytEncrypt)
    If bytCount Mod 2 = 0 Then
    intTemp = intTemp + bytEncrypt
    Else
    intTemp = intTemp - bytEncrypt
    End If

    strPword = strPword & Chr$(intTemp)
    Next bytCount

    Decrypt = strPword
    End Function

  • 相关阅读:
    [色彩校正] Gamma Correction
    需要齐次坐标的原因之二 所有的变换运算(平移、旋转、缩放)都可以用矩阵乘法来搞定
    需要齐次坐标的原因之一
    数据库连接类
    简单的数组排序
    OfficePage封装代码
    新闻管理数据模板
    最新page页码生成控件代码
    新闻管理cs页面
    快速收录新域名网站
  • 原文地址:https://www.cnblogs.com/blackbean/p/2108191.html
Copyright © 2011-2022 走看看