[转帖]“电脑消磁圣手”的消磁“秘术”

游侠无极限

“电脑消磁圣手”的消磁“秘术”
! r4 o2 B5 \- L# _9 ]% d
前言：
平安夜的晚上，在网上随处溜达，偶尔看到一款名叫《电脑消磁圣手》的软件，是某公司开发的（具体是什么公司大家自己去看吧，我就不说出来了，免得麻烦）。据软件中的说明“本系统一直在国外市场上销售，效果很好，最近把系统翻译成中文版，免费提供给国内的朋友使用。”，至于软件的作用，又有如下的说明：“本系统非常适合在电脑前长时间工作的人，能够高效的清除电脑产生的电磁波，对工作者的身体起到了保健的工作。本系统根据电脑产生的电磁波，自动产生融磁波，中和电脑产生的磁波。由于电脑在不停的释放电磁波，建议您每隔一个小时进行一次消磁工作。”听起来十分诱人，于是就down了下来把玩一番。最新版本好像是6。3版（升级了好多次了吧）。

试用：
下载下来的是一个压缩包，解开后只有一个可执行文件。运行一下，首先弹出了浏览器窗口，连向了一个网站（可能是软件公司的网站吧），随手关掉。软件的主界面倒是很简捷，最主要的就是“开始消磁”按钮。点击一下，出现了一个进度条在不断的前进，同时还有提示文本出现，就是这些“系统正在做消磁前的准备...”、“系统正在收集电脑的电磁波...”、“系统正在释放融磁电波...”、“系统正在释放融磁电波...”、“系统正在做最后的消磁工作...”。经过这样一番神秘的仪式之后，弹出一个对话框提示“融磁成功，已经成功中和电脑周围磁场?”刹那之间，我对作者的佩服如同滔滔江水连绵不绝，这可是项巨牛x的技术，只靠软件就可以进行消磁了，而且还是电脑周围的电磁波，不知道作者是否申请了专利。怀着最作者的无比崇敬和那份极度的神秘感，我飞快的的把软件给肢解了：）

, k$ k( u: Y3 f' ]* M分析：
; V* B7 K- G* V7 |检测一下，是用Delphi写的，没有加壳。用DeDe载入后，反编译“开始消磁”按钮点击事件对应的代码，复制如下：

; n5 R. v' T3 p" Y9 K0047FF28   53                     push    ebx
) P: `! K  v' G. O$ ^% i8 {- A0047FF29   8BD8                   mov     ebx, eax
0047FF2B   33D2                   xor     edx, edx

5 ?/ i* t% |4 B# `; y* Reference to control TFrmRamMain.Panel2 : TPanel
* C+ w5 x* G# m; ||
0047FF2D   8B83FC020000           mov     eax, [ebx+$02FC]

" |2 B  e0 _. P& P/ ?* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
$ l: V! f% A* C) z0047FF33   E80CA6FAFF             call    0042A544
0047FF38   B201                   mov     dl, $01

) R/ b8 i  h$ X% ~3 ^9 Z* Reference to control TFrmRamMain.Panel1 : TPanel
|
0047FF3A   8B83F0020000           mov     eax, [ebx+$02F0]
$ C6 x% c8 B! V6 q6 B$ @
* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
7 c  n1 |0 N5 U" p8 _" q- p7 T0047FF40   E8FFA5FAFF             call    0042A544

* Possible String Reference t '系统正在做消磁前的准备...'     ;提示文本，准备好了
. H! u- a0 P! B|
0047FF45   BA7C014800             mov     edx, $0048017C
5 R- `- s" j& V& A
' B2 j7 }8 ?$ O+ d9 F- }: g% G/ c: ^* Reference to control TFrmRamMain.Label3 : TLabel
* M/ Y! [5 L. \' X- v|
+ I5 s, Q; B% v( E. I0047FF4A   8B83F4020000           mov     eax, [ebx+$02F4]

* Reference t controls.TControl.SetText(TControl;TCaption);
|
! _. j3 K% m- V) ^! ?0047FF50   E807A7FAFF             call    0042A65C
" ?. @6 x0 y  O9 ~
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;进度条开始动了
; T4 ?, q. F( d8 }1 e) L9 e|
0047FF55   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
& Q& ]8 x, X7 }' V|
4 G7 y( `8 j* I# s0 f' u6 p. F0047FF5B   E80489FDFF             call    00458864
! O9 P+ W' F7 {. E0047FF60   8BC3                   mov     eax, ebx

' {6 p0 p, i6 a5 G* Reference to : TFrmRamMain.Delay()                            ;核心代码？~~~~~！！！！！！牛x，这样就可以“中和电脑周围磁场”，佩服佩服~~~~~~
|
+ r' m4 @5 z4 c7 H& {0047FF62   E8D1020000             call    00480238

