黑客X档案官方论坛 » 编程魔方 » vb给现有软件加密码

馒头 发表于 2008-4-29 20:06

vb给现有软件加密码

[size=3]想给现有软件加密码登陆
就是说在打开软件前要求输入密码 正确就打开软件 错误就提示错误
有人给我这个代码 可是我不懂::18::
Private Sub Command1_Click()
Dim i&, AddCode&, Ans$
'将text3中的字符逐个取,并把们们的unicode码加和,用于加密
For i = 1 To Len(Text3.Text)
AddCode = AddCode + AscW(Mid(Text3.Text, i, 1))
Next
'将需要加密的text1中每文字的unicode码加上addcode,并用"%",
For i = 1 To Len(Text1.Text)
Ans = Ans & "%" & CStr(AddCode + AscW(Mid(Text1.Text, i, 1)))
Next
'将加密后的内容显示在text2中
Text2.Text = Ans
End Sub

Private Sub Command2_Click()
Dim temp$(), i&, AddCode&
If Text1.Text = "" Then Exit Sub
'获得解密的AddCode
For i = 1 To Len(Text3.Text)
AddCode = AddCode + AscW(Mid(Text3.Text, i, 1))
Next
'将加密的内容以%为分隔符,取出单个字符加密的编码,放于temp数组中
temp = Split(Text1.Text, "%")
'将每个加密的编码减去addcode后做为unicode码返加字符,存放于temp数组中.
For i = 0 To UBound(temp)
If temp(i) <> "" Then temp(i) = ChrW(CLng(temp(i)) - AddCode)
Next
'输出解密的内容
Text2.Text = Join(temp, "")
End Sub

这个代码对吗 能不能做成教程我看哦
=============================
由于考试 复习 上课 等n多原因
导致没上x论坛n久
不知道变化这么大了
只记得可以在这提问题蛤
如果发错地方 请版主移动下 无比感谢
=============================
祝:(貌似提前了)
各位叉子朋友哥哥弟弟五一快乐::29:: ::29:: [/size]::29::

馒头 发表于 2008-4-29 20:07

::32:: ::32:: ::32:: ::32::
小弟还是菜鸟::29:: ::29:: ::29:: ::29::

馒头 发表于 2008-4-30 18:28

怎么没人呢::19:: ::19:: ::19:: ::19::

馒头 发表于 2008-5-2 00:57

郁闷
谁能解答下
加密自己写的软件
工程太大 所以只想加密

小力 发表于 2008-5-2 19:13

不是有源码了么。。。。？怎么还问。/。。。。。。

ty1921 发表于 2008-5-3 16:08

代码肯定错了，还是低级错误。。

源码晚上给你

馒头 发表于 2008-5-4 01:57

哇
等待n天
终于看到有人回复了
感动ing.......................::19:: ::19:: ::19:: ::19:: ::19:: ::19::
谢谢

ty1921 发表于 2008-5-17 10:12

好几天，余震上千次没完没了的，::07::


Private Function code(temp)
'调用函数时使temp为待加密字符串
For i = 1 To Len(temp) '取字符串长度
AddCode(i - 1) = AscW(Mid(temp, i, 1)) '将text1中的字符逐个取,并把unicode码加和,用于加密
Net

For i = 1 To Len(temp) '取字符串长度
AddCode = AddCode & "%" & CStr(AddCode + AscW(Mid(temp, i, 1))) '将需要加密的text1中每文字的unicode码加上addcode,并用"%",x
Next
Text2.Text = ans '将加密后的内容显示在text2中
End Function
'===========================================================
Private Function decode(temp2)
Dim temp1() As String, i
If Text2.Text = "" Then Exit Function '获得解密的AddCode，并判断是否非空，错误则退出

For i = 1 To Len(temp2)
temp1(i) = temp1(i) - AscW(Mid(temp2, i, 1)) '将加密的内容以%为分隔符,取出单个字符加密的编码,放于temp数组中
Next

For i = 0 To UBound(temp2)
If temp1(i) <> "" Then temp1(i) = ChrW(CLng(temp1(i)) - AddCode) '将每个加密的编码减去addcode后做为unicode码返加字符,存放于temp数组中.

temp1 = Split(temp2, "%")
Text3.Text = temp1(i - 1) & temp1(i) '显示解密的内容
Next
End Function

ty1921 发表于 2008-5-17 10:16

还有什么不明白的多看看书查查百度吧，比如AddCode和AscW函数，书上很少提及的

加密解密原理还算简单，当然深究肯定会很难的。前提是数学够好，然后程序实现就看你对语言的理解能力了，一般的，对VB来说，你需要什么功能，上百度一查，一般都有的

如果哪天你的问题网上不能找到答案，那么恭喜，你已经学有所成了呵，那时候，自己慢慢解决就好了，和高手一起讨论也可以的

一句话就是基础最重要，如果上面的代码再看不懂而又不试图自己去解决他，那俺要骂人了哈::01::

馒头 发表于 2008-5-19 19:09

努力学习
努力
::29:: ::29::

查看完整版本: vb给现有软件加密码