Ó£Ö®»¨

´úÂ룺

Imports System.Security.cryptography

    Private mCSP As New DESCryptoServiceProvider

    Private Function EncryptString(ByVal Value As String) As String
        Try
            Dim ct As ICryptoTransform
            Dim ms As MemoryStream
            Dim cs As CryptoStream
            Dim byt() As Byte

            ct = mCSP.CreateEncryptor(mCSP.Key, mCSP.IV)

            byt = Encoding.UTF8.GetBytes(Value)

            ms = New MemoryStream
            cs = New CryptoStream(ms, ct, CryptoStreamMode.Write)
            cs.Write(byt, 0, byt.Length)
            cs.FlushFinalBlock()

            cs.Close()

            Return Convert.ToBase64String(ms.ToArray())
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Return Nothing
    End Function

    Private Function DecryptString(ByVal Value As String) As String
        Try
            Dim ct As ICryptoTransform
            Dim ms As MemoryStream
            Dim cs As CryptoStream
            Dim byt() As Byte

            ct = mCSP.CreateDecryptor(mCSP.Key, mCSP.IV)

            byt = Convert.FromBase64String(Value)

            ms = New MemoryStream
            cs = New CryptoStream(ms, ct, CryptoStreamMode.Write)
            cs.Write(byt, 0, byt.Length)
            cs.FlushFinalBlock()

            cs.Close()

            Return Encoding.UTF8.GetString(ms.ToArray())
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Return Nothing
    End Function

   Dim abc() As String
        Dim abcstr As String = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
        abc = Split(abcstr, ",")
        Dim rand As New System.Random()

        Dim sn As String = ""
        For i As Int16 = 1 To 15
            sn = sn & abc(rand.Next(1, abc.Length))
        Next
        Response.Write(sn & "<br>")
        Response.Write(SetSn(sn) & "<br>")
        Response.Write(DeSetSn(SetSn(sn)) & "<br>")