' K  \  j% O: E2 ~7 v* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;进度条继续在动
|
0047FF67   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
. b+ `* I- e  k) Q  C+ H|
0047FF6D   E8F288FDFF             call    00458864
" N( Q% x: s5 u$ P( D- i6 M+ R& o) t0047FF72   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                            ;休息一下，不知道从何方招来的神圣正在提我们消磁：）
|
0047FF74   E8BF020000             call    00480238

* D9 y0 a5 f3 c- F& v' N* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;继续动
) z5 i# z  F8 j6 I$ L5 Y9 R|
1 X/ ^; k! \  _0 g& f( D. j0047FF79   8B83F8020000           mov     eax, [ebx+$02F8]
& v8 r4 q3 |3 l) ?2 X+ Q- Z
) n1 P  t- Q1 U" m$ t* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
2 @$ u; ?! L' r0047FF7F   E8E088FDFF             call    00458864
& f0 x1 l9 F- h5 ^0047FF84   8BC3                   mov     eax, ebx

" [$ S) O. W' A' e* Reference to : TFrmRamMain.Delay()
+ y# d, b4 W) Z( E" ~* r; B|
6 }" ~) a: S9 D8 _0047FF86   E8AD020000             call    00480238
6 Q) L6 K* V! q; {( n
) t; W2 R2 Z- ~/ k3 s0 M4 [* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0047FF8B   8B83F8020000           mov     eax, [ebx+$02F8]
6 E  b3 H/ f( `
( w9 b# s/ e* I0 M$ t/ s/ `* c; U* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0047FF91   E8CE88FDFF             call    00458864
% X1 b- y8 N) r$ Z: I0047FF96   8BC3                   mov     eax, ebx

  k+ H2 |, A; e- T3 L0 k* Reference to : TFrmRamMain.Delay()
