| tiancao1001 于 2017-07-04 06:34 PM 发表评论： |
| ThisDrawing.ModelSpace.AddRaster(ImageFileName, InsertPoint, ScaleFactor, RotAngle) |
|
| 查看所评论的日志：请教 ，能通过.net 将剪切板中的BMP图像直接以OLE方式插入CAD吗 |
| xingxingjuyuan 于 2017-05-31 01:57 PM 发表评论： |
| 楼主好！烦请将装配式混凝土建筑技术标准.GB/T51231-2016.pdf发我邮箱，我这里好象没法下载。我们正要施工的小区是装配式混凝土结构的，谢谢！我的邮箱1911293282@qq.com |
|
| 查看所评论的日志：装配式混凝土建筑技术标准.GB/T51231-2016.pdf |
| wanvi 于 2017-05-17 08:13 AM 发表评论： |
|
| 查看所评论的日志：建筑变形测量规范.JGJ 8-2016.pdf |
| wanvi 于 2017-05-17 08:10 AM 发表评论： |
| 503858339@qq.com,有劳大神把三个装配国标打包发一份 |
|
| 查看所评论的日志：装配式混凝土建筑技术标准.GB/T51231-2016.pdf |
| zhangsd222 于 2017-05-15 10:42 AM 发表评论： |
目前我正在做装配式建筑这一行业，麻烦博主可以把这一标准发我邮箱，谢谢
zhangsd222@163.com |
|
| 查看所评论的日志：装配式混凝土建筑技术标准.GB/T51231-2016.pdf |
| 大连颐达 于 2017-05-11 05:29 PM 发表评论： |
| 你好，我想需要一份GB/T51232-2016的国家标准，麻烦你了，我的邮箱是462164853@qq.com 谢谢！！！ |
|
| 查看所评论的日志：装配式钢结构建筑技术标准.GB/T51232-2016.pdf |
| xiangrikui88200 于 2017-05-08 10:38 PM 发表评论： |
|
| 查看所评论的日志：建筑隔墙用轻质条板通用技术要求.JG/T169-2016.pdf |
| 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编写注册码验证 |
[10] [11] [12] [13] [14] [15] [16] [17] [18] [19] ... [143] 