vb软件加密源码 vb源代码
急求加密解密文件源代码~vb写的,加密器和解密器分开~
+=============Private Sub Command1_Click()CommonDialog1.ShowOpenIf Len(CommonDialog1.FileName) >0 Then List1.AddItem CommonDialog1.FileNameEnd SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 0 To List1.ListCount - 1Open List1.List(i) For Binary As 1Open List1.List(i) & ＂.加密＂ For Binary As 2Dim t1 As String * 1, t2 As IntegerDo While EOF(1) = FalseGet 1, , t1t2 = IIf(Asc(t1) + 55 >128, Asc(t1) + 55 - 128, Asc(t1) + 55)Put 2, , t2LoopCloseNextMsgBox ＂加密完毕＂End Sub===============-===============Private Sub Command1_Click()CommonDialog1.ShowOpenIf Len(CommonDialog1.FileName) >0 ThenOpen CommonDialog1.FileName For Binary As 1Open ＂C:\Documents and Settings\All Users\桌面\＂ & Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 3) For Binary As 2Do While EOF(1) = FalseDim t1 As Integer, t2 As String * 1Get 1, , t1t2 = Chr(IIf(t1 - 55 Put 2, , t2LoopCloseMsgBox ＂解密完毕＂End IfEnd Sub
求一个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
求vb代码
Option Explicit"加密Private Sub Command1_Click()Text2 = ＂＂Dim i As LongFor i = 1 To Len(Text1)Text2 = Text2 & Chr(Asc(Mid(Text1, i, 1)) - 300)NextText1 = ＂＂End Sub"解密Private Sub Command2_Click()Text1 = ＂＂Dim i As LongFor i = 1 To Len(Text2)Text1 = Text1 & Chr(Asc(Mid(Text2, i, 1)) + 300)NextEnd Sub"原字符串Private Sub Form_Load()Text1 = ＂中华人民共和国＂Text2 = ＂＂End Sub
求vb.net的哈希加密算法的代码？
Private Sub Initialize(ByVal vKeyString As String)Dim intI As Integer, intJ As IntegerRandomize(Rnd(-1)） "得到初始值（种子值）"每次调用初始值均相同"根据初始值（种子值）得到随机数序列，每次调用Initialize时，初始值均相同。
只要vKeyString相同，所产生的随机数序列一定相同 For intI = 1 To Len(vKeyString)intJ = Rnd(-Rnd * AscW(Mid(vKeyString, intI, 1)))Randomize(intJ)Next intIEnd SubPublic Sub DoXor(ByRef msFileText As String)Dim intC As IntegerDim intB As IntegerDim lngI As LongFor lngI = 1 To Len(msFileText)intC = AscW(Mid(msFileText, lngI, 1))intB = Int(Rnd() * 2 ^ 7)"选用Mid(msFileText, lngI, 1) = ChrW(intC Xor intB)Next lngIEnd SubPublic Function Hash(ByVal ET As String) As StringDim BitLenString As String, KeyString As String,FileText As StringBitLenString = ＂12345678＂KeyString = ET & BitLenStringCall Initialize(KeyString)"根据KeyString产生随机数序列FileText = ET & BitLenStringCall DoXor(FileText)"根据上述随机数序列对FileText加密KeyString = FileTextCall Initialize(KeyString)"根据上述的加密结果产生新的随机数序列FileText = BitLenStringCall DoXor(FileText)"根据上述随机数序列对FileText加密，8位字符Hash = FileText"8位字符送作HASH值End FunctionPrivate Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.ClickDim str As String = ＂abcd＂ & vbCrLfTextBox6.Text = str & Hash(str)End Sub
这是关于VB对文字加密的代码,我不知道哪里出错了,请高手指教
看看下面代码是不是你想要的结果Private Sub Command1_Click()Dim code As String, encode As String, p As String * 1Dim i As Integer, n As Integercode = UCase(Text1)For i = 1 To Len(code)p = Mid(code, i, 1)If p >= ＂A＂ And p n = Asc(p) + 6If n >Asc(＂Z＂) Thenn = n - 26encode = encode & Chr(n)Elseencode = encode & Chr(n)End IfEnd IfNext iText2.Text = encodeEnd SubPrivate Sub Command2_Click()Text1.Text = ＂＂Text2.Text = ＂＂Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub
VB反编译软件哪里有？要能看源代码的
List(i)不好意思啊，由于没有注意，一个开始，一个结束，所以先前的答案有两个小错误；\电话号码；一个时钟控件一个列表框.AddItem awendclose #1按开始：timer1.txt＂ For Input As #1while eof(1)=falseLine Input #1,aList1.Interval=0timer的事件：i=i+1if i=List1.ListCount then i=0Label1，现在已修正了所需控件：两个按钮.Interval=50按结束：timer1.Caption = List1dim i窗口启动：i=0Open App.Path & "
- 上一篇：图片无损缩小软件 无损缩小图片尺寸
- 下一篇：win7用什么软件看电影
-