求一个VB的加密算法求一个VB的对字符串的加密算法,看了下网上的
求一个的对字符串的加密算法, 看了下网上的一些源代码,都不能直接执行,要求给的代码能够直接运行,最好有例子。
爱问知识人提供的是一个知识交流的平台.如果各位没有能力,请不要发贴,因为这样会误导提问者.爱问本来就很让人失望,提的问题都没有得到解决,全都是一些灌水帖子,如果再这样下去,谁还来这里提问?我发现这里的某些人,明明自己没有能力,可是为什么不虚心求学呢?为什么偏要来这里灌水,而且偏要显示自己的能力呢?符上源代码,如果仍然有问题,请给我发信,谢谢.'原理:对字符串进行随机加密,如果函数调用成功,返回加密后的字符,否则返回0PublicFunctionEDcode$(CharString$,KeyAsInteger)DimXAsSingle,iAsLongDimCharNumAsInteger,RandomIntegerAsIntegerDimCharSingleAsString*1OnLocalErrorGoToEDcodeErrorEDcode$=""IfLen(CharString)=0ThenEDcode$="1"ExitFunctionEndIfX=Rnd(-Key)Fori=1ToLen(CharString)CharSingle=Mid$(CharString,i,1)CharNum=Asc(CharSingle)RandomInteger=Int(256*Rnd)And&H7FCharNum=CharNumXorRandomIntegerCharSingle=Chr$(CharNum)EDcode$=EDcode$+CharSingleNextiExitFunctionED $="0"EndFunctionPrivateSubCommand1_Click()'对"韵乐飞扬"进行加密a$=EDcode("韵乐飞扬",1)MsgBoxa'对"韵乐飞扬"进行解密a$=EDcode(a,1)MsgBoxaEndSub