编程马拉松（1）

freesoft

以下源码主要引自第八阁论坛：http://bbs.chinadbg.cn/forum-7-1.html
也有部分代码是飞翔技术论的朋友给改过的。

我只是来了一个开始，每个人都有权，发出他的标题，但要负责他的标题。
从基础开始学习高级语言+汇编+反汇编
一个简单的小学算术从1加到10[设计思路，用循环做1到10的循环，然后种用循环变量垒加和]从1加到10，请高手们写出高级语言+汇编+反汇编，代码
还有要注意，我写程序的错误，因为这才是真正要让大家学习的地方。
非常高兴看到大家的支持，你们发的程序，请在第二天加上注释。(主要是有错的程序)

以下是C的代码

1. 
   
2. #include "stdio.h"
   
3. main()
   
4. {
   
5.   int i,j;
   
6.     for(i=1;i>10;i++) /*以下为循环*/
   
7.           {
   
8.            j=j+i
   
9.            }
   
10.   printf("%d\n"j);
    
11.   getch();/*可以让程序暂停*/
    
12. }

复制代码

1. 以下是修改后的代码
   
2. #include "stdio.h"
   
3. main()
   
4. {
   
5.   int i,j;/*这里要给变量初始化：int i=j=0*/
   
6.     for(i=1;i>10;i++) /*这个循环中，i>10应该写成i<=10或i<11*/
   
7.           {
   
8.            j=j+i/*这里要加个“；”:j+=i;*/
   
9.            }
   
10.   printf("%d\n"j);/*这里要在"%d\n"和j中间加上“，”*/
    
11.   getch();/*可以让程序暂停*/
    
12. }

复制代码

C++代码，注意C++可以随用变量，随定义、初始化

1. #include "stdio.h"
   
2. void main()
   
3. {
   
4.         int icount = 0;
   
5.         for (int i = 1; i <= 10; i++)
   
6.         {
   
7.                 icount += i;
   
8.                 printf("%d\n", icount);/*如果你是想打印每次结果可以这样写，如果想只打印最后的结果，这句应该移到“}”外面*/
   
9.         }
   
10. }

复制代码

java代码

1. public static void main(String[] args){
   
2.      int count = 0;
   
3.      for(int i=1;i<=10;i++){
   
4.           count = count+i;
   
5.      }
   
6.      System.out.println("The sum of 1 to 10 is "+count);
   
7. }

复制代码

Delphi代码

1. Delphi
   
2. Var
   
3. i,j:Integer;
   
4. j:=0;
   
5. For i:=1 To 10 j:=i+j;
   
6. ShowMessage(IntToStr(j));

复制代码

汇编代码

1. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
2. ; Sample code for < Win32ASM Programming >
   
3. ; by
   
4. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
5. ; Model.asm
   
6. ; 汇编语主模板
   
7. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
8. ; 使用 nmake 或下列命令进行编译和链接:
   
9. ; ml /c /coff Model.asm
   
10. ; rc Model.rc
    
11. ; Link /subsystem:windows Model.obj Model.res
    
12. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
13.                 .386
    
14.                 .model flat, stdcall
    
15.                 option casemap :none
    
16. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
17. ; Include 文件定义
    
18. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
19. include                windows.inc
    
20. include                user32.inc
    
21. includelib        user32.lib
    
22. include                kernel32.inc
    
23. includelib        kernel32.lib
    
24. include                Gdi32.inc
    
25. includelib        Gdi32.lib
    
26. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
27. ; Equ 等值定义
    
28. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
29. ICO_MODEL        equ                102
    
30. 
    
31. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
32. ; 数据段
    
33. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
34.                 .data?
    
35. 
    
36. hInstance        dd                ?
    
37. hWinMain        dd                ?
    
38. 
    
39.                 .const
    
40. fmt         db      "和是:%d", 0
    
41. szClassName        db        'Model',0
    
42. szMessage   db  '用汇编语言写得的一个程序！', 0
    
