专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
Private Sub Comman1_Click() Dim str1, str2, str3 As String str1 = \"王宇虹\" str2 = Encrypt(str1, 188, 24) MsgBox str2 str3 = Encrypt(str2, 188, 24) MsgBox str3 End Sub Private Function Encrypt(ByVal strSource As String, ByVal Key1 As Byte, _ ByVal Key2 As Integer) As String Dim bLow [阅读全文] [PDF]
//Crypt.cpp:implementationoftheCCryptclass. // ////////////////////////////////////////////////////////////////////// #include\"stdafx.h\" #include\"Crypt.h\" #ifdef_DEBUG #undefTHIS_FILE staticcharTHIS_FILE[]=__FILE__; #definenewDEBUG_NEW #endif //常量 #defineC152845 #defineC222719 [阅读全文] [PDF]
1 共2条 分1页