田草博客,logo
日志搜索


 标题   内容 评论


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
日志首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件

评论列表

所有评论
[7] [8] [9] [10] [11] [12] [13] [14] [15] [16]  ... [140]  
tiancao1001 于 2017-05-08 06:06 PM 发表评论:
Imports System.Security.Cryptography
Public Class Form1
    Dim pubkey As String = "<RSAKeyValue><Modulus>xe3teTUwLgmbiwFJwWEQnshhKxgcasglGsfNVFTk0hdqKc9i7wb+gG7HOdPZLh65QyBcFfzdlrawwVkiPEL5kNTX1q3JW5J49mTVZqWd3w49reaLd8StHRYJdyGAL4ZovBhSTThETi+zYvgQ5SvCGkM6/xXOz+lkMaEgeFcjQQs=</Modulus><Exponent>AQAB</Exponent></RSAKeyValue>"
    Dim prikey As String = "<RSAKeyValue><Modulus>xe3teTUwLgmbiwFJwWEQnshhKxgcasglGsfNVFTk0hdqKc9i7wb+gG7HOdPZLh65QyBcFfzdlrawwVkiPEL5kNTX1q3JW5J49mTVZqWd3w49reaLd8StHRYJdyGAL4ZovBhSTThETi+zYvgQ5SvCGkM6/xXOz+lkMaEgeFcjQQs=</Modulus><Exponent>AQAB</Exponent><P>5flMAd7IrUTx92yomBdJBPDzp1Kclpaw4uXB1Ht+YXqwLW/9icI6mcv7d2O0kuVLSWj8DPZJol9V8AtvHkC3oQ==</P><Q>3FRA9UWcFrVPvGR5bewcL7YqkCMZlybV/t6nCH+gyMfbEvgk+p04F+j8WiHDykWj+BahjScjwyF5SGADbrfJKw==</Q><DP>b4WOU1XbERNfF3JM67xW/5ttPNX185zN2Ko8bbMZXWImr1IgrD5RNqXRo1rphVbGRKoxmIOSv7flr8uLrisKIQ==</DP><DQ>otSZlSq2qomgvgg7PaOLSS+F0TQ/i1emO0/tffhkqT4ah7BgE97xP6puJWZivjAteAGxrxHH+kPY0EY1AzRMNQ==</DQ><InverseQ>Sxyz0fEf5m7GrzAngLDRP/i+QDikJFfM6qPyr3Ub6Y5RRsFbeOWY1tX3jmV31zv4cgJ6donH7W2dSBPi67sSsw==</InverseQ><D>nVqofsIgSZltxTcC8fA/DFz1kxMaFHKFvSK3RKIxQC1JQ3ASkUEYN/baAElB0f6u/oTNcNWVPOqE31IDe7ErQelVc4D26RgFd5V7dSsF3nVz00s4mq1qUBnCBLPIrdb0rcQZ8FUQTsd96qW8Foave4tm8vspbM65iVUBBVdSYYE=</D></RSAKeyValue>"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using rsa As New RSACryptoServiceProvider()
            rsa.FromXmlString(prikey)
            ' 加密对象 
            Dim f As New RSAPKCS1SignatureFormatter(rsa)
            f.SetHashAlgorithm("SHA1")
            Dim source As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text)
            Dim sha As New SHA1Managed()
            Dim result As Byte() = sha.ComputeHash(source)
            Dim s As String = Convert.ToBase64String(result)
            MsgBox(s)
            Dim b As Byte() = f.CreateSignature(result)
            TextBox2.Text = ""
            TextBox2.Text = Convert.ToBase64String(b)
        End Using
        TextBox3.Text = pubkey
        TextBox4.Text = prikey
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Using rsa As New RSACryptoServiceProvider()
            rsa.FromXmlString(pubkey)
            Dim f As New RSAPKCS1SignatureDeformatter(rsa)
            f.SetHashAlgorithm("SHA1")
            Dim key As Byte() = Convert.FromBase64String(TextBox2.Text)
            Dim sha As New SHA1Managed()
            Dim name As Byte() = sha.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(TextBox1.Text))
            Dim s As String = Convert.ToBase64String(name)
            MsgBox(s)
            If f.VerifySignature(name, key) Then
                MessageBox.Show("Succese!")
            Else
                MessageBox.Show("Falied!")
            End If
        End Using
    End Sub
End Class
查看所评论的日志:vb.net中使用RSA编写注册码验证
bill 于 2017-05-05 09:49 AM 发表评论:
您好,我想下载装配式钢结构建筑技术标准和装配式木结构建筑技术标准但下载不了,您能发我一份吗?非常感谢 我的邮箱是2095347511@qq.com
查看所评论的日志:装配式钢结构建筑技术标准.GB/T51232-2016.pdf
羽冉 于 2017-05-04 10:02 AM 发表评论:
我想下载装配式钢结构建筑技术标准.GB/T51232-2016 邮箱654599637@qq.com可以发我一份吗
查看所评论的日志:装配式钢结构建筑技术标准.GB/T51232-2016.pdf
shapolang 于 2017-05-03 07:01 PM 发表评论:
248839467@qq.com谢谢了,楼主
查看所评论的日志:装配式混凝土建筑技术标准.GB/T51231-2016.pdf
jonyi 于 2017-05-03 02:55 PM 发表评论:
您能发我一份吗? 我下载不了 QQ邮箱419044012@qq.com  非常感谢!
查看所评论的日志:装配式钢结构建筑技术标准.GB/T51232-2016.pdf
cjb0712 于 2017-05-03 01:32 PM 发表评论:
楼主,我想下载装配式混凝土等3个标准,能发一份到我的邮箱吗?cjb0712@163.com
查看所评论的日志:装配式混凝土建筑技术标准.GB/T51231-2016.pdf
kylincn 于 2017-05-03 12:56 AM 发表评论:
常光顾,求装配式混凝土建筑技术标准,谢谢啦
本人邮箱kylincn@163.com
查看所评论的日志:装配式混凝土建筑技术标准.GB/T51231-2016.pdf
rzy580612 于 2017-05-03 09:14 AM 发表评论:
634559920@qq.com  谢谢
GB/T51231、GB/T51232、GB/T51233.
查看所评论的日志:装配式混凝土建筑技术标准.GB/T51231-2016.pdf
[7] [8] [9] [10] [11] [12] [13] [14] [15] [16]  ... [140]  
版权所有:田草博客
tiancao1001&126.com网友交流QQ群:11740834
Powered by L-Blog V1.08 (SE) Final© 2007-2009