首页
社区
课程
招聘
电脑阅卷王5.2 vb6.0注册机源码
发表于: 2005-4-28 14:21 6866

电脑阅卷王5.2 vb6.0注册机源码

2005-4-28 14:21
6866
电脑阅卷王5.2 vb6.0注册机源码
自己写的,具体算法不贴了,看懂算法的自己琢磨吧。
Dim jiqima1 As Variant
Dim jiqima2 As Variant
Dim sn2 As Variant
Dim sn3 As Variant
Dim sn4 As Variant
Dim sn5 As Variant
If Len(Text1.Text) <> 8 Then
Exit Sub
Else
jiqima1 = Left$(Val(Text1.Text), 3)
sn2 = Right$((348 * jiqima1 + 827), 4)
sn3 = Val(Mid$(sn2, 1, 1)) + Val(Mid$(sn2, 2, 1)) + Val(Mid$(sn2, 3, 1)) + Val(Mid$(sn2, 4, 1)) '序列号前4位诸位相加
jiqima2 = Mid$(Val(Text1.Text), 5, 3)
sn4 = Right$((439 * jiqima2 + 838), 4)
sn5 = Val(Mid$(sn4, 1, 1)) + Val(Mid$(sn4, 2, 1)) + Val(Mid$(sn4, 3, 1)) + Val(Mid$(sn4, 4, 1))
Text2.Text = sn2 & sn4 & (100 - sn3 - sn5)
End If

loveme兄,用省下的注册费给我买个u盘吧,我的u盘坏了,哈哈,

[培训]科锐逆向工程师培训第53期2025年7月8日开班!

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 442
活跃值: (1246)
能力值: ( LV12,RANK:1130 )
在线值:
发帖
回帖
粉丝
2
这样也能赚个U盘?夸张,要是这样的话,坛子里的几位老大都可以搞U盘批发了
2005-4-28 14:44
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
cxy
3
谢谢!收下!
2005-4-29 10:56
0
雪    币: 201
活跃值: (31)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
呵呵,我试试如何,如果真的行的话就给你给U盘吧!
2005-4-29 22:34
0
雪    币: 671
活跃值: (738)
能力值: ( LV9,RANK:1060 )
在线值:
发帖
回帖
粉丝
5
硬着头皮写个VC++的
void CMy001Dlg::OnOK()
{
        // TODO: Add extra validation here
       
        //CDialog::OnOK();
        UpdateData(true);
        int  i,n=0;
        char cMaccode[10],cRegcode[10];
        CString sRegcode1,sRegcode2;
        if (m_Edit1.GetLength() != 8 ){
                MessageBox("请准确输入你的机器码\n建议采用复制粘贴的方法输入!","提示",MB_OK);
                return;
        }
        //计算注册码的前四位
        strcpy(cMaccode,m_Edit1.Mid(0,3));
        i=atoi(cMaccode)*348+827;
        itoa(i,cRegcode,10);
        sRegcode1=cRegcode;
        sRegcode1=sRegcode1.Right (4);

        //计算注册码的中间四位
        strcpy(cMaccode,m_Edit1.Mid(4,3));
        i=atoi(cMaccode)*439+838;
        itoa(i,cRegcode,10);
        sRegcode2=cRegcode;
        sRegcode2=sRegcode2.Right (4);

        //计算注册码的最后两位
        strcpy(cRegcode,sRegcode1+sRegcode2);
        for (i=0;i<8;i++)        n+=(cRegcode[i]-0x30);
        n=100-n;
        itoa(n,cRegcode,10);

        //输出注册码
        m_Edit2=sRegcode1+sRegcode2+cRegcode;
        UpdateData(false);
}
2005-5-1 15:17
0
游客
登录 | 注册 方可回帖
返回