[算法练习]無聊炒炒冷飯，高手飄過

冷血书生

無聊的端午節，沒人約我，嗚嗚嗚……

.text:00402415                 call    ds:__vbaLenBstr
.text:0040241B                 mov     edi, eax        ; eax保存用戶名長度
.text:0040241D                 mov     ecx, [ebp-18h]
.text:00402420                 imul    edi, 17CFBh     ; 長度*17CFBh
.text:00402426                 push    ecx             ; 用戶名壓棧
.text:00402427                 jo      loc_4026BE
.text:0040242D                 call    ds:rtcAnsiValueBstr
.text:00402433                 movsx   edx, ax         ; 用戶名第一位
.text:00402436                 add     edi, edx        ; edi+edx
.text:00402438                 jo      loc_4026BE
.text:0040243E                 push    edi             ; edi保存結果并壓棧
.text:0040243F                 call    ds:__vbaStrI4
.text:00402445                 mov     edx, eax        ; eax保存真碼39023
.text:00402447                 lea     ecx, [ebp-20h]
.text:0040244A                 call    ds:__vbaStrMove
.text:00402450                 mov     edi, [ebp-0B0h]
.text:00402456                 push    eax
.text:00402457                 push    edi
.text:00402458                 call    dword ptr [ebx+0A4h]
.text:0040245E                 test    eax, eax
.text:00402460                 jge     short loc_402474
.text:00402462                 push    0A4h
.text:00402467                 push    offset dword_401B5C
.text:0040246C                 push    edi
.text:0040246D                 push    eax
.text:0040246E                 call    ds:__vbaHresultCheckObj
.text:00402474
.text:00402474 loc_402474:                             ; CODE XREF: .text:00402460j
.text:00402474                 lea     eax, [ebp-20h]
.text:00402477                 lea     ecx, [ebp-1Ch]
.text:0040247A                 push    eax
.text:0040247B                 lea     edx, [ebp-18h]
.text:0040247E                 push    ecx
.text:0040247F                 push    edx
.text:00402480                 push    3
.text:00402482                 call    ds:__vbaFreeStrList
.text:00402488                 add     esp, 10h
.text:0040248B                 lea     eax, [ebp-2Ch]
.text:0040248E                 lea     ecx, [ebp-28h]
.text:00402491                 lea     edx, [ebp-24h]
.text:00402494                 push    eax
.text:00402495                 push    ecx
.text:00402496                 push    edx
.text:00402497                 push    3
.text:00402499                 call    ds:__vbaFreeObjList
.text:0040249F                 mov     eax, [esi]
.text:004024A1                 add     esp, 10h
.text:004024A4                 push    esi
.text:004024A5                 call    dword ptr [eax+304h]
.text:004024AB                 mov     ebx, ds:__vbaObjSet
.text:004024B1                 push    eax
.text:004024B2                 lea     eax, [ebp-24h]
.text:004024B5                 push    eax
.text:004024B6                 call    ebx ; __vbaObjSet
.text:004024B8                 mov     edi, eax
.text:004024BA                 lea     edx, [ebp-18h]
.text:004024BD                 push    edx
.text:004024BE                 push    edi
.text:004024BF                 mov     ecx, [edi]
.text:004024C1                 call    dword ptr [ecx+0A0h]
.text:004024C7                 test    eax, eax
.text:004024C9                 jge     short loc_4024DD
.text:004024CB                 push    0A0h
.text:004024D0                 push    offset dword_401B5C
.text:004024D5                 push    edi
.text:004024D6                 push    eax
.text:004024D7                 call    ds:__vbaHresultCheckObj
.text:004024DD
.text:004024DD loc_4024DD:                             ; CODE XREF: .text:004024C9j
.text:004024DD                 push    esi
.text:004024DE                 call    dword ptr [ebp-0C0h]
.text:004024E4                 push    eax
.text:004024E5                 lea     eax, [ebp-28h]
.text:004024E8                 push    eax
.text:004024E9                 call    ebx ; __vbaObjSet
.text:004024EB                 mov     esi, eax
.text:004024ED                 lea     edx, [ebp-1Ch]
.text:004024F0                 push    edx
.text:004024F1                 push    esi
.text:004024F2                 mov     ecx, [esi]
.text:004024F4                 call    dword ptr [ecx+0A0h]
.text:004024FA                 test    eax, eax
.text:004024FC                 jge     short loc_402510
.text:004024FE                 push    0A0h
.text:00402503                 push    offset dword_401B5C
.text:00402508                 push    esi
.text:00402509                 push    eax
.text:0040250A                 call    ds:__vbaHresultCheckObj
.text:00402510
.text:00402510 loc_402510:                             ; CODE XREF: .text:004024FCj
.text:00402510                 mov     eax, [ebp-18h]
.text:00402513                 mov     ecx, [ebp-1Ch]
.text:00402516                 mov     edi, ds:__vbaStrCat
.text:0040251C                 push    eax             ; 假碼壓棧
.text:0040251D                 push    offset aAka     ; "AKA-"
.text:00402522                 push    ecx             ; 真碼
.text:00402523                 call    edi ; __vbaStrCat
.text:00402525                 mov     ebx, ds:__vbaStrMove
.text:0040252B                 mov     edx, eax        ; eax保存真碼
.text:0040252D                 lea     ecx, [ebp-20h]
.text:00402530                 call    ebx ; __vbaStrMove
.text:00402532                 push    eax             ; 真碼壓棧
.text:00402533                 call    ds:__vbaStrCmp  ; 真假碼比較
.text:00402539                 mov     esi, eax
.text:0040253B                 lea     edx, [ebp-20h]
.text:0040253E                 neg     esi
.text:00402540                 lea     eax, [ebp-18h]
.text:00402543                 push    edx
.text:00402544                 sbb     esi, esi
.text:00402546                 lea     ecx, [ebp-1Ch]
.text:00402549                 push    eax
.text:0040254A                 inc     esi
.text:0040254B                 push    ecx
.text:0040254C                 push    3
.text:0040254E                 neg     esi
.text:00402550                 call    ds:__vbaFreeStrList
.text:00402556                 add     esp, 10h
.text:00402559                 lea     edx, [ebp-28h]
.text:0040255C                 lea     eax, [ebp-24h]
.text:0040255F                 push    edx
.text:00402560                 push    eax
.text:00402561                 push    2
.text:00402563                 call    ds:__vbaFreeObjList
.text:00402569                 add     esp, 0Ch
.text:0040256C                 mov     ecx, 80020004h
.text:00402571                 mov     eax, 0Ah
.text:00402576                 mov     [ebp-64h], ecx
.text:00402579                 test    si, si
.text:0040257C                 mov     [ebp-6Ch], eax
.text:0040257F                 mov     [ebp-54h], ecx
.text:00402582                 mov     [ebp-5Ch], eax
.text:00402585                 mov     [ebp-44h], ecx
.text:00402588                 mov     [ebp-4Ch], eax
.text:0040258B                 jz      short loc_4025E5
.text:0040258D                 push    offset aYouGetIt ; "You Get It"
.text:00402592                 push    offset asc_401B9C ; "\r\n"
.text:00402597                 call    edi ; __vbaStrCat
.text:00402599                 mov     edx, eax
.text:0040259B                 lea     ecx, [ebp-18h]
.text:0040259E                 call    ebx ; __vbaStrMove
.text:004025A0                 push    eax
.text:004025A1                 push    offset aKeyGenItNow ; "KeyGen It Now"
.text:004025A6                 call    edi ; __vbaStrCat
.text:004025A8                 lea     ecx, [ebp-6Ch]
.text:004025AB                 mov     [ebp-34h], eax
.text:004025AE                 lea     edx, [ebp-5Ch]
.text:004025B1                 push    ecx
.text:004025B2                 lea     eax, [ebp-4Ch]
.text:004025B5                 push    edx
.text:004025B6                 push    eax
.text:004025B7                 lea     ecx, [ebp-3Ch]
.text:004025BA                 push    0
.text:004025BC                 push    ecx
.text:004025BD                 mov     dword ptr [ebp-3Ch], 8
.text:004025C4                 call    ds:rtcMsgBox
.text:004025CA                 lea     ecx, [ebp-18h]
.text:004025CD                 call    ds:__vbaFreeStr
.text:004025D3                 lea     edx, [ebp-6Ch]
.text:004025D6                 lea     eax, [ebp-5Ch]
.text:004025D9                 push    edx
.text:004025DA                 lea     ecx, [ebp-4Ch]
.text:004025DD                 push    eax
.text:004025DE                 lea     edx, [ebp-3Ch]
.text:004025E1                 push    ecx
.text:004025E2                 push    edx
.text:004025E3                 jmp     short loc_40263B
.text:004025E5 ; ---------------------------------------------------------------------------
.text:004025E5
.text:004025E5 loc_4025E5:                             ; CODE XREF: .text:0040258Bj
.text:004025E5                 push    offset aYouGetWrong ; "You Get Wrong"
.text:004025EA                 push    offset asc_401B9C ; "\r\n"
.text:004025EF                 call    edi ; __vbaStrCat
.text:004025F1                 mov     edx, eax
.text:004025F3                 lea     ecx, [ebp-18h]
.text:004025F6                 call    ebx ; __vbaStrMove
.text:004025F8                 push    eax
.text:004025F9                 push    offset aTryAgain ; "Try Again"
.text:004025FE                 call    edi ; __vbaStrCat

