support.

比较牛X，支持下

Private Sub Command1_Click()
Dim name As String
name = CStr(Text1.Text)
If Len(name) < 6 Then
Text2.Text = "用户名至少为6位"
Else
  Code = Chr(Asc(Mid(name, 3, 1)) + 1) & Chr(Asc(Mid(name, 6, 1)) + 5) & Asc(Mid(name, 2, 1)) + 9 & Chr(Asc(Mid(name, 5, 1)) - 1) & Chr(Asc(Mid(name, 2, 1)) + 9) & Asc(Mid(name, 4, 1)) - 4 & Chr(Asc(Mid(name, 1, 1)) + 2) & Chr(Asc(Mid(name, 4, 1)) - 4)
  Text2.Text = Mid(Code, 1, 8)
End If
End Sub

  VB Code

膜拜算法分析王子

好像用4位和5位的用户名也能注册

下载学习...

004B55EC   .  8B45 C4       MOV EAX,DWORD PTR SS:[EBP-3C]          ;  //用户码
004B55EF   .  8A40 05       MOV AL,BYTE PTR DS:[EAX+5]             ;  //AL=用户码第6位ASC值
004B55F2   .  33D2          XOR EDX,EDX                            ;  //EDX=0
004B55F4   .  8A55 FF       MOV DL,BYTE PTR SS:[EBP-1]             ;  //DL=[EBP-1]=用户码第1位ASC值
004B55F7   .  83C2 02       ADD EDX,2                              ;  //EDX=EDX+2
004B55FA   .  0FB675 FE     MOVZX ESI,BYTE PTR SS:[EBP-2]          ;  //ESI=[EBP-2]=用户码第2位ASC值
004B55FE   .  83C6 09       ADD ESI,9                              ;  //ESI=ESI+9
004B5601   .  33C9          XOR ECX,ECX                            ;  //ECX=0
004B5603   .  8A4D FD       MOV CL,BYTE PTR SS:[EBP-3]             ;  //CL=[EBP-3]=用户码第3位ASC值
004B5606   .  41            INC ECX                                ;  //ECX=ECX+1
004B5607   .  894D F4       MOV DWORD PTR SS:[EBP-C],ECX           ;  //[EBP-C]=ECX
004B560A   .  0FB67D FC     MOVZX EDI,BYTE PTR SS:[EBP-4]          ;  //EDI=[EBP-4]=用户码第4位ASC值
004B560E   .  83EF 04       SUB EDI,4                              ;  //EDI=EDI-4
004B5611   .  33C9          XOR ECX,ECX                            ;  //ECX=0
004B5613   .  8A4D FB       MOV CL,BYTE PTR SS:[EBP-5]             ;  //CL=[EBP-5]=用户码第5位ASC值
004B5616   .  49            DEC ECX                                ;  //ECX=ECX-1
004B5617   .  894D F0       MOV DWORD PTR SS:[EBP-10],ECX          ;  //[EBP-10]=ECX
004B561A   .  25 FF000000   AND EAX,0FF                            ;  //EAX=EAX and 0FF
004B561F   .  83C0 05       ADD EAX,5                              ;  //EAX=EAX+5
004B5622   .  8855 EF       MOV BYTE PTR SS:[EBP-11],DL            ;  //[EBP-11]=DL
004B5625   .  8BD6          MOV EDX,ESI                            ;  //EDX=ESI
004B5627   .  8855 EE       MOV BYTE PTR SS:[EBP-12],DL            ;  //[EBP-12]=DL
004B562A   .  8A55 F4       MOV DL,BYTE PTR SS:[EBP-C]             ;  //DL=[EBP-C]
004B562D   .  8855 ED       MOV BYTE PTR SS:[EBP-13],DL            ;  //[EBP-13]=DL
004B5630   .  8BD7          MOV EDX,EDI                            ;  //EDX=EDI
004B5632   .  8855 EC       MOV BYTE PTR SS:[EBP-14],DL            ;  //[EBP-14]=DL
004B5635   .  8A55 F0       MOV DL,BYTE PTR SS:[EBP-10]            ;  //DL=[EBP-10]
004B5638   .  8855 EB       MOV BYTE PTR SS:[EBP-15],DL            ;  //[EBP-15]=DL
004B563B   .  8845 EA       MOV BYTE PTR SS:[EBP-16],AL            ;  //[EBP-16]=AL

这些是不是白算了？　应该不用算把｀｀｀