encryption.bas

非常著名的人工智能程序bob,想学人工智能的可以参考下.

Attribute VB_Name = "Encryption"
Option Explicit

' This File Stores Many Encryption Routines to help
' keep certian information safe from prying eyes
'
' Encryption Method
'   1. Crypt - Ceasar Shift (Used to encode\decode
'                            certain strings for
'                            the filters)

Private Const CRYPT_KEY = "tbob21A"

Public Function SimpleEncrypt(text, salasana) As String
    On Error Resume Next
    Dim T As Integer
    Dim Sana As String
    Dim G As Integer
    Dim X1 As Integer
    Dim TT As Integer
    For T = 1 To Len(salasana)
        Sana = Asc(Mid(salasana, T, 1))
        X1 = X1 + Sana
    Next

    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0

    For TT = 1 To Len(text)
        Sana = Asc(Mid(text, TT, 1))
        G = G + 1
        If G = 6 Then G = 0
            X1 = 0
            If G = 0 Then X1 = Sana - (salasana - 2)
            If G = 1 Then X1 = Sana + (salasana - 5)
            If G = 2 Then X1 = Sana - (salasana - 4)
            If G = 3 Then X1 = Sana + (salasana - 2)
            If G = 4 Then X1 = Sana - (salasana - 3)
            If G = 5 Then X1 = Sana + (salasana - 5)
            X1 = X1 + G
            SimpleEncrypt = SimpleEncrypt & Chr(X1)
    Next
End Function


Public Function SimpleDeCrypt(texti, salasana) As String
    On Error Resume Next
    Dim T As Integer
    Dim Sana As String
    Dim G As Integer
    Dim X1 As Integer
    Dim TT As Integer
    For T = 1 To Len(salasana)
        Sana = Asc(Mid(salasana, T, 1))
        X1 = X1 + Sana
    Next

    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0
    
    For TT = 1 To Len(texti)
        Sana = Asc(Mid(texti, TT, 1))
        G = G + 1
            If G = 6 Then G = 0
            X1 = 0
            If G = 0 Then X1 = Sana + (salasana - 2)
            If G = 1 Then X1 = Sana - (salasana - 5)
            If G = 2 Then X1 = Sana + (salasana - 4)
            If G = 3 Then X1 = Sana - (salasana - 2)
            If G = 4 Then X1 = Sana + (salasana - 3)
            If G = 5 Then X1 = Sana - (salasana - 5)
            X1 = X1 - G
            SimpleDeCrypt = SimpleDeCrypt & Chr(X1)
    Next
End Function