43. sLen        dd   $ - szMessage -  1
    
44. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
45. ; 代码段
    
46. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
47.                 .code
    
48. 
    
49. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
50. _ProcWinMain        proc        uses ebx edi esi hWnd,uMsg,wParam,lParam
    
51.                 local        @stPS:PAINTSTRUCT
    
52.                 local   @strs[255] :byte
    
53.                 local   @hdc :HDC
    
54.                 local   @len:DWORD
    
55.                
    
56.                 mov        eax,uMsg
    
57.                 .if        eax ==        WM_PAINT
    
58.                         invoke        BeginPaint,hWnd,addr @stPS
    
59.                         
    
60.                         ;增加绘画代码
    
61.                         mov eax, 0
    
62.                         mov ecx, 1
    
63.         LP:                add eax, ecx
    
64.                         inc ecx
    
65.                         cmp ecx, 100
    
66.                         jle LP
    
67.                         
    
68.                         invoke wsprintf, addr @strs, addr fmt, eax
    
69.                         
    
70.                         lea edi, @strs
    
71.                         mov esi, edi
    
72. _StrCmp:        cmp byte ptr[edi], 0
    
73.                         jz _StrEnd
    
74.                         inc edi
    
75.                         jmp _StrCmp
    
76. _StrEnd:        
    
77.                         sub edi, esi
    
78.                         mov @len, edi
    
79.                         
    
80.                         invoke GetWindowDC, hWnd
    
81.                         mov @hdc, eax
    
82.                         invoke TextOut, @hdc, 20, 40, addr @strs, @len
    
83.                         invoke ReleaseDC, hWnd, @hdc
    
84.                         
    
85.                         invoke        EndPaint,hWnd,addr @stPS
    
86. ;********************************************************************
    
87.                 .elseif        eax ==        WM_CLOSE
    
88.                         invoke        DestroyWindow,hWinMain
    
89.                         invoke        PostQuitMessage,NULL
    
90. ;********************************************************************
    
91.                 .else
    
92.                         invoke        DefWindowProc,hWnd,uMsg,wParam,lParam
    
93.                         ret
    
94.                 .endif
    
95. ;********************************************************************
    
96.                 xor        eax,eax
    
97.                 ret
    
98. 
    
99. _ProcWinMain        endp
    
100. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     
101. _WinMain        proc
     
102.                 local        @stWndClass:WNDCLASSEX
     
103.                 local        @stMsg:MSG
     
104. 
     
105.                 invoke        GetModuleHandle,NULL
     
106.                 mov        hInstance,eax
     
107. ;********************************************************************
     
108. ; 注册窗口类
     
109. ;********************************************************************
     
110.                 invoke        RtlZeroMemory,addr @stWndClass,sizeof @stWndClass
     
111.                 invoke        LoadIcon,hInstance,ICO_MODEL
     
112.                 mov        @stWndClass.hIcon,eax
     
113.                 mov        @stWndClass.hIconSm,eax
     
114.                 invoke        LoadCursor,0,IDC_ARROW
     
115.                 mov        @stWndClass.hCursor,eax
     
116.                 push        hInstance
     
117.                 pop        @stWndClass.hInstance
     
118.                 mov        @stWndClass.cbSize,sizeof WNDCLASSEX
     
119.                 mov        @stWndClass.style,CS_HREDRAW or CS_VREDRAW
     
120.                 mov        @stWndClass.lpfnWndProc,offset _ProcWinMain
     
121.                 mov        @stWndClass.hbrBackground,COLOR_WINDOW + 1
     
122.                 mov        @stWndClass.lpszClassName,offset szClassName
     
123.                 invoke        RegisterClassEx,addr @stWndClass
     
124. ;********************************************************************
     
125. ; 建立并显示窗口
     
126. ;********************************************************************
     
127.                 invoke        CreateWindowEx,WS_EX_CLIENTEDGE,\
     
128.                         offset szClassName,offset szClassName,\
     
