再次求助 谁会VB编程，帮我写一个小程序

七仙花

本人不会VB编程，只得求助大家了。下面是算法源码

jqm = Text1 '从文本框1取机器码
   
    For i = 1 To Len(jqm)   '循环
   
      jqmasc = Asc(Mid(jqm, i, 1))  '逐位取机器码ASC
      
      masc = jqmasc + 2 * i  'ASCII(逐位取机器码)+2*位数
      
        If masc > 47 And masc < 58 Or masc > 64 And masc < 91 Then
  
        '判断  Chr(ASC(逐位机器码) + 2 * i)  的值是否为数字或大写字母
        
          zcmd = Chr(masc)
  
          '如果上面的条件符合,则取  Chr(ASC(机器码) + 2 * i)  的值作为一位注册码
         
        Else
        
          zcmd = ""
  
          '如果    Chr(ASC(逐位机器码) + 2 * i)  的值不是数字或大写字母,则略过
         
        End If
        
      zcm = zcm & zcmd  '组合注册码
      
    Next  '循环直到所有机器码运算结束
   
    Text2 = zcm   '输出注册码到文本框2

用站长那个附件即可得出正确的注册码，谢谢站长。

[ 本帖最后由 七仙花 于 2011-5-8 11:03 编辑 ]

zhuchl

你这个不就是VB的源码么

huangdasx

帮花花顶一下.我是不会.

worldfan

近来学习下，顺便帮顶

yichya

这个不就是源码么.

exe见附件.

内含工程文件...也没有实例输入输出的不知道对不对

[ 本帖最后由 yichya 于 2010-8-11 18:53 编辑 ]

greenmood

这就是vb源码啊。。。。。

1fox

lz想破解什么的注册机制啊？
是不是这个？：http://bbs.wuyou.net/forum.php?m ... &extra=page%3D2

七仙花

程序正确，能得到正确的注册码

七仙花

是某个软件注册机的算法

dbst

原帖由 1fox 于 2010-8-11 20:27 发表
lz想破解什么的注册机制啊？
是不是这个？：http://bbs.wuyou.net/forum.php?m ... ;tid=170918&amp;extra=page%3D2

微软件的注册码这么弱智？不会吧! 另外“text1”应该是“text1.text”吧？

201007212249

- - 、 我的天！ 拿着源码来问怎么编程

yichya

没有改,编译可以通过.大概vb6的IDE在编译的时候会自己根据变量类型改掉

七仙花

原帖由 201007212249 于 2010-8-12 08:18 发表
- - 、 我的天！ 拿着源码来问怎么编程

编程会一点点，但我不会用VB6啊，可悲。
还有，源码是从网上找的，我是想看看能不能算出结果。

yichya

vbs会用吧...

用两个

变量=inputbox

一个输入一个输出,问题就解决了...

七仙花

就是不会啊

yichya

相对路径怎么搞?...

总不能每个盘搜索吧...

cxyun

佛在游戏人间啊！

huangdasx

花花要破解什么软件的注册方法.

七仙花

就是C:\Documents and Settings\All Users\Application Data\
但在pe中是X盘，不是C盘。我的意思是能正常在C盘系统中使用，也可以在pe系统中使用，就是要处理下盘符的问题。

七仙花

原帖由 huangdasx 于 2010-8-12 19:19 发表
花花要破解什么软件的注册方法.

不是破解，是我从网上找的，我就是想加多一个功能，一步就搞定这个软件的注册，而不用手工写入注册码。

[ 本帖最后由 七仙花 于 2011-5-8 11:04 编辑 ]

yichya

就是说PE的时候就是X:\D&S\....?

那很简单...十分简单.