|
( z$ G/ X2 P6 u7 y5 ^* p0047FF98   E89B020000             call    00480238
8 t5 I/ @" i7 v$ T
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
* @. Z5 e9 p/ b+ n# N5 x|
5 B$ i3 V6 f4 J2 m$ k7 N0047FF9D   8B83F8020000           mov     eax, [ebx+$02F8]

& ^( W1 A9 ~# d* ?6 N$ f; z) U! Y* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0047FFA3   E8BC88FDFF             call    00458864
% k$ S' j5 @( X$ q- J9 _
3 `- x1 J* Q# K+ p( m0 |3 V+ o* Possible String Reference t '系统正在收集电脑的电磁波...'
|
0047FFA8   BAA0014800             mov     edx, $004801A0
! f! Z0 s  A( g! |! [) j0 A% S
* Reference to control TFrmRamMain.Label3 : TLabel
|
0047FFAD   8B83F4020000           mov     eax, [ebx+$02F4]

; a7 d; B1 t( x9 ]# e1 y5 C* Reference t controls.TControl.SetText(TControl;TCaption);
8 p8 w+ `. ~' w! d) }|
, r4 u* s( c* ^: z/ j0 u0047FFB3   E8A4A6FAFF             call    0042A65C
8 C$ Z3 O6 `% W' c9 t( x
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
+ W1 c2 o6 ~% y2 K$ a$ ?1 A|
0047FFB8   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
& p# T/ [- t, h" |) j, S0047FFBE   E8A188FDFF             call    00458864
3 e( L& d4 L- d) |0047FFC3   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                             ;根据提示，这句应该是收集电磁波的代码。
# i4 j6 o7 p1 J|
9 Z3 P2 L) f5 q2 v, U' a; ~! K. P0047FFC5   E86E020000             call    00480238
. o! S; G) H- o
' O: w( f$ S3 G: [* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
7 H% j$ G/ a6 u|
7 C0 a+ }. J6 F+ [& k0047FFCA   8B83F8020000           mov     eax, [ebx+$02F8]
. @9 ~. ]! }2 w- N! w% R9 T
' N9 T# y5 P9 Z/ o0 n* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0047FFD0   E88F88FDFF             call    00458864
% N2 A2 L+ z* f- j4 w9 r! I0047FFD5   8BC3                   mov     eax, ebx
3 O" h1 u6 g. T9 d" t! P7 ^0 ^' L
* Reference to : TFrmRamMain.Delay()
|
0047FFD7   E85C020000             call    00480238
$ ]( \0 F# @$ ]$ o4 P
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0047FFDC   8B83F8020000           mov     eax, [ebx+$02F8]
) q2 J1 @- Y7 K
* D$ ]4 Z! t8 _; }* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0047FFE2   E87D88FDFF             call    00458864
0047FFE7   8BC3                   mov     eax, ebx
, k. Z! W/ ~' `5 n8 v* D" G1 @
* Reference to : TFrmRamMain.Delay()
|
0047FFE9   E84A020000             call    00480238
( w; t, Y4 _/ D3 ?5 ~2 r" c$ \1 s1 d
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
; c- y! C5 Y" K- B% j* K4 `+ X% ]|
& Z1 ]( O2 L. c5 P0047FFEE   8B83F8020000           mov     eax, [ebx+$02F8]

1 c$ i. j( U3 E0 v8 t* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
' @: C- z5 S9 G' G: x' s! n% V|
0047FFF4   E86B88FDFF             call    00458864
6 f+ X: g+ d0 w. ^2 J$ j0047FFF9   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
|
* k/ }* c0 z7 s0 \8 k3 q0047FFFB   E838020000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
) K  p( M: z7 _2 g  S9 `! b* K|
00480000   8B83F8020000           mov     eax, [ebx+$02F8]
: }1 e( H& C: _, n' w: r" |) C
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
+ y; V" u( o) A1 T4 q$ D* s00480006   E85988FDFF             call    00458864

" ~9 z; r; c. r# o5 T* Possible String Reference t '系统正在释放融磁电波...'
|
0048000B   BAC4014800             mov     edx, $004801C4
, K5 R0 D! [5 q5 O" o
* Reference to control TFrmRamMain.Label3 : TLabel
" C# m% F2 [& z) N. r|
- u1 L) s1 P" s+ N6 n00480010   8B83F4020000           mov     eax, [ebx+$02F4]
( {0 y( X5 `( Y( X
) w! o( L3 f6 r( @6 N0 f* Reference t controls.TControl.SetText(TControl;TCaption);
|
00480016   E841A6FAFF             call    0042A65C
6 H+ f; R3 q; A$ U2 h+ t9 S- s  ?9 B
7 o  v  r2 Y5 [  ]' r* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
  v# z2 b7 i8 t) R5 \|
( b) q; Z- Y. y2 `: `. X8 Q0048001B   8B83F8020000           mov     eax, [ebx+$02F8]
8 A, d! b1 N: ^/ w. R) E0 D0 v/ b
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
: Y: [7 p) l$ Q% @|
00480021   E83E88FDFF             call    00458864
00480026   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                             ;消磁的核心代码，这项技术大家可要记牢了，不可乱用，说不定作者申请专利了呢：）
|
00480028   E80B020000             call    00480238

+ p  F' n1 g% \- z1 m* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0048002D   8B83F8020000           mov     eax, [ebx+$02F8]

) L% m/ R4 }! C1 T* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
0 ^3 x( z. O; K1 _! ?|
00480033   E82C88FDFF             call    00458864
8 o/ |+ c- P5 p$ G00480038   8BC3                   mov     eax, ebx
( y; ~* V6 D  U" g8 X. L
" w; A: z  \. g* Reference to : TFrmRamMain.Delay()
4 ^! j* s. h; J/ w0 `( \|
0048003A   E8F9010000             call    00480238

4 x3 E! z/ v) i  G4 r7 t5 j* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
- m3 K) M0 W! w; e+ R2 Q|
0048003F   8B83F8020000           mov     eax, [ebx+$02F8]

7 n' C  S3 q) g7 e1 D- W* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
* b/ N8 h8 e  Y9 V% D  D|
6 }# s4 c: q& r' o; D; f00480045   E81A88FDFF             call    00458864
0048004A   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
|
2 e% g: S5 h4 U4 o1 r0048004C   E8E7010000             call    00480238

: [: O0 J, F4 I& z$ b5 c* e* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
* X& y  v' q, e# F00480051   8B83F8020000           mov     eax, [ebx+$02F8]
7 t- P% L! y% k) v) L' [
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
" S4 `* J; b1 ]00480057   E80888FDFF             call    00458864
0048005C   8BC3                   mov     eax, ebx

4 ?7 u$ q2 ^4 I3 u* ^: ?* Reference to : TFrmRamMain.Delay()
|
0048005E   E8D5010000             call    00480238
9 [* C$ U& O7 h+ Z. r
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
/ h6 v- e/ o+ P% _# h0 v|
3 E1 D7 ?* R1 Z$ c00480063   8B83F8020000           mov     eax, [ebx+$02F8]
- O$ {4 z0 x! x+ v3 E' F" [# \
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
00480069   E8F687FDFF             call    00458864
) B8 k: j& D5 S2 l; R9 t; L
" Q( R$ w; ?+ @3 X* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0048006E   8B83F8020000           mov     eax, [ebx+$02F8]
6 A% x, |$ y4 ?' G0 Z4 @0 ?
+ k( X# w) a8 C$ e5 W0 r* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
; Y3 Y: |8 T. B6 H|
: e+ I  W1 r* ~' U6 Z5 G* |00480074   E8EB87FDFF             call    00458864
00480079   8BC3                   mov     eax, ebx
% b# a: s( j, U
# H! b; S* i& ]8 ^, U& m& D, V* Reference to : TFrmRamMain.Delay()
# i( i& r$ J# _. p8 V  e8 Q|
0048007B   E8B8010000             call    00480238

7 M; Q3 A% d6 c' k8 N1 d9 v* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
$ q0 E3 P5 _+ d7 M4 E' }+ K$ x! p00480080   8B83F8020000           mov     eax, [ebx+$02F8]

6 V+ {9 g0 H5 ]# j0 \' z* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
) Y" k$ @# U. T|
; B5 e! x1 B: J: C0 Q( S/ ?00480086   E8D987FDFF             call    00458864
( W& r  {; d- z) _" u0048008B   8BC3                   mov     eax, ebx

5 N8 r& i1 I( H0 x4 E* Reference to : TFrmRamMain.Delay()
5 l4 A: H5 O* D  [4 C|
5 n* @5 t$ [+ b" P( ]) p1 x0048008D   E8A6010000             call    00480238
4 `% A: U% T7 H0 S2 i, V
+ I$ A& \7 ?! y7 ]& P. |* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
2 J, Z  Y5 {( L8 [+ o00480092   8B83F8020000           mov     eax, [ebx+$02F8]
& D0 S0 {* w! ^3 p9 E
" f0 q- T4 r2 C5 w4 z* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
  \, |  N* q/ F|
00480098   E8C787FDFF             call    00458864
0048009D   8BC3                   mov     eax, ebx

" y3 S) b2 V. Q3 ?6 V% Y: o0 @* Reference to : TFrmRamMain.Delay()
|
0048009F   E894010000             call    00480238
, E4 Y; ?" D6 g  n, c0 l( V' d
6 e/ g" w( h1 u/ y- g* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
004800A4   8B83F8020000           mov     eax, [ebx+$02F8]

' Z1 Z2 i2 g/ e6 s6 q; ]* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
: G  k, ]' M) y+ E|
+ P& s8 U0 O( ~. ~4 J004800AA   E8B587FDFF             call    00458864
3 K$ A# T  t" `) n004800AF   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
. p$ s# \4 r7 I$ a; ?|
* b/ N4 ?! V1 a2 N# H004800B1   E882010000             call    00480238
% W' L4 u4 o3 h9 z  D
# k, i# R$ W; p  S* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
004800B6   8B83F8020000           mov     eax, [ebx+$02F8]
2 _; V1 p+ t- i4 Z- u6 m! c
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
004800BC   E8A387FDFF             call    00458864

) O4 L" Q" T* f" u. o  y* Possible String Reference t '系统正在做最后的消磁工作...'
|
004800C1   BAE4014800             mov     edx, $004801E4

* Reference to control TFrmRamMain.Label3 : TLabel
|
8 d; V" W3 |4 z& i, V9 Y004800C6   8B83F4020000           mov     eax, [ebx+$02F4]

" q, p8 m9 Y( X% W5 P" ]6 S- J5 u* Reference t controls.TControl.SetText(TControl;TCaption);
|
! v( F0 H/ w/ B8 F, G. Z004800CC   E88BA5FAFF             call    0042A65C

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
3 a  X! w& e: ?  m|
004800D1   8B83F8020000           mov     eax, [ebx+$02F8]
) W2 ^% c6 k8 z1 `  |
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
004800D7   E88887FDFF             call    00458864
004800DC   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                              ;我就不说什么了吧：）
|
004800DE   E855010000             call    00480238

( B; g; O: y+ q; m* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
2 Y! n" ^& c4 y& l  ^$ m: q|
% U, ^  W; k. P7 V% o0 v: w5 j4 r004800E3   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
9 m6 L! U2 K, h1 N4 D& Q|
004800E9   E87687FDFF             call    00458864
004800EE   8BC3                   mov     eax, ebx

% l. |5 W6 Q9 y  Y, ^( n6 w* Reference to : TFrmRamMain.Delay()
0 f# S9 x) V5 M: j8 e: H( t|
004800F0   E843010000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
5 V! P6 y2 w0 A004800F5   8B83F8020000           mov     eax, [ebx+$02F8]
! F9 G0 r- G# m1 A* h
# A! G) k; s5 _% d2 D* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
8 Z; k; i0 Y( U! B3 b- W. ]004800FB   E86487FDFF             call    00458864
00480100   8BC3                   mov     eax, ebx

, H; h( z* y' l( ]# v/ E1 P* Reference to : TFrmRamMain.Delay()
- j8 Q) L4 G: a2 d6 a|
00480102   E831010000             call    00480238
" j0 t0 p1 t) }4 Y* k5 g6 m; p
9 D3 ]# N8 H+ f, B, c1 m* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
. @) y  \. Y9 l& [00480107   8B83F8020000           mov     eax, [ebx+$02F8]

" N) g- P' s0 V0 J$ @) O; |* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
4 e  A( U0 z* \2 O6 ||
0048010D   E85287FDFF             call    00458864
! y) w5 {3 i& M% w- V. U5 h00480112   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
6 c  d) a# o- p9 q3 w|
00480114   E81F010000             call    00480238
/ x1 K: a. ^% D6 r
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
! {+ ?2 S7 S: t% e) o|
/ ^% o! p4 A7 B, T! }8 \% o( D00480119   8B83F8020000           mov     eax, [ebx+$02F8]
( Q  }, F% Y$ T9 A
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0048011F   E84087FDFF             call    00458864
" C) \5 M5 I% ~+ T00480124   B8E8030000             mov     eax, $000003E8
) B3 Z7 ^2 U9 B" N
* Reference t system.@RandInt;
|
9 e9 e. Q9 w2 w2 [) q00480129   E86629F8FF             call    00402A94
5 s* J6 [. i  k- b6 r; U. X/ ~0048012E   85C0                   test    eax, eax
00480130   6A40                   push    $40
. o% \$ S5 h0 B4 {( V
$ H  A# W. O4 ?% u1 w* Possible String Reference t '电脑消磁圣手'
|
4 A# _1 N- ^' }1 o5 ~$ @00480132   B900024800             mov     ecx, $00480200
9 L0 e9 H+ q5 v' T
* Possible String Reference t '融磁成功，已经成功中和电脑周围磁场?
|                                ?
9 _: ]) l) A. {|
5 N) p) o$ L, d9 A* G00480137   BA10024800             mov     edx, $00480210
! o. f( {0 O" p- M
! Q- t8 r: E6 ~- P! G0 l0 ~* Reference to TApplication instance
|
0048013C   A148284800             mov     eax, dword ptr [$00482848]
00480141   8B00                   mov     eax, [eax]

* Reference t forms.TApplication.MessageBox(TApplicationCharChar;Longint):Integer;
4 b3 R$ J8 M4 F, O0 `& W4 u|
+ w0 p  Y- {! y+ P8 k! h00480143   E89895FCFF             call    004496E0                  ;大功告成，消磁成功！！！
( ]( W6 r4 X: \6 s00480148   33D2                   xor     edx, edx

* Reference to control TFrmRamMain.Panel1 : TPanel
; z5 X* ~, @) N/ C) q|
0048014A   8B83F0020000           mov     eax, [ebx+$02F0]
9 f) z. x) E) u, I
* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
8 d- b% @4 P3 G/ O7 ?; p1 B00480150   E8EFA3FAFF             call    0042A544
% Z* z, d* l& T- `' O/ h00480155   B201                   mov     dl, $01

* Reference to control TFrmRamMain.Panel2 : TPanel
|
1 V# }' _6 _+ b00480157   8B83FC020000           mov     eax, [ebx+$02FC]
9 e! y' {' C' Q& S
* Reference t controls.TControl.SetVisible(TControl;Boolean);
( F( t' F$ [5 ^+ W0 t|
  z( Q& ~: Z$ o2 h9 S! n0048015D   E8E2A3FAFF             call    0042A544

7 P- w1 [$ T% _0 d. l% v  [* Reference to TFrmAbout instance
|
00480162   A148264800             mov     eax, dword ptr [$00482648]
00480167   8B00                   mov     eax, [eax]
& d: ]% N# f, P00480169   8B10                   mov     edx, [eax]

* Reference to method TFrmAbout.ShowModal()
|
$ s2 g  T" ?1 j/ X; p! z$ C0048016B   FF92D8000000           call    dword ptr [edx+$00D8]         ;关于窗口露一小脸，是介绍公司的。如此精深的技术，倘不见一下那只下蛋的鸡，岂不是太可惜了么：）
/ y1 N# l$ o  G* w; [00480171   5B                     pop     ebx
00480172   C3                     ret

游侠无极限

上面就是“消磁圣手”的核心代码。逆向了这么重要的代码心里甚是不安。软件的开发公司千万不要告我啊！不过已经看了，再多看一点也无妨吧。谁知这一看不要紧，又发现了软件作者的体贴之处，请看下面的代码，是窗体创建事件对应的代码： 004802F8 55 push ebp # b) D& B4 p; f' {( Z1 B004802F9 8BEC mov ebp, esp / O- W4 `8 m- b X; v4 c1 [& B! z: W004802FB 33C9 xor ecx, ecx 004802FD 51 push ecx 3 ?9 M: j: {% R+ }004802FE 51 push ecx 004802FF 51 push ecx 00480300 51 push ecx 4 w3 U- y+ G. y( X% X00480301 51 push ecx ( ~& Z5 c, b# W4 f2 C- k* p; U00480302 51 push ecx ; b9 N% w& }; n. O q+ U00480303 51 push ecx 00480304 33C0 xor eax, eax ' B& c+ B" g. j5 q2 e00480306 55 push ebp : g* m" H- n. t* Possible String Reference t '檫0?脬嬪]? Z9 Z t O a9 L+ C9 I* y! S| % p) h" J* `% q8 a, S9 I00480307 6808044800 push $00480408 5 f. S( v c0 h* }* v, l 3 F" r$ Y7 D- c3 X***** TRY ( T# T5 H9 v2 }2 T; J$ b5 p| 0048030C 64FF30 push dword ptr fs:[eax] 0048030F 648920 mov fs:[eax], esp 00480312 8D55F0 lea edx, [ebp-$10] * N! F& w* I$ |& k/ W9 | * Reference to TApplication instance | : m- c+ J* s3 G5 |0 g00480315 A148284800 mov eax, dword ptr [$00482848] ! h3 ~8 l) T4 l( \- M0048031A 8B00 mov eax, [eax] 0 H2 H. F4 o3 S1 C* Reference t forms.TApplication.GetExeName(TApplication):AnsiString; ( m0 a7 T" ~% K) `- O| ( ^1 A7 o) Q ~+ V0048031C E82F97FCFF call 00449A50 ;Who am I? 00480321 8B45F0 mov eax, [ebp-$10] 8 Q9 i. a* ]+ Y2 ~2 i, W4 U00480324 8D55F4 lea edx, [ebp-$0C] 1 d* X+ k0 o( W0 A/ n& b2 F* Reference t Unit_00406FD0.Proc_00408110 | 6 {. E x/ i0 `' v; n X' M8 z: n00480327 E8E47DF8FF call 00408110 5 {4 \: y" U7 d6 m3 ?, R0048032C 8B45F4 mov eax, [ebp-$0C] 2 r* W3 h+ _6 N( N4 o- Q0048032F 50 push eax 1 [% c9 A% o# {9 `$ R3 s% {00480330 8D55E8 lea edx, [ebp-$18] 1 b" D5 e6 y! {+ U1 |+ X$ Z+ B P4 K " a0 S' N9 [. N* Reference to TApplication instance | 9 x& [+ N# _7 p00480333 A148284800 mov eax, dword ptr [$00482848] / h+ w! o t# _) f+ N' Y00480338 8B00 mov eax, [eax] * Reference t forms.TApplication.GetExeName(TApplication):AnsiString; | - |- j! ^7 j$ R3 ]0048033A E81197FCFF call 00449A50 , D; d( Y) ?1 {8 u, b: Z4 N* a0048033F 8B45E8 mov eax, [ebp-$18] : J* Y* z9 X: a5 p7 T/ g: ^, V% m00480342 8D55EC lea edx, [ebp-$14] * Reference t Unit_00406FD0.Proc_004080DC 9 I5 V3 {3 D% Q* D& c3 ~+ L| 00480345 E8927DF8FF call 004080DC 3 Y8 C9 q9 r) T2 Y) t0048034A 8B55EC mov edx, [ebp-$14] 0048034D 8D45FC lea eax, [ebp-$04] 6 v) h( W; c/ j5 s) j4 R00480350 59 pop ecx 7 x, e; ^0 T9 n7 r, e6 K" H* I2 A: `* Reference t system.@LStrCat3; | 00480351 E8CA39F8FF call 00403D20 00480356 B201 mov dl, $01 S) ^; h w" p4 P. ~8 h * Reference to class TRegistry & t* \6 A* L6 n( h| . A* b1 H, @: n6 ?" @00480358 A174F14700 mov eax, dword ptr [$0047F174] 8 J4 h4 H8 [1 L6 P' W; q( i* Reference t Unit_0047F114.Proc_0047F274 | 0048035D E812EFFFFF call 0047F274 00480362 8945F8 mov [ebp-$08], eax 7 o p/ f/ i4 O, X! X* O00480365 33C0 xor eax, eax 5 y$ J; H5 E/ j7 `00480367 55 push ebp 8 y+ @' W8 C! R5 S8 t" `' u3 ]' I00480368 68DE034800 push $004803DE " t9 c; ?- X& w8 G/ F***** TRY | - c8 o5 O/ T) y7 ?0048036D 64FF30 push dword ptr fs:[eax] 9 z; |9 g3 i" ?+ G4 b- A8 C6 o/ O: N+ ~00480370 648920 mov fs:[eax], esp 00480373 BA02000080 mov edx, $80000002 00480378 8B45F8 mov eax, [ebp-$08] * Reference t Unit_0047F114.Proc_0047F314 4 F, ~# P6 R! w9 i" X2 ^' }6 l| 5 }2 Z* _2 f9 X# Y0 _0048037B E894EFFFFF call 0047F314 00480380 B101 mov cl, $01 6 c' \. a; v) C C) A# D+ C J* Possible String Reference t '\SOFTWARE\Microsoft\Windows\Current ;这个地方好熟悉，为什么我的毒霸不报警呢：） / M) A/ G9 T5 [2 _& \( O| Version\Run' : E% S( i5 V( l| 00480382 BA1C044800 mov edx, $0048041C 00480387 8B45F8 mov eax, [ebp-$08] * Reference t Unit_0047F114.Proc_0047F378 | 0 G& v5 ?! U3 B+ [( Z% E/ d0048038A E8E9EFFFFF call 0047F378 S: m v8 |5 j! X* E1 q, s0048038F 84C0 test al, al ! o! I2 p9 O: x8 V5 h' ?00480391 7435 jz 004803C8 # @1 K% M7 `$ B8 e00480393 8D4DE4 lea ecx, [ebp-$1C] ; v0 [% C) M8 {2 e * Possible String Reference t 'JrRClean' & Y6 v7 i7 h8 h! g$ r4 B| 00480396 BA54044800 mov edx, $00480454 0048039B 8B45F8 mov eax, [ebp-$08] 4 \, B5 j2 w) }5 H5 x* ? * Reference t Unit_0047F114.Proc_0047F540 & O/ `* u* z4 ]0 F8 Z| 0048039E E89DF1FFFF call 0047F540 004803A3 8B45E4 mov eax, [ebp-$1C] . F" X/ i* U# f) W2 Q004803A6 8B55FC mov edx, [ebp-$04] # K1 n" i, D& V6 ~ " H* Y! v) i o/ p" \, _4 F s" v* Reference t system.@LStrCmp; | 004803A9 E8363AF8FF call 00403DE4 0 T X0 @8 x* }6 L4 Q004803AE 7410 jz 004803C0 1 P5 e8 o% j y7 Q8 D9 d+ V004803B0 8B4DFC mov ecx, [ebp-$04] 0 ^8 b) ]8 Q. \! Y9 A4 o 6 E1 M5 E" m6 D; F+ D3 y* Possible String Reference t 'JrRClean' | 0 o, {* }5 [# J& D! ~( L5 P6 j$ H4 }004803B3 BA54044800 mov edx, $00480454 004803B8 8B45F8 mov eax, [ebp-$08] / _# q) Y/ ^- w% A' `+ c * Reference t Unit_0047F114.Proc_0047F514 | 004803BB E854F1FFFF call 0047F514 ( v5 y2 @5 k3 E4 i004803C0 8B45F8 mov eax, [ebp-$08] * Reference t Unit_0047F114.Proc_0047F2E4 | 6 t9 z: ]- i: J! Z# w004803C3 E81CEFFFFF call 0047F2E4 004803C8 33C0 xor eax, eax ) z9 B" I% P4 w004803CA 5A pop edx - K6 h. g" ^# {, e004803CB 59 pop ecx 004803CC 59 pop ecx 7 E* o" J, j2 n% @. R004803CD 648910 mov fs:[eax], edx 3 f) L9 ]8 M% Q: s, y ( v; l# i4 p1 M0 O y, M! z****** FINALLY 1 }5 o- l- B: G; l0 h| 8 {7 R \. B9 R4 P/ O( W% Z+ I6 v004803D0 68E5034800 push $004803E5 004803D5 8B45F8 mov eax, [ebp-$08] ) | f7 W4 I; _7 [5 ? d# M- y& l" O% A* Reference t system.TObject.Free(TObject); | 8 Z) z5 s& C' K: p( C0 G& S004803D8 E8EF29F8FF call 00402DCC $ ~" q: A4 ^ g1 I3 H, U004803DD C3 ret . m0 l$ R4 y$ \* | ) j" o) i6 I6 u4 r- B, U" E / L9 V8 C9 e7 d% j* Reference t system.@HandleFinally; | + {8 S- O, v* K8 f$ {* E4 U; Z" i004803DE E90931F8FF jmp 004034EC " X7 Y# |. h/ c# {1 |6 A _004803E3 EBF0 jmp 004803D5 3 y. } N' N! L3 R: L( x 0 c: j4 z% k/ D* e' `3 V9 B8 W****** END % w* x& E& ^3 }6 _2 H* s| 004803E5 33C0 xor eax, eax 004803E7 5A pop edx 004803E8 59 pop ecx 004803E9 59 pop ecx 9 k1 M! `9 m6 ]. W- s/ E- g6 a6 y004803EA 648910 mov fs:[eax], edx ****** FINALLY 4 e* [5 I: M" p0 O$ \| " O* f2 H' q' o 7 P. [9 f! x4 n' [% I8 M* Possible String Reference t '嬪]? $ p. |& w* {9 K3 T/ U% g| 7 {! f7 H% k; k* P: t004803ED 680F044800 push $0048040F ' {9 o( ]8 K9 E0 F5 f( q! p004803F2 8D45E4 lea eax, [ebp-$1C] 9 L+ m8 j( Y7 T* j# D6 ^" x004803F5 BA05000000 mov edx, $00000005 4 G: e T7 s4 w* G& `* Reference t system.@LStrArrayClr; * e2 q6 K3 I! C$ X R4 t| 004803FA E87936F8FF call 00403A78 ; n9 S$ A0 o* O004803FF 8D45FC lea eax, [ebp-$04] " _3 S& G1 z% Y- G( Y U/ b a, b% `7 q3 I' a# Z* Reference t system.@LStrClr(String;String); 0 p! C( U( g" `: ]8 b| : X- p$ a4 q* _) t! Q. x00480402 E84D36F8FF call 00403A54 5 E% I( h" q. A; o3 O: ~4 Z. d00480407 C3 ret ( z; [( R0 h8 u # h8 o! M4 n) q1 x$ j1 Y9 U5 q* Reference t system.@HandleFinally; & W8 C4 y( u) p6 D/ h# x| 00480408 E9DF30F8FF jmp 004034EC 0048040D EBE3 jmp 004803F2 5 S' V8 }5 k) ~$ C0 m$ @* t9 L" m ****** END | 0048040F 8BE5 mov esp, ebp 00480411 5D pop ebp 00480412 C3 ret 上面的代码我就不用多解释了吧？要知道电磁波辐射在开机的时候是最强的，所以“体贴”的作者就把“消磁圣手”加入了启动项中，这样每次启动的时候就能够自动消磁了，真是“人性化”阿~~~~~~当然，每次启动的除了“消磁圣手”，还有宣传的网站：） & Z }3 C6 {; m6 z: h0 }8 q 只是苦了我又要清理启动项了。为什么98的注册表编辑器不能保存上一次打开的位置阿。 结语： ) X1 S! r( J$ k上面大部分都是废话，能看到这个地方辛苦了大家，真是不好意思。 也许这只是一个开玩笑的程序，或者是有些精深的地方我没有领悟到。没有别的意思，只是闲得无聊。也希望作者没有别的意思，还希望作者在下一版升级的时候加入“取消开机启动”的选项。 4 X% l" h: {$ ^) |0 i6 Z% F权当一笑吧，呵呵~~~~~~~~~~~~ . ~0 `' }: S% E- f4 _ & B. @: Z8 D5 U- g monkeycz于2004年平安夜 / w0 j% T! L+ Q. B2004年12月24日

大家如果是用VC什么开发的话，可以用用Sleep（）

煎饼

delay

hater315

看的快睡着了.

煎饼

以下是引用hater315在2004-12-25 15:45:00的发言： 看的快睡着了.

0 U) A% L" K/ j2 T8 e; m4 n # a, d: ^. J- P4 A: Q0 v( K 睡就睡了吧,这个就是睡觉代码

天马星空

看不懂 俺是代码白痴

Eagle

还好，不过不喜欢DELPHI，用VC的逆向后最好读了。

游侠无极限

Delphi的用DeDe反汇编最爽了，连我这菜鸟也能比较看明白点了

Eagle

以下是引用游侠无极限在2004-12-26 22:03:00的发言： 2 w1 O# L8 }+ gDelphi的用DeDe反汇编最爽了，连我这菜鸟也能比较看明白点了

) b v }( y$ b, B7 R& X) Y x& \ W4 U- I0 N& B& A对于要读懂是好，但真要跟踪一个数据，那就有点麻烦了。它的变量的存取方式对于我来说有点乱。

小笨狗

VC反编译有么？？

Eagle

干嘛一定要用专用的反汇编工具啊？VC的你直接用W32DASM或OD就行了。

煎饼

都是高手,偶闪

fimqad

以下是引用煎饼在2004-12-25 15:49:00的发言：
.


睡就睡了吧,这个就是睡觉代码

6 d+ X, A r6 S7 n

同感