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

游侠无极限

“电脑消磁圣手”的消磁“秘术”

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

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

分析：
- e+ F3 Z* P1 O  P- h检测一下，是用Delphi写的，没有加壳。用DeDe载入后，反编译“开始消磁”按钮点击事件对应的代码，复制如下：

" M, V) b9 t+ t& ~+ T5 U7 h0047FF28   53                     push    ebx
8 {& a+ }2 e7 x1 M0047FF29   8BD8                   mov     ebx, eax
0 c, i. a2 p7 P+ m7 D* k& L0047FF2B   33D2                   xor     edx, edx
  u8 E% O8 H6 s) p
* Reference to control TFrmRamMain.Panel2 : TPanel
|
. X) B" d$ o, J" V+ `6 \0047FF2D   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
0047FF33   E80CA6FAFF             call    0042A544
0047FF38   B201                   mov     dl, $01
3 y" v2 y& F+ k, u; L
* Reference to control TFrmRamMain.Panel1 : TPanel
9 p$ J% \. ^+ T- Z3 Q3 ||
0047FF3A   8B83F0020000           mov     eax, [ebx+$02F0]
( j/ x& t( B8 C) ]
* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
0 j, {* P2 e) }/ Q0047FF40   E8FFA5FAFF             call    0042A544

. D# e3 c5 b2 z! j* X* Possible String Reference t '系统正在做消磁前的准备...'     ;提示文本，准备好了
3 r5 @9 z; W$ n5 E( O|
+ T! h  L' o0 {2 V* I" B! d& J0047FF45   BA7C014800             mov     edx, $0048017C
( o% j! j( c" K0 f  [! H" }8 r
* Reference to control TFrmRamMain.Label3 : TLabel
|
0047FF4A   8B83F4020000           mov     eax, [ebx+$02F4]
( y: ~! x  N* L& i9 b2 f. V  V/ N
* Reference t controls.TControl.SetText(TControl;TCaption);
|
0047FF50   E807A7FAFF             call    0042A65C

% W% L5 p2 c  b- w* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;进度条开始动了
|
6 z0 s2 {' B- P( K' z4 [5 \- V/ D0047FF55   8B83F8020000           mov     eax, [ebx+$02F8]
$ o' I% c- W4 w: I* r6 U
: h" i2 Z3 h5 D$ M9 c7 G* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
% l6 I  D: W! k+ i, w  ]|
8 \$ }1 E: k; b. ]6 {4 E1 u0047FF5B   E80489FDFF             call    00458864
0047FF60   8BC3                   mov     eax, ebx
% u3 a, D% [, v$ S/ F$ b6 s/ y8 U3 Y
  g& K' f" l) B$ h8 |3 A8 f* Reference to : TFrmRamMain.Delay()                            ;核心代码？~~~~~！！！！！！牛x，这样就可以“中和电脑周围磁场”，佩服佩服~~~~~~
2 p' c  |  w* n0 F, \) l9 q|
0047FF62   E8D1020000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;进度条继续在动
: ~" c* o( l8 G0 K; O3 O|
$ x3 A; b" f2 X% ?$ f. B$ o5 r0047FF67   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
, e9 m, ^% Y) q. g$ I  Q: w; g|
" Y4 }. k7 u: P3 ?( ]6 f0047FF6D   E8F288FDFF             call    00458864
0047FF72   8BC3                   mov     eax, ebx

& w: a4 m; z  p3 U( P! V$ K6 w* Reference to : TFrmRamMain.Delay()                            ;休息一下，不知道从何方招来的神圣正在提我们消磁：）
/ w! x- L6 }6 h5 c|
0047FF74   E8BF020000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;继续动
& N6 K& k5 N$ c; H: Y& f|
) o; p. x+ Q0 _, y" T0047FF79   8B83F8020000           mov     eax, [ebx+$02F8]
7 N  k( |( S3 f0 z: i
& i0 q( l4 c4 G0 R% a* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
$ \1 y' U( z, [, i0047FF7F   E8E088FDFF             call    00458864
0047FF84   8BC3                   mov     eax, ebx

% O' x8 A0 X; m2 x& d, O* Reference to : TFrmRamMain.Delay()
|
- V: q9 A$ S: M  _" U; g' S3 [0047FF86   E8AD020000             call    00480238

, ]) d2 q# x, }6 i7 i6 R5 ]* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0047FF8B   8B83F8020000           mov     eax, [ebx+$02F8]
* {" q- r% D: \& @/ c) i
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
" S6 ?: s. P7 f5 A$ k0047FF91   E8CE88FDFF             call    00458864
; C* r9 Y0 j6 V; z% X# H3 s0047FF96   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
( q, w" U, Q5 ]5 C  q|
0047FF98   E89B020000             call    00480238

! Z7 D9 Y, z2 l# u) B: v& b. \4 k* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
4 P7 b4 T- t  h5 g|
2 B. i: S" E6 x& O8 {' y; B0047FF9D   8B83F8020000           mov     eax, [ebx+$02F8]

' A( K$ @5 q; q9 ?, t- w7 y& B6 r* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
$ \" \1 b- e+ e) }3 q, n|
. f. s1 \9 [( a0 n# @1 y+ m; G0047FFA3   E8BC88FDFF             call    00458864
- T' y+ P) j' P& H, Y: F3 S' [
# }, h5 r, K) R9 N* Possible String Reference t '系统正在收集电脑的电磁波...'
6 E3 v  n3 _0 G& ^|
3 U1 Q. ^1 K- o; k! @) A, l" y0047FFA8   BAA0014800             mov     edx, $004801A0
( j4 `9 Z7 X( j9 \
* Reference to control TFrmRamMain.Label3 : TLabel
* O+ |/ L7 t6 v8 a1 I|
0 z9 F$ o: w: d* P/ i, Z, c0047FFAD   8B83F4020000           mov     eax, [ebx+$02F4]

3 N3 j+ `' a. \* Reference t controls.TControl.SetText(TControl;TCaption);
5 O! M9 ~$ Z$ j* q$ p|
3 F" ^9 p6 u0 _; H0047FFB3   E8A4A6FAFF             call    0042A65C

9 C; D9 K: p* ^& J" z5 W: v* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
% [' F$ p) K1 v- c* V) E|
' X0 S( E1 z$ X" R0 _% m9 T# c0047FFB8   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
# U* B8 ^6 |: h0047FFBE   E8A188FDFF             call    00458864
0047FFC3   8BC3                   mov     eax, ebx

: z6 V  T$ w* ?) Z& x! H$ N* Reference to : TFrmRamMain.Delay()                             ;根据提示，这句应该是收集电磁波的代码。
0 |. t7 L) u. `7 b|
0047FFC5   E86E020000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0 f5 l( I; l( B% I/ F6 k6 f7 @0047FFCA   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
4 K, D* j. R% I3 ^|
0047FFD0   E88F88FDFF             call    00458864
0047FFD5   8BC3                   mov     eax, ebx
8 r6 U) s2 k+ D' l
* Reference to : TFrmRamMain.Delay()
|
0047FFD7   E85C020000             call    00480238
2 l4 @( {" l- n9 p3 o
  _0 \7 B3 E- E' U9 m* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
" s7 I* C7 w5 l|
) C4 J% E2 T& D# [( L0047FFDC   8B83F8020000           mov     eax, [ebx+$02F8]
& s# o& G; y7 J1 q) v, E* q) e
$ |2 w; e  a* B; P* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
( T8 d6 u7 U$ R0047FFE2   E87D88FDFF             call    00458864
- m" h9 }/ H) n9 o( {7 w0047FFE7   8BC3                   mov     eax, ebx
& X( f2 ?' ?3 A8 i9 I; b
* Reference to : TFrmRamMain.Delay()
- \0 J9 Q. S4 `2 W|
' l7 K3 S! Y! _8 c0 p0047FFE9   E84A020000             call    00480238
5 C+ \4 m; u- _) b7 p
8 z8 w3 P7 e8 ?* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0047FFEE   8B83F8020000           mov     eax, [ebx+$02F8]
# s# Q( M( ], J* }- w1 Y
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
3 b+ D1 ~6 x- P, D8 y3 `5 s|
0047FFF4   E86B88FDFF             call    00458864
5 l! I2 f* B* J1 d& q3 ^: s0 k8 @0047FFF9   8BC3                   mov     eax, ebx

! V  |5 m  M4 X' E+ O& u* Reference to : TFrmRamMain.Delay()
|
0047FFFB   E838020000             call    00480238

8 l5 D+ k$ m3 y% p+ _+ X* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
, ]1 J8 ~, I' I. J' X' j8 X|
00480000   8B83F8020000           mov     eax, [ebx+$02F8]
9 r  h0 b5 N. X5 Y3 H6 w
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
, m0 B* a1 w) P8 U8 X+ [00480006   E85988FDFF             call    00458864

0 c) x: K/ c  U- M5 y* Possible String Reference t '系统正在释放融磁电波...'
|
0048000B   BAC4014800             mov     edx, $004801C4

* Reference to control TFrmRamMain.Label3 : TLabel
|
0 a4 Z4 P: c8 S4 X6 g- ]& g0 r5 }00480010   8B83F4020000           mov     eax, [ebx+$02F4]

. g# d8 B- w$ X* Reference t controls.TControl.SetText(TControl;TCaption);
2 l/ D4 B9 `5 i) |7 E0 a|
* a7 U2 L1 P- C5 I, w00480016   E841A6FAFF             call    0042A65C

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0048001B   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
3 ~- A* _) @$ r$ i) ]8 J! P|
) b( h, q1 P7 R4 j0 ?00480021   E83E88FDFF             call    00458864
. c4 A- `# J8 ~+ I4 n& j00480026   8BC3                   mov     eax, ebx

: M  A2 b: d& `5 b6 ^# a! g* Reference to : TFrmRamMain.Delay()                             ;消磁的核心代码，这项技术大家可要记牢了，不可乱用，说不定作者申请专利了呢：）
|
4 c2 V* d: h: b5 D2 ]00480028   E80B020000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
6 \& v1 p! {1 m. C- n|
9 s0 Y5 h. g) N  a0048002D   8B83F8020000           mov     eax, [ebx+$02F8]

1 a1 q3 t4 r9 L* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
* y2 |# ?8 {9 C1 A6 ]- ^+ `+ t|
00480033   E82C88FDFF             call    00458864
' d' R5 {+ n7 u00480038   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
( i% ?! M, z& `: A8 W! q4 P/ c|
0048003A   E8F9010000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0048003F   8B83F8020000           mov     eax, [ebx+$02F8]
# v& y: M, ^. j. s
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
+ K% s" v) u. w0 J; v, D/ _/ a00480045   E81A88FDFF             call    00458864
5 l8 O# j8 e4 j  t) U' E) C0048004A   8BC3                   mov     eax, ebx
5 D3 u2 ]2 K- N& e5 M
* Reference to : TFrmRamMain.Delay()
9 v- F9 H7 y' H3 _! X) b* N|
$ `# c: p9 P- f& B8 \/ H0048004C   E8E7010000             call    00480238
' ^& d* X% I! }$ q
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
4 k9 P. v( O1 V* [00480051   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
00480057   E80888FDFF             call    00458864
. G/ S6 o7 H7 u0048005C   8BC3                   mov     eax, ebx

' ]" E+ z' r5 B! d3 o7 w* Reference to : TFrmRamMain.Delay()
- y0 _; ]# M4 }6 f, `! }+ a|
( w5 J/ t7 q( [; [# D6 z; Q0048005E   E8D5010000             call    00480238
. u3 t, N; v9 d9 L: |  \
: U- I3 N/ l$ _. R* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
8 T: ]* v5 i/ }9 }: ~% f0 p|
00480063   8B83F8020000           mov     eax, [ebx+$02F8]
" a& `9 |2 J% S- }1 d0 i" z
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
: T4 ?/ O/ X: n00480069   E8F687FDFF             call    00458864
9 w; y7 z% _/ _! [
$ h3 O, j) {# \8 c; u* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
- B  E5 ?. T2 s6 H4 u* {9 I; I) q|
# f7 l& q: ~4 x" y' w* R+ d0 C0048006E   8B83F8020000           mov     eax, [ebx+$02F8]
9 r" l; ~* V& |) d; X
; ^( f  l8 P& Q+ Y6 L* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
00480074   E8EB87FDFF             call    00458864
00480079   8BC3                   mov     eax, ebx

5 V( ?& w6 ^8 [0 c* Reference to : TFrmRamMain.Delay()
|
0048007B   E8B8010000             call    00480238
: T3 K; r' @" L7 K( \. i- D5 k
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
" u4 A# L0 ]: x/ {4 _% K|
00480080   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
2 y0 E$ v# W& l# W9 O1 h* u00480086   E8D987FDFF             call    00458864
/ {0 d- A: |: L+ i8 W0048008B   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
|
" p: q$ X5 e# n$ g* u# N0048008D   E8A6010000             call    00480238
' s4 ?% }4 d8 g/ d- C( C6 h( x4 R) N
" B$ ?2 E* g' R0 @* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
. R; b2 g$ ~5 w, o" [: E( n" {/ d|
00480092   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
/ T) b) Y, ]! O" k/ K& D& y4 V& N$ S# }00480098   E8C787FDFF             call    00458864
6 U9 C7 K8 w4 [4 b! N: T9 t0048009D   8BC3                   mov     eax, ebx
9 y1 u, q2 v' O. `+ k* o8 U1 j
# b3 u3 a8 i' e0 h- f* Reference to : TFrmRamMain.Delay()
|
0048009F   E894010000             call    00480238
/ }( E! f- P$ }6 r  H
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
004800A4   8B83F8020000           mov     eax, [ebx+$02F8]
9 F* F; ^0 T6 z% U& ^
) i1 z" f) j6 g* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
) E% K) u/ o; h& z004800AA   E8B587FDFF             call    00458864
004800AF   8BC3                   mov     eax, ebx
) |- }, Y) c, s
* Reference to : TFrmRamMain.Delay()
|
. \- E2 s' e9 t004800B1   E882010000             call    00480238

6 Z( p4 p* C3 {. k" C* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
004800B6   8B83F8020000           mov     eax, [ebx+$02F8]

, i" \3 m* Q) _, s5 |! W* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
4 i" \9 H. Z, [004800BC   E8A387FDFF             call    00458864

* Possible String Reference t '系统正在做最后的消磁工作...'
! M- p9 R3 {& W+ S# q$ M! a|
004800C1   BAE4014800             mov     edx, $004801E4

& H! d" |  l8 K* Reference to control TFrmRamMain.Label3 : TLabel
|
% P  W- o3 Z3 j, F004800C6   8B83F4020000           mov     eax, [ebx+$02F4]
4 K+ u& j# T; Z" f- d+ e
* Reference t controls.TControl.SetText(TControl;TCaption);
|
004800CC   E88BA5FAFF             call    0042A65C
8 e& C9 V) L  J4 k4 l1 a' {- l
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
  X  Q  H) v* _6 A2 N( c) [  Z8 G; z1 ]|
" o5 \& P+ z% e) }1 q004800D1   8B83F8020000           mov     eax, [ebx+$02F8]

4 X% U; \6 w. G$ c: O. m; v* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
004800D7   E88887FDFF             call    00458864
. R; S. c. C2 E3 _004800DC   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                              ;我就不说什么了吧：）
2 L3 I& S) n6 W8 r|
0 [# p/ m. P1 n" P: L' P004800DE   E855010000             call    00480238
" c% Z8 a1 b& i" u- h
+ M: Q# N" Z0 y- `& }- Z* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
4 ]7 W6 B4 w2 ]! T|
004800E3   8B83F8020000           mov     eax, [ebx+$02F8]

5 M% _6 C+ E5 @$ }  F6 t* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
004800E9   E87687FDFF             call    00458864
004800EE   8BC3                   mov     eax, ebx
* m6 }+ B$ a5 _5 C
* Reference to : TFrmRamMain.Delay()
$ W, S9 b9 z1 o. b) h% ~% y|
! |# D  x1 e% }004800F0   E843010000             call    00480238
; i' Q5 N& K  o6 P
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
1 L" P3 m# W, M* d7 H8 l|
004800F5   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
' b: x# Y& z7 f% u. U3 k8 I* x  a004800FB   E86487FDFF             call    00458864
00480100   8BC3                   mov     eax, ebx
! Q3 o( K# x5 _/ M; a" L
' [, M! W3 t! I/ C+ t- |6 }% b- G* Reference to : TFrmRamMain.Delay()
|
3 t' }* c+ K" ^5 ~; B4 P6 y00480102   E831010000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
9 d$ j1 D7 u( d( L) T|
00480107   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
+ u& t$ X) o6 F4 e- k' T% G|
0048010D   E85287FDFF             call    00458864
1 G9 u( C) I$ n" |& A  p% y6 T4 p00480112   8BC3                   mov     eax, ebx

" x3 n5 [4 h# ?# X; A# j% w* Reference to : TFrmRamMain.Delay()
9 H' l- [) E/ {4 M. H|
: e* c9 q0 z3 y7 y* t* W! L00480114   E81F010000             call    00480238
8 x# i$ ~' Z0 L
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
9 n  Y4 a7 M) w8 S& _( }00480119   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0048011F   E84087FDFF             call    00458864
, Z, }6 ~( I& z4 G6 l8 a00480124   B8E8030000             mov     eax, $000003E8

* Reference t system.@RandInt;
|
00480129   E86629F8FF             call    00402A94
0048012E   85C0                   test    eax, eax
$ h3 V( L* I) p7 ]8 H00480130   6A40                   push    $40

