一个函数

Question

Private Function Encrypt(ByVal pToEncrypt As String, ByVal sKey As String) As String
    Using provider As DESCryptoServiceProvider = New DESCryptoServiceProvider
        Dim bytes As Byte() = Encoding.UTF8.GetBytes(pToEncrypt)
        provider.Key = Encoding.ASCII.GetBytes(sKey)
        provider.IV = Encoding.ASCII.GetBytes(sKey)
        Dim stream As New MemoryStream
        Using stream2 As CryptoStream = New CryptoStream(stream, provider.CreateEncryptor, CryptoStreamMode.Write)
            stream2.Write(bytes, 0, bytes.Length)
            stream2.FlushFinalBlock
            stream2.Close
        End Using
        Dim str As String = Convert.ToBase64String(stream.ToArray)
        stream.Close
        Return str
    End Using
End Function这个Encrypt函数对pToEncrypt进行了个什么加密？是简单的DES加密？
貌似不是……能编译个小程序提供否 第一个参数自己指定，第二个参数是固定字符串 74125836 我想得到它返回的str