129.                         WS_OVERLAPPEDWINDOW,\
     
130.                         100,100,450,370,\
     
131.                         NULL,NULL,hInstance,NULL
     
132.                 mov        hWinMain,eax
     
133.                 invoke        ShowWindow,hWinMain,SW_SHOWNORMAL
     
134.                 invoke        UpdateWindow,hWinMain
     
135. ;********************************************************************
     
136. ; 消息循环
     
137. ;********************************************************************
     
138.                 .while        TRUE
     
139.                         invoke        GetMessage,addr @stMsg,NULL,0,0
     
140.                         .break        .if eax        == 0
     
141.                         invoke        TranslateMessage,addr @stMsg
     
142.                         invoke        DispatchMessage,addr @stMsg
     
143.                 .endw
     
144.                 ret
     
145. 
     
146. _WinMain        endp
     
147. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     
148. start:
     
149.                 call        _WinMain
     
150.                 invoke        ExitProcess,NULL
     
151. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
     
152.                 end        start

复制代码

下面是VB代码

1. Private Sub Form_Click()
   
2. Dim a As Integer, i As Integer
   
3. a = 0
   
4. For i = 1 To 10
   
5. a = a + i
   
6. Next i
   
7. Form1.Print a
   
8. End Sub

复制代码

简单一点的汇编程序

1. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
2. ; Sample code for < Win32ASM Programming >
   
3. ; by **
   
4. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
5. ; Sum2.asm
   
6. ; 求1+2+3……100的和
   
7. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
8. ; 使用 nmake 或下列命令进行编译和链接:
   
9. ; ml /c /coff Sum2.asm
   
10. ; rc Sum2.rc
    
11. ; Link /subsystem:windows Sum2.obj Sum2.res
    
12. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
13.                 .386
    
14.                 .model flat, stdcall
    
15.                 option casemap :none
    
16. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
17. ; Include 文件定义
    
18. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
19. include                windows.inc
    
20. include                user32.inc
    
21. includelib        user32.lib
    
22. include                kernel32.inc
    
23. includelib        kernel32.lib
    
24. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
25. ; 数据段
    
26. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
27.                 .data
    
28. 
    
29. szBuffer        byte    1024 dup (?)     
    
30.                 .const
    
31. fmt         db      "和是:%d", 0
    
32. szCaption   db      "求1+2+3……100的和", 0
    
33. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
34. ; 代码段
    
35. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
36.                 .code
    
37. 
    
38. start:        
    
39.                         
    
40.                         mov eax, 0
    
41.                         mov ecx, 1
    
42.         LP:                add eax, ecx
    
43.                         inc ecx
    
44.                         cmp ecx, 100
    
45.                         jle LP
    
46.                         
    
47.                         invoke wsprintf, addr szBuffer, addr fmt, eax
    
48.                         invoke        MessageBox,NULL,offset szBuffer,offset szCaption,MB_OK
    
49.                         invoke        ExitProcess,NULL
    
50. ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
51.                 end        start

复制代码

[ 本帖最后由 freesoft 于 2007-8-11 07:51 编辑 ]

yingfeng

編程的也發到這來了哦,移貼,呵呵

freesoft

,,,我问过飘云，我也没找到合适的地方，只有这里还算将就。

wlqdevil

呵呵
值得推荐的啊

freesoft

每天一贴希望来这里看的朋友，如果会编程，就给看看有没有错，玩反汇编的也给看看反汇编的分析，如果有错的，就给改一下，谢谢

ZHOU2X

可以发到"编程园地"的

freesoft

谢谢版主，还希望多支持看看有什么错，现在程序简单，以后复杂后，帮助指证一下。

小子贼野

1加到100我可以用3种语言来写，哈哈:lol:

wofan

支持呀。
论坛会欢迎各种与破解相关的帖子的，不会编程，想学好破解是空话。
不过好像这个题目显得比较简单。

飘云

这种帖子 绝对欢迎~~

全部转完了，给加分鼓励~~