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 |