rijndaelstatic.cls

这是一个在vb下实现的各种加密程序,可以实现一般的文本加密和文件加密,但是很多算法都是已经被人破解过的.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "RijndaelStatic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'    CopyRight (c) 2006 Kelly Ethridge
'
'    This file is part of VBCorLib.
'
'    VBCorLib is free software; you can redistribute it and/or modify
'    it under the terms of the GNU Library General Public License as published by
'    the Free Software Foundation; either version 2.1 of the License, or
'    (at your option) any later version.
'
'    VBCorLib is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU Library General Public License for more details.
'
'    You should have received a copy of the GNU Library General Public License
'    along with Foobar; if not, write to the Free Software
'    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'
'    Module: RijndaelStatic
'

''
' Provides static methods associated with the Rijndael class.
'
Option Explicit

Private mTe0()      As Long
Private mTe1()      As Long
Private mTe2()      As Long
Private mTe3()      As Long
Private mTe4()      As Long
Private mTd0()      As Long
Private mTd1()      As Long
Private mTd2()      As Long
Private mTd3()      As Long
Private mTd4()      As Long
Private mRCon()     As Long
Private mSBox()     As Byte

Private mTe0Ptr     As Long
Private mTe1Ptr     As Long
Private mTe2Ptr     As Long
Private mTe3Ptr     As Long
Private mTe4Ptr     As Long
Private mTd0Ptr     As Long
Private mTd1Ptr     As Long
Private mTd2Ptr     As Long
Private mTd3Ptr     As Long
Private mTd4Ptr     As Long
Private mRConPtr    As Long
Private mSBoxPtr    As Long



''
' Returns an implementation of the Rijndael algorithm based on the name.
'
' @param AlgName The name of the specific implementation.
' @return An implementation of the Rijndael alogrithm.
' @remarks If "Rijndael" or "RijndaelManaged" are passed in, then the
' default implementation <b>RijndaelManaged</b> is returned.
'
Public Function Create(Optional ByVal AlgName As String = "Rijndael") As Rijndael
    Set Create = CryptoConfig.CreateFromName(AlgName)
End Function


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Friend Interface
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Friend Property Get Te0Ptr() As Long
    If mTe0Ptr = vbNullPtr Then Call InitTe0
    Te0Ptr = mTe0Ptr
End Property

Friend Property Get Te1Ptr() As Long
    If mTe1Ptr = vbNullPtr Then Call InitTe1
    Te1Ptr = mTe1Ptr
End Property

Friend Property Get Te2Ptr() As Long
    If mTe2Ptr = vbNullPtr Then Call InitTe2
    Te2Ptr = mTe2Ptr
End Property

Friend Property Get Te3Ptr() As Long
    If mTe3Ptr = vbNullPtr Then Call InitTe3
    Te3Ptr = mTe3Ptr
End Property

Friend Property Get Te4Ptr() As Long
    If mTe4Ptr = vbNullPtr Then Call InitTe4
    Te4Ptr = mTe4Ptr
End Property

Friend Property Get Td0Ptr() As Long
    If mTd0Ptr = vbNullPtr Then Call InitTd0
    Td0Ptr = mTd0Ptr
End Property

Friend Property Get Td1Ptr() As Long
    If mTd1Ptr = vbNullPtr Then Call InitTd1
    Td1Ptr = mTd1Ptr
End Property

Friend Property Get Td2Ptr() As Long
    If mTd2Ptr = vbNullPtr Then Call InitTd2
    Td2Ptr = mTd2Ptr
End Property

Friend Property Get Td3Ptr() As Long
    If mTd3Ptr = vbNullPtr Then Call InitTd3
    Td3Ptr = mTd3Ptr
End Property

Friend Property Get Td4Ptr() As Long
    If mTd4Ptr = vbNullPtr Then Call InitTd4
    Td4Ptr = mTd4Ptr
End Property