使用RSA加密GIF图像时的问题。在线焦急等待！

Question

给你一个Base64加密图片的:
  '图片加密代码XmlBase64文件格式保存图片信息
        '1>用户选择要加密或者上传的图片
        '首先得到文件名: 
        Dim filename As String = System.IO.Path.GetFullPath(UpLoadFile.Value)
        '得到文件扩展
        Dim filenameexn As String = filename.Substring(filename.LastIndexOf(".") + 1)
        SaveXmlFile(filename, filenameexn) '写Xml文件
    Private Function SaveXmlFile(ByVal filename As String, ByVal filenameexn As String)
        If filename = "" Then
            Label1.Text = "文件没有找到，请重试！"
            Exit Function
        End If
        '定义Image对象
        Dim MyImg As System.Drawing.Image = MyImg.FromFile(filename)
        '开辟内存空间
        Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream()
        '把Image对象以指定的格式保存
        MyImg.Save(memoryStream, GetImageType(filenameexn))
        Dim b() As Byte
        b = memoryStream.GetBuffer()
        Dim pic As String = Convert.ToBase64String(b)
        memoryStream.Close()
        Dim MyXml As System.Xml.XmlDocument = New System.Xml.XmlDocument()
        MyXml.LoadXml("<pic><name>字符串为Base64加密了的图片格式数据</name><photo>" + pic + "</photo></pic>")
        MyXml.Save("c:\MyPhoto.xml")
        Label1.Text = "文件被保存到了：" + Microsoft.VisualBasic.ChrW(13) + "c:\MyPhoto.xml"
    End Function    '得到文件的扩展类别
    Public Function GetImageType(ByVal str As String) As System.Drawing.Imaging.ImageFormat
        Select Case str.ToLower()
            Case "jpg"
                Return System.Drawing.Imaging.ImageFormat.Jpeg
            Case "gif"
                Return System.Drawing.Imaging.ImageFormat.Gif
            Case "tiff"
                Return System.Drawing.Imaging.ImageFormat.Tiff()
            Case "icon"
                Return System.Drawing.Imaging.ImageFormat.Icon
            Case "image/png"
                Return System.Drawing.Imaging.ImageFormat.Png
            Case Else
                Return System.Drawing.Imaging.ImageFormat.MemoryBmp
        End Select
    End Function
   Dim pic As String
        Dim MyXml As System.Xml.XmlDocument = New System.Xml.XmlDocument()
        '得到文件名:
        Dim filename As String = System.IO.Path.GetFullPath(UpLoadFile.Value)
        MyXml.Load(filename)
        Dim picNode As System.Xml.XmlNode
        picNode = MyXml.SelectSingleNode("/pic/photo")
        pic = picNode.InnerText
        '得到字符串数组
        Dim aa() As Byte
        aa = Convert.FromBase64String(pic)
        '开辟为aa长度的字符空间的内存流
        Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(aa)
        Dim image As System.Drawing.Image
        '得到Image对象从内存流中得到。
        image = image.FromStream(ms)
        '保存对象
        image.Save("c:\\test.gif", System.Drawing.Imaging.ImageFormat.Gif)
        Label1.Text = "文件被还原到了：" + Microsoft.VisualBasic.ChrW(13) + "c:\test.gif"  Image1.AlternateText = "没有找到图片文件信息"
        'Image1.ImageAlign = "Left"
        Image1.ImageUrl = "Image/一般 Web 服务结构.bmp"

Answer 1

可是我必须使用RSA算法加密啊！
各位达人帮帮忙啊。