马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
用户时常会发现其实自己并不是第一个选用MySQL数据库的先驱者。”PrivateSubComman1_Click()
Dimstr1,str2,str3AsString
str1="王宇虹"
str2=Encrypt(str1,188,24)
MsgBoxstr2
str3=Encrypt(str2,188,24)
MsgBoxstr3
EndSub
PrivateFunctionEncrypt(ByValstrSourceAsString,ByValKey1AsByte,_
ByValKey2AsInteger)AsString
DimbLowDataAsByte
DimbHigDataAsByte
DimiAsInteger
DimstrEncryptAsString
DimstrCharAsString
Fori=1ToLen(strSource)
从待加(解)密字符串中掏出一个字符
strChar=Mid(strSource,i,1)
取字符的低字节和Key1举行异或运算
bLowData=AscB(MidB(strChar,1,1))XorKey1
取字符的高字节和K2举行异或运算
bHigData=AscB(MidB(strChar,2,1))XorKey2
将运算后的数据分解新的字符
strEncrypt=strEncrypt&ChrB(bLowData)&ChrB(bHigData)
Next
Encrypt=strEncrypt
EndFunction
也许最好的策略是以不变应万变:给客户他们所需要的,不多也不少。如果MySQL学习教程适合他们,他们就不应该买别的工具。事实上,云计算产业一直推崇自助服务,但提供这些服务的公司已经开始认识到解决方案提供商推销他们商品的价值。 |