014集——RSA非对称加密——vba源代码

 今天介绍一种安全的加密方法，RSA非对称加密。

RSA算法基于一个十分简单的数论事实:将两个大质数相乘十分容易，但是想要对其乘积进行因式分解却极其困难，因此可以将乘积公开作为加密密钥。

部分源代码如下：

'qq443440204@2024年3月30日15:39:48
'RSA加密解密类
'############ 属性 ##############
'公钥e      Long    \
'通钥n      Long     > 由GenKey产生
'私钥d      Long    /
'############ 方法 ##############
'GenKey     Null    产生钥匙
'IsPrime    Y/N     是否是素数
'Mult       Long    单个数据的加密解密运算
'Encode     String 批量加密运算
'Decode     String 批量解密运算

'Option Explicit

Public 公钥e As Long, 私钥d As Long, 通钥n As Long
Private Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Function CPU序列号(ByVal mycs As String) As String
'特别提示：这个不是唯一的，即有可能多个CPU同一一序列号
For Each 序列 In GetObject("Winmgmts:").InstancesOf("Win32_Processor")
CPU序列号 = Len(mycs) & CPU序列号 & CStr(序列.ProcessorId) & mycs
Next
End Function
'//###