#include "stdio.h"
#include <string.h>

void main()
{
       
        char username[100];
        int temp;
        printf("請輸入你的用戶名：");
        scanf("%s",&username);
    temp = strlen(username) * 97531+username[0];
        printf("你的註冊碼是：AKA-%d\n",temp);
        getchar();
}

[ 本帖最后由 Luckly 于 2009-5-29 08:53 编辑 ]

冷血书生

就這個鳥東東，高手不屑一顧那種，唉，折騰了幾個小時。。。。。。

Luckly

庆祝可爱的大白用c写了个小机机

Nisy

就跟生孩子一样 第一次总是很辛苦 之后就有经验了

冷血书生

原帖由 Nisy 于 2009-5-29 10:07 发表
就跟生孩子一样 第一次总是很辛苦 之后就有经验了

看來nisy的生孩子經驗很豐富，學習了。。。。O(∩_∩)O哈哈~/:017 /:017 /:017

cxx17

来膜拜下冷血书生！

lgjxj

来顶一下广州的兄弟

kelvar

看过很多关于书生的东西，感觉书生的水平属于高高手的行列，咋还弄这小东西/:L

creantan

围观大白生孩子。。。

qq500com

生孩子經驗很豐富，也要學習啊！那是女人的活男人抢着干，　晕！/:10

[ 本帖最后由 qq500com 于 2009-5-31 07:44 编辑 ]