53 lines
2.2 KiB
VB.net
53 lines
2.2 KiB
VB.net
|
Imports Microsoft.VisualBasic.SecurityString
|
|||
|
|
Imports r = System.Text.RegularExpressions.Regex
|
|||
|
|
|
|||
|
|
Namespace ApplicationServices.Development
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 使用AES加密进行代码的签名操作
|
|||
|
|
''' </summary>
|
|||
|
|
Public Module CodeSign
|
|||
|
|
|
|||
|
|
Public Enum Languages
|
|||
|
|
VisualBasic
|
|||
|
|
R
|
|||
|
|
PHP
|
|||
|
|
TypeScript
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Const PhpHeaderRegion$ = "#region ""PHP\\Foundation[:]{2}.*"".+?#endregion"
|
|||
|
|
Const TypeScriptHeaderRegion$ = "//#region ""Microsoft.TypeScript[:]{2}.*"".+?//#endregion"
|
|||
|
|
Const ROpenHeaderRegion$ = "#Region ""Microsoft.ROpen[:]{2}.*"".+?#End Region"
|
|||
|
|
Const VisualBasicHeaderRegion$ = "#Region ""Microsoft.VisualBasic[:]{2}.*"".+?#End Region"
|
|||
|
|
|
|||
|
|
ReadOnly regionPatterns As New Dictionary(Of Languages, String) From {
|
|||
|
|
{Languages.PHP, PhpHeaderRegion},
|
|||
|
|
{Languages.R, ROpenHeaderRegion},
|
|||
|
|
{Languages.TypeScript, TypeScriptHeaderRegion},
|
|||
|
|
{Languages.VisualBasic, VisualBasicHeaderRegion}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 这个函数对代码部分的文本生成md5，然后将md5值字符串使用自己的密匙加密，后将结果写在代码文档的header region之中
|
|||
|
|
''' 在验证的时候，只需要取出加密的结果，使用公匙解密，得到md5值，然后再计算代码部分的md5，二者比较一下就能够了解代
|
|||
|
|
''' 码是否被修改了
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="code$"></param>
|
|||
|
|
''' <param name="key"></param>
|
|||
|
|
''' <param name="lang"></param>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Public Function SignCode(code$, key As AES, Optional lang As Languages = Languages.VisualBasic) As String
|
|||
|
|
Dim region$ = ParseHeaderRegion(code, lang)
|
|||
|
|
Dim plainCode$ = code.Trim.Substring(region.Length + 1).Trim
|
|||
|
|
Dim md5$ = plainCode.MD5
|
|||
|
|
' 使用自己的密匙加密md5，得到了待验证的数据
|
|||
|
|
Dim sign = key.EncryptData(md5)
|
|||
|
|
|
|||
|
|
Throw New NotImplementedException
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Public Function ParseHeaderRegion(code$, lang As Languages) As String
|
|||
|
|
Return r.Match(code, regionPatterns(lang), RegexICSng).Value
|
|||
|
|
End Function
|
|||
|
|
End Module
|
|||
|
|
End Namespace
|