6 v( y9 j5 @$ ?  o2 w% F* Possible String Reference t '电脑消磁圣手'
|
( n! ~/ a6 ~; c% |, u! b00480132   B900024800             mov     ecx, $00480200

2 U' C8 ~2 |) J$ v) l* Possible String Reference t '融磁成功，已经成功中和电脑周围磁场?
|                                ?
9 d* F6 n; ?0 L  `- G8 K1 x" ?|
4 F, j) P% _4 @; ^00480137   BA10024800             mov     edx, $00480210

* Reference to TApplication instance
) t9 o# O0 U0 `1 h5 T- c! l|
8 \% M. e- W) X1 n. i- ~) ~5 G( ]0048013C   A148284800             mov     eax, dword ptr [$00482848]
00480141   8B00                   mov     eax, [eax]
% h6 ^0 X' h$ i  H. a0 d9 u1 \
* Reference t forms.TApplication.MessageBox(TApplicationCharChar;Longint):Integer;
0 n' D, x1 g/ E: A- }/ m; c|
00480143   E89895FCFF             call    004496E0                  ;大功告成，消磁成功！！！
00480148   33D2                   xor     edx, edx
+ o% p7 F) x) Q2 h1 r- k' h
8 c/ g( k# ]$ ]2 a$ j% V6 \* Reference to control TFrmRamMain.Panel1 : TPanel
|
0048014A   8B83F0020000           mov     eax, [ebx+$02F0]

* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
00480150   E8EFA3FAFF             call    0042A544
0 H, w/ n6 W6 k  j00480155   B201                   mov     dl, $01

* Reference to control TFrmRamMain.Panel2 : TPanel
5 @$ L8 m- V9 t  ^5 f|
00480157   8B83FC020000           mov     eax, [ebx+$02FC]
$ u. ~6 Z- w5 Q; {" H- x7 I
% h$ z# H  |5 l! R4 T& h) d  g, j* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
0048015D   E8E2A3FAFF             call    0042A544

- P# r; u$ |% k: u* Reference to TFrmAbout instance
* n2 t2 B% L  e|
00480162   A148264800             mov     eax, dword ptr [$00482648]
0 Z' D' f, p0 C/ A00480167   8B00                   mov     eax, [eax]
00480169   8B10                   mov     edx, [eax]
% b/ n! q. @5 E6 `' C5 @2 Z
* Reference to method TFrmAbout.ShowModal()
|
6 ~, D0 p# y  u9 Z# u. ^7 D0048016B   FF92D8000000           call    dword ptr [edx+$00D8]         ;关于窗口露一小脸，是介绍公司的。如此精深的技术，倘不见一下那只下蛋的鸡，岂不是太可惜了么：）
00480171   5B                     pop     ebx
; s( g9 d  n/ K$ ]' V% @; Q1 }! r00480172   C3                     ret

游侠无极限

上面就是“消磁圣手”的核心代码。逆向了这么重要的代码心里甚是不安。软件的开发公司千万不要告我啊！不过已经看了，再多看一点也无妨吧。谁知这一看不要紧，又发现了软件作者的体贴之处，请看下面的代码，是窗体创建事件对应的代码： & J+ E$ g* {/ l# [6 d, c - F6 i% ~7 D, p7 X6 h5 H004802F8 55 push ebp 004802F9 8BEC mov ebp, esp / V; U) y) X3 j6 S, ] |0 I, e004802FB 33C9 xor ecx, ecx - a R: w3 M8 f0 Z. Q; v7 @0 U004802FD 51 push ecx & v: q" K# z. k( c( ]004802FE 51 push ecx / z9 D# q- l3 Q9 |& N004802FF 51 push ecx 00480300 51 push ecx ' k N2 a1 S6 A6 ]( p' w% J00480301 51 push ecx " ^5 m) `* d/ z5 ~' l6 N/ P00480302 51 push ecx 00480303 51 push ecx S5 n! x5 I' X00480304 33C0 xor eax, eax 00480306 55 push ebp , i! n5 D8 N# o4 W2 y% x L# B* Possible String Reference t '檫0?脬嬪]? u! w. {& W- g, x+ M| 00480307 6808044800 push $00480408 # `/ {5 t* z' q# [1 Y ***** TRY & r/ e. c+ D0 o! |4 @| 0048030C 64FF30 push dword ptr fs:[eax] 5 t. J' C0 r$ w0048030F 648920 mov fs:[eax], esp 00480312 8D55F0 lea edx, [ebp-$10] 7 { r1 W" J4 [/ j4 C4 y8 A* H' q# E* Reference to TApplication instance | 00480315 A148284800 mov eax, dword ptr [$00482848] 8 T) w l F' c* G u: Z3 S0048031A 8B00 mov eax, [eax] 1 f# U5 X! V$ f5 J& R0 @" `$ H* r8 F7 N * Reference t forms.TApplication.GetExeName(TApplication):AnsiString; 0 K# u( X# ?0 t8 l* x) d| 0048031C E82F97FCFF call 00449A50 ;Who am I? " U5 E/ j) K/ C+ }. E, i( g00480321 8B45F0 mov eax, [ebp-$10] 00480324 8D55F4 lea edx, [ebp-$0C] # P1 t! D/ n/ J' x1 ~ # V% ^5 o5 p+ u! h* Reference t Unit_00406FD0.Proc_00408110 | 00480327 E8E47DF8FF call 00408110 " A$ a& B: A2 a+ d; X: K0 v0048032C 8B45F4 mov eax, [ebp-$0C] 7 B9 ^- b; G( V k2 B$ c0048032F 50 push eax 00480330 8D55E8 lea edx, [ebp-$18] * Reference to TApplication instance + E0 [% v6 D& [5 e| ( N+ c, J3 {: E8 {00480333 A148284800 mov eax, dword ptr [$00482848] 8 J0 I7 g, z }6 y00480338 8B00 mov eax, [eax] ! M/ |/ O' |& H& O' I1 N! a+ u * Reference t forms.TApplication.GetExeName(TApplication):AnsiString; * \0 [# C& }7 J8 T' H- M| * j0 J; \% {7 }$ D0048033A E81197FCFF call 00449A50 0048033F 8B45E8 mov eax, [ebp-$18] 00480342 8D55EC lea edx, [ebp-$14] ; M2 g$ E7 @2 n) q* Reference t Unit_00406FD0.Proc_004080DC | $ L" r4 a3 R+ U8 T00480345 E8927DF8FF call 004080DC ! K, f& z6 l; u0048034A 8B55EC mov edx, [ebp-$14] 0048034D 8D45FC lea eax, [ebp-$04] 00480350 59 pop ecx ) J8 q. |7 Q" q5 V8 J! O* `; w * Reference t system.@LStrCat3; | . w4 _+ ~6 d8 g/ i00480351 E8CA39F8FF call 00403D20 ' f# }0 J% ^& D" [; W( w* K00480356 B201 mov dl, $01 , s" P3 B/ ~$ J R% i% [/ l% \ * Reference to class TRegistry L3 Q* H$ J) M( `* Y| 5 N) r" _6 c. Z00480358 A174F14700 mov eax, dword ptr [$0047F174] ( v! h4 \$ s5 a7 [: P0 j* Reference t Unit_0047F114.Proc_0047F274 | 0048035D E812EFFFFF call 0047F274 6 } v4 _- ]$ ?" H# `( Z9 c00480362 8945F8 mov [ebp-$08], eax 1 n$ G C R+ R. S7 o6 R! z- H) r: t! u6 J00480365 33C0 xor eax, eax 5 z7 f& q5 g8 A( o: d$ v1 X00480367 55 push ebp ( s* [( U s; m( ?+ H00480368 68DE034800 push $004803DE 4 y+ I( G6 s, E8 C5 F$ b% j ***** TRY | * S3 Y! p7 ~& n. w0048036D 64FF30 push dword ptr fs:[eax] ) a1 Q, a; R. ]5 C4 W+ B00480370 648920 mov fs:[eax], esp 00480373 BA02000080 mov edx, $80000002 + M2 u2 i; P% e- ^7 I00480378 8B45F8 mov eax, [ebp-$08] , u6 y- O+ w* U1 U5 Q" ]! S* Reference t Unit_0047F114.Proc_0047F314 5 K1 T) \5 v/ A- v( x1 z| - u0 \3 x7 z; t0 c0048037B E894EFFFFF call 0047F314 9 A7 \ q7 O' ^' S( g1 f1 g" k$ o5 @: t( p00480380 B101 mov cl, $01 * Possible String Reference t '\SOFTWARE\Microsoft\Windows\Current ;这个地方好熟悉，为什么我的毒霸不报警呢：） | Version\Run' | 00480382 BA1C044800 mov edx, $0048041C & J5 E8 u5 a" B00480387 8B45F8 mov eax, [ebp-$08] # f* {7 c6 t( ?7 ?* Reference t Unit_0047F114.Proc_0047F378 | 7 h$ C) _5 k5 e+ ^& m/ b8 w! ^9 g" S! M0048038A E8E9EFFFFF call 0047F378 0048038F 84C0 test al, al 00480391 7435 jz 004803C8 00480393 8D4DE4 lea ecx, [ebp-$1C] * Possible String Reference t 'JrRClean' * k! B: O& x. }& E, L+ D| 00480396 BA54044800 mov edx, $00480454 0048039B 8B45F8 mov eax, [ebp-$08] Y! A. D! E* m+ @3 t; E* Reference t Unit_0047F114.Proc_0047F540 4 P; {+ ~+ p% ]6 z( I| 0048039E E89DF1FFFF call 0047F540 004803A3 8B45E4 mov eax, [ebp-$1C] . N2 {3 w) C4 L; p2 z004803A6 8B55FC mov edx, [ebp-$04] M' e. @8 O9 z: P2 u * J: F/ Z8 |: U' m/ r* Reference t system.@LStrCmp; 4 T8 [) z4 ^/ ]8 h| ' E, A: w$ U, N1 R( g+ R: G* t004803A9 E8363AF8FF call 00403DE4 # q4 T( ^% {+ C X! f( Q004803AE 7410 jz 004803C0 004803B0 8B4DFC mov ecx, [ebp-$04] * Possible String Reference t 'JrRClean' ( z E% D' P+ E' ^ X& U# j| 004803B3 BA54044800 mov edx, $00480454 004803B8 8B45F8 mov eax, [ebp-$08] % {" o7 g6 Y: M- E" m' a. a# g * Reference t Unit_0047F114.Proc_0047F514 5 H1 a- N# w" p( K& c0 Q; r$ y| 1 O# {0 D. R. l+ {2 n3 J004803BB E854F1FFFF call 0047F514 : H2 j/ f- j1 w6 i% v: p004803C0 8B45F8 mov eax, [ebp-$08] " M8 n. P k) b4 n2 }* Reference t Unit_0047F114.Proc_0047F2E4 % a+ {: ^5 ]( V; y* e# _| 004803C3 E81CEFFFFF call 0047F2E4 004803C8 33C0 xor eax, eax 004803CA 5A pop edx ) O! e$ ]& f2 p" j7 M+ |004803CB 59 pop ecx }$ m* q* o; R ]% A0 N5 l004803CC 59 pop ecx # `1 K0 z8 B% Y6 }004803CD 648910 mov fs:[eax], edx 6 v+ _( k( S- G' j2 {: X a- Z****** FINALLY | 004803D0 68E5034800 push $004803E5 004803D5 8B45F8 mov eax, [ebp-$08] * Reference t system.TObject.Free(TObject); / {& B0 e) ]* h! B. \| ! I |. l7 T- e% m9 n& D& z004803D8 E8EF29F8FF call 00402DCC 2 ?' I) e# z2 F% y$ H004803DD C3 ret ' W9 e5 }9 [. I. C0 p * Reference t system.@HandleFinally; | 004803DE E90931F8FF jmp 004034EC # g9 c, [3 k8 [& T. ?004803E3 EBF0 jmp 004803D5 0 }' b; ^0 J c i' e! u$ d****** END | 004803E5 33C0 xor eax, eax 004803E7 5A pop edx 8 c3 Y; B1 D$ [: e3 \$ |) r8 C0 l004803E8 59 pop ecx ) }* S' H3 G/ l. E# R7 ~ G) N004803E9 59 pop ecx 004803EA 648910 mov fs:[eax], edx & o5 b# F6 z0 l3 N8 Q: p+ Q 0 D6 H/ ^ y9 v, M5 @( c****** FINALLY | * Possible String Reference t '嬪]? 7 T$ }% V# c4 C4 B) `0 ]| 0 n, \4 b' c& _$ }: o) D$ C9 y6 n004803ED 680F044800 push $0048040F 004803F2 8D45E4 lea eax, [ebp-$1C] 004803F5 BA05000000 mov edx, $00000005 * Reference t system.@LStrArrayClr; | $ ]( E% T: b: i; E004803FA E87936F8FF call 00403A78 1 X- A5 e1 H5 ^4 `* V5 A6 R0 F- V004803FF 8D45FC lea eax, [ebp-$04] 1 u: ?# k9 `- x6 q* Reference t system.@LStrClr(String;String); , {& Y/ F# d. y+ _0 i$ ?| 00480402 E84D36F8FF call 00403A54 @' T1 E, o; ]* Q/ M00480407 C3 ret 6 t: x( c# x5 t7 T" Q2 ] ( \: [; S9 F5 B* t8 q1 A Z* Reference t system.@HandleFinally; | 3 i @. A& y2 M0 B& ]00480408 E9DF30F8FF jmp 004034EC 5 A p z! V! Q7 w' ?+ X0048040D EBE3 jmp 004803F2 ! u: r; u6 q! g ****** END | ; x- B/ j& [/ Q8 X0048040F 8BE5 mov esp, ebp 00480411 5D pop ebp 0 x7 ^ `9 f" ^! I8 F00480412 C3 ret 0 V o! _9 S# ?% W* U h 9 Q% N* {) `$ A上面的代码我就不用多解释了吧？要知道电磁波辐射在开机的时候是最强的，所以“体贴”的作者就把“消磁圣手”加入了启动项中，这样每次启动的时候就能够自动消磁了，真是“人性化”阿~~~~~~当然，每次启动的除了“消磁圣手”，还有宣传的网站：） 只是苦了我又要清理启动项了。为什么98的注册表编辑器不能保存上一次打开的位置阿。 ) x2 J4 Y; ` |3 {0 m4 S 结语： 上面大部分都是废话，能看到这个地方辛苦了大家，真是不好意思。 ! ^$ x; P6 q: Y/ i也许这只是一个开玩笑的程序，或者是有些精深的地方我没有领悟到。没有别的意思，只是闲得无聊。也希望作者没有别的意思，还希望作者在下一版升级的时候加入“取消开机启动”的选项。 ' p, C' k4 t% B, d权当一笑吧，呵呵~~~~~~~~~~~~ 0 l% x) i8 A/ X8 O( H% F monkeycz于2004年平安夜 2004年12月24日

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

煎饼

delay

hater315

看的快睡着了.

煎饼

以下是引用hater315在2004-12-25 15:45:00的发言： 7 t, t8 z3 F( [; L看的快睡着了.

) S `7 ]% U% H1 N5 K: a9 ? $ K0 {' j9 S) T# ~, ~5 ~4 S睡就睡了吧,这个就是睡觉代码

天马星空

看不懂 俺是代码白痴

Eagle

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

游侠无极限

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

Eagle

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

. m& M* p6 N' b" }" J - \! G3 p7 s' N2 h$ t% F& N5 r对于要读懂是好，但真要跟踪一个数据，那就有点麻烦了。它的变量的存取方式对于我来说有点乱。

小笨狗

VC反编译有么？？

Eagle

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

煎饼

都是高手,偶闪

fimqad

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


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

同感