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

游侠无极限

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

试用：
下载下来的是一个压缩包，解开后只有一个可执行文件。运行一下，首先弹出了浏览器窗口，连向了一个网站（可能是软件公司的网站吧），随手关掉。软件的主界面倒是很简捷，最主要的就是“开始消磁”按钮。点击一下，出现了一个进度条在不断的前进，同时还有提示文本出现，就是这些“系统正在做消磁前的准备...”、“系统正在收集电脑的电磁波...”、“系统正在释放融磁电波...”、“系统正在释放融磁电波...”、“系统正在做最后的消磁工作...”。经过这样一番神秘的仪式之后，弹出一个对话框提示“融磁成功，已经成功中和电脑周围磁场?”刹那之间，我对作者的佩服如同滔滔江水连绵不绝，这可是项巨牛x的技术，只靠软件就可以进行消磁了，而且还是电脑周围的电磁波，不知道作者是否申请了专利。怀着最作者的无比崇敬和那份极度的神秘感，我飞快的的把软件给肢解了：）
% r, n5 p; c" L' R4 F3 W
$ H! `5 u7 H0 B+ O分析：
检测一下，是用Delphi写的，没有加壳。用DeDe载入后，反编译“开始消磁”按钮点击事件对应的代码，复制如下：

0047FF28   53                     push    ebx
0047FF29   8BD8                   mov     ebx, eax
0047FF2B   33D2                   xor     edx, edx

* Reference to control TFrmRamMain.Panel2 : TPanel
|
0047FF2D   8B83FC020000           mov     eax, [ebx+$02FC]
9 [# a, a/ U: {4 C" n
* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
0047FF33   E80CA6FAFF             call    0042A544
3 t) h* T% u& v! d  X% j0047FF38   B201                   mov     dl, $01
2 K# _  @5 w, ?4 G9 X0 }
. u/ L$ G) _8 A4 N  Z" [* Reference to control TFrmRamMain.Panel1 : TPanel
|
0047FF3A   8B83F0020000           mov     eax, [ebx+$02F0]
" l6 L2 p1 A. |
* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
0047FF40   E8FFA5FAFF             call    0042A544
. E+ V0 z- l9 y+ a- ^7 F
8 q& J, w4 e  a. H9 b* Possible String Reference t '系统正在做消磁前的准备...'     ;提示文本，准备好了
$ R9 q2 _! q% B: b|
1 U9 X4 B( d# G4 v0047FF45   BA7C014800             mov     edx, $0048017C

* Reference to control TFrmRamMain.Label3 : TLabel
|
0047FF4A   8B83F4020000           mov     eax, [ebx+$02F4]
8 Y' D7 `* r" e* J+ x: M, ?
7 a; A; a: g8 g- L* Reference t controls.TControl.SetText(TControl;TCaption);
/ g' N$ d4 Q; v0 K8 f# B& N|
0047FF50   E807A7FAFF             call    0042A65C
  y7 ]: r0 G6 o1 p  U, f4 K
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;进度条开始动了
) J1 O9 R- X& ]5 Y|
" M8 e, c5 m; V6 }1 T0047FF55   8B83F8020000           mov     eax, [ebx+$02F8]

1 D# u# e; d  i- r* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
+ e  k- h7 o% F4 R' b6 ^0047FF5B   E80489FDFF             call    00458864
" A2 p- Q  a2 v2 a0047FF60   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                            ;核心代码？~~~~~！！！！！！牛x，这样就可以“中和电脑周围磁场”，佩服佩服~~~~~~
3 x4 V: p( b) a( T|
& V  O& F3 y8 y* P0047FF62   E8D1020000             call    00480238
6 k# d; O9 \* @# v; |$ H, p
9 X( T( m. \4 u# ~0 l/ }* H* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;进度条继续在动
( g) q  Y3 K# G2 {( G4 z; o|
0047FF67   8B83F8020000           mov     eax, [ebx+$02F8]
- K; Y) u' H- I  ^; ^
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
$ p% c0 Z  N5 y* d- x1 x& n|
0047FF6D   E8F288FDFF             call    00458864
0047FF72   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                            ;休息一下，不知道从何方招来的神圣正在提我们消磁：）
* L1 J$ F( i/ x* Y. t; S|
9 m$ p, Y  C  G, s+ Q5 r) ?0047FF74   E8BF020000             call    00480238
1 V9 x! v, j8 w: _
2 @0 Z4 o4 t1 S) f3 z* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar  ;继续动
0 J$ J  n+ N6 R5 Q' s- ||
0047FF79   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
- r/ z* T2 r2 J0 H" }' {) I: q|
2 l) l4 l1 \  D0047FF7F   E8E088FDFF             call    00458864
0047FF84   8BC3                   mov     eax, ebx

" p  n" ]' ~& \; C# o0 p: B% F, z, T* Reference to : TFrmRamMain.Delay()
; d6 c7 O& ~' d& i6 r2 v" F|
0047FF86   E8AD020000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0047FF8B   8B83F8020000           mov     eax, [ebx+$02F8]
6 H- ^. R; V) u& x
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
8 `) Y8 o) c- t7 {+ a7 ?2 F0047FF91   E8CE88FDFF             call    00458864
0047FF96   8BC3                   mov     eax, ebx
. {2 }  p0 O* x, L
* Reference to : TFrmRamMain.Delay()
2 t0 ^/ I( i7 _* u5 l' X|
2 P/ H( ?4 V" J1 z% L4 Z0047FF98   E89B020000             call    00480238

) E% I1 l8 n/ X* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
/ @8 ^3 @) \- Y/ b# [$ E, B$ ^, ]9 U2 b|
* n+ a* Q9 I0 a6 n8 n: `8 `' i$ Z0047FF9D   8B83F8020000           mov     eax, [ebx+$02F8]

  J6 Y$ U! }# Y8 v* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
" m* w- t& s/ o6 {4 |3 S+ n|
0047FFA3   E8BC88FDFF             call    00458864

* Possible String Reference t '系统正在收集电脑的电磁波...'
|
. Q& W+ f2 Q5 d4 c0047FFA8   BAA0014800             mov     edx, $004801A0

* Reference to control TFrmRamMain.Label3 : TLabel
9 \/ ?" n; L) x1 F& o|
0047FFAD   8B83F4020000           mov     eax, [ebx+$02F4]
7 M5 M6 |  D. |% @5 {) U# W
  L) C2 J4 @# Q! P! S% b* Reference t controls.TControl.SetText(TControl;TCaption);
3 t- \. h7 X( T7 l% t|
' z9 @, h! N; t3 U. r1 Q9 p) Z6 O0047FFB3   E8A4A6FAFF             call    0042A65C

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
1 i& a  {" e5 V4 B# p9 u# W, H|
, ?& Z$ _% E5 X0 x! d: P# l0047FFB8   8B83F8020000           mov     eax, [ebx+$02F8]

: |4 G. \6 I  E2 s9 P" A* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
5 x" S4 l! h$ c0047FFBE   E8A188FDFF             call    00458864
4 e: ]0 K& H  R7 w9 W0047FFC3   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()                             ;根据提示，这句应该是收集电磁波的代码。
- E4 q6 H; B8 l|
0047FFC5   E86E020000             call    00480238
3 M# g0 d& Z9 G' N4 X
, D6 j8 E% A* V+ x6 V* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
* M9 j# W7 W4 }* @3 \! l- E- W/ w|
0047FFCA   8B83F8020000           mov     eax, [ebx+$02F8]

. f1 [8 l, N; |( ^% W* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0047FFD0   E88F88FDFF             call    00458864
0047FFD5   8BC3                   mov     eax, ebx

4 y" R3 `8 z5 }4 j  |7 o* Reference to : TFrmRamMain.Delay()
0 P& v) \: v, j! Q* d|
0047FFD7   E85C020000             call    00480238

" Z" X4 k6 G+ k, S7 \4 [+ R* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
7 C" Z9 S! T: C% G, }, Z( W0047FFDC   8B83F8020000           mov     eax, [ebx+$02F8]

. j7 Z- ^8 [3 s. K3 y, I6 V* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
8 {& \  l+ B( @# u- c0047FFE2   E87D88FDFF             call    00458864
0047FFE7   8BC3                   mov     eax, ebx

4 X: R& c' K+ m8 D2 X$ H5 J* Reference to : TFrmRamMain.Delay()
0 P+ ]$ U, \0 m4 E' }|
, d( x$ N. C) P' |$ K, K0047FFE9   E84A020000             call    00480238
2 b% i8 T/ w: l& v& J
# U7 f, ]/ Y/ d4 B0 ?3 a/ g* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0047FFEE   8B83F8020000           mov     eax, [ebx+$02F8]

6 n* T3 G/ w; e  a% K5 Z* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
$ y# Y' o& s6 O" `3 o  l; q3 ]|
1 D5 f% t7 q+ Z0047FFF4   E86B88FDFF             call    00458864
# B3 C5 v$ ~6 D+ }0047FFF9   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
|
" Q( f. {* [. N" L% @0047FFFB   E838020000             call    00480238
6 ]; ~. L+ x: [: V
" ]! L0 t1 Z$ h# J0 ?* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
3 S; b( N# e5 X  ]% D00480000   8B83F8020000           mov     eax, [ebx+$02F8]
0 B5 U, X' x. h0 q* x% B; x
$ q1 K4 B& ~  k4 K* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
, h1 o0 I( ]: U" q|
/ P  q/ D+ q3 e& t) O- p00480006   E85988FDFF             call    00458864
+ o+ {" j# w5 O( d* O
) s( S, B1 F( n! M( X* Possible String Reference t '系统正在释放融磁电波...'
|
0 A$ y2 ~/ s9 j; j7 r- J5 J+ F0048000B   BAC4014800             mov     edx, $004801C4

* Reference to control TFrmRamMain.Label3 : TLabel
|
00480010   8B83F4020000           mov     eax, [ebx+$02F4]
% G# ]7 r5 v1 P) c9 g
, `3 u9 K( V* ]. g6 C* Reference t controls.TControl.SetText(TControl;TCaption);
|
00480016   E841A6FAFF             call    0042A65C

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
% C6 a% e& [1 _5 E& y: ]0048001B   8B83F8020000           mov     eax, [ebx+$02F8]
( A' e) p1 g- ]1 Q: d$ D7 Y
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
00480021   E83E88FDFF             call    00458864
; \4 u% v' b% p: U2 j00480026   8BC3                   mov     eax, ebx

! [6 ^/ g) T" r* \. l* i* Reference to : TFrmRamMain.Delay()                             ;消磁的核心代码，这项技术大家可要记牢了，不可乱用，说不定作者申请专利了呢：）
7 g& ?  ~# T2 U& Y|
5 d, o6 K& M( d00480028   E80B020000             call    00480238
1 n" H  O. N+ t5 t0 p0 A
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0048002D   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
/ a) U( c) ^: D+ N5 y|
00480033   E82C88FDFF             call    00458864
00480038   8BC3                   mov     eax, ebx
8 u6 i4 S" e) _) H' X
" Q% d+ k2 |+ ~1 B* Reference to : TFrmRamMain.Delay()
! j( ~9 `: B# P4 }  {|
: r! n: x9 p! i$ b/ h( Q  p- d0048003A   E8F9010000             call    00480238

) y& Q5 P% G' V* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
0048003F   8B83F8020000           mov     eax, [ebx+$02F8]

( N9 v# M! N: Y7 z( w% p2 O* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
6 g( r" T9 k$ V  }+ m00480045   E81A88FDFF             call    00458864
0048004A   8BC3                   mov     eax, ebx

  F7 F2 a. W, m* Reference to : TFrmRamMain.Delay()
* C# l+ J3 Y* Z2 ||
0048004C   E8E7010000             call    00480238
* y8 Y: E5 X: Q7 w7 @0 r
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
4 u) p( r- \3 @7 U; }( X/ ~|
00480051   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
1 F) k, B! P# b00480057   E80888FDFF             call    00458864
3 v7 c; Q$ [  c" g0 p% J0048005C   8BC3                   mov     eax, ebx

' I# m% W# L- G* C" j* Reference to : TFrmRamMain.Delay()
* i1 P; f& R  M5 b5 x6 a|
0048005E   E8D5010000             call    00480238

/ {9 c# T; ?4 }! Z5 t1 a* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
00480063   8B83F8020000           mov     eax, [ebx+$02F8]

; u" J, v  q. p# u+ R( t! b# b* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
00480069   E8F687FDFF             call    00458864

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
  G3 w7 s( {8 e5 U. p0 G+ {7 y0048006E   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
6 D" F2 d. W$ w2 C|
7 }" K/ i$ ^' r4 ^00480074   E8EB87FDFF             call    00458864
00480079   8BC3                   mov     eax, ebx

: S( o: f0 @0 X) S8 u+ w1 B* Reference to : TFrmRamMain.Delay()
' R5 a" h$ Q: I# R4 _$ Q1 M|
0048007B   E8B8010000             call    00480238
6 Y/ _- T+ V: D, a5 z/ E: l
! x7 ]  m, u4 |. y4 j' m. b6 C* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
& d% ~! b; I. k00480080   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
00480086   E8D987FDFF             call    00458864
" t( \) ~6 d; ]7 p6 l9 h+ M0048008B   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
( a5 l; T: t) G, j) B$ v|
0048008D   E8A6010000             call    00480238
( A9 y: y! Y% ^5 m0 x; S0 @+ @
! a( P; P: @; A- C  J* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
. m4 `$ F& J! a4 a  L|
/ W1 z! {" I$ [9 `' z00480092   8B83F8020000           mov     eax, [ebx+$02F8]

1 H/ h8 k- X0 H$ l: i' [* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
9 ]9 v  s# F+ X+ ]* ~|
00480098   E8C787FDFF             call    00458864
0048009D   8BC3                   mov     eax, ebx

* Z/ O8 d7 ^2 D, w* Reference to : TFrmRamMain.Delay()
|
0048009F   E894010000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
004800A4   8B83F8020000           mov     eax, [ebx+$02F8]
7 g5 T7 m4 r3 T. _, E) Z* l; L- `
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
004800AA   E8B587FDFF             call    00458864
004800AF   8BC3                   mov     eax, ebx
; i1 T/ P9 ?3 d5 f& g
* Reference to : TFrmRamMain.Delay()
|
004800B1   E882010000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
1 ]" U& Y/ g. a7 K& ~|
004800B6   8B83F8020000           mov     eax, [ebx+$02F8]
' O: m& v8 s: t  d/ k1 z# V. K
# ^; X/ |3 e. Q: C; }) W% p* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
9 r+ i' M' ~! P; I* S- P/ r% E( _. v, S|
004800BC   E8A387FDFF             call    00458864
8 X% @7 T! J8 O% t! ^- _
# }: [1 u3 R3 N6 J' }* Possible String Reference t '系统正在做最后的消磁工作...'
|
004800C1   BAE4014800             mov     edx, $004801E4

* Reference to control TFrmRamMain.Label3 : TLabel
! G% X( o9 }7 |# W7 J|
004800C6   8B83F4020000           mov     eax, [ebx+$02F4]
6 {% C) `6 k# c; T. |) ]' K3 i/ f
* Reference t controls.TControl.SetText(TControl;TCaption);
# H+ z: j# Z4 R  \|
004800CC   E88BA5FAFF             call    0042A65C
; @% m; y7 [$ G* x( Q  u8 N
7 ?* k/ ~. ~9 R( y1 z8 o/ D3 G* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
, ?- `" W6 e% m0 y|
  |  q( m7 H# f0 f7 {004800D1   8B83F8020000           mov     eax, [ebx+$02F8]

7 i( d" ^& _# H1 M: S( D* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
6 J7 t3 \- S! w* l( ]- Y4 v|
! v& ]! R" U) _! k8 n( t- b) I004800D7   E88887FDFF             call    00458864
004800DC   8BC3                   mov     eax, ebx
8 S2 x3 K* I2 e, {2 \# N3 s
4 Q6 Y5 ?4 S" i! T* Reference to : TFrmRamMain.Delay()                              ;我就不说什么了吧：）
, o; C  W8 ?2 m3 J|
004800DE   E855010000             call    00480238

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

( k1 C; v  M" y* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
3 o* l2 k* h: v% c004800E9   E87687FDFF             call    00458864
" P3 o: l& K! r8 h004800EE   8BC3                   mov     eax, ebx
* P( D  V% ~+ B: k. Q/ _8 A+ S' v
* Reference to : TFrmRamMain.Delay()
3 c+ [4 u7 O% m8 N|
) L4 V9 Q* e. A, a# \" y1 T3 _004800F0   E843010000             call    00480238
+ X* c0 Y7 O( i( T5 o* a  P
# a2 z; h. f- o) Q- {3 F* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
004800F5   8B83F8020000           mov     eax, [ebx+$02F8]
, w+ p( p# I6 z1 K, e' O
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
7 z7 m+ @5 [, w8 t$ Q& K4 d004800FB   E86487FDFF             call    00458864
; j) K" b. f0 F0 u& Q3 o00480100   8BC3                   mov     eax, ebx

  k; ~8 F! B4 w5 q& j6 H* Reference to : TFrmRamMain.Delay()
, t7 g7 R' W1 l6 `; i6 M0 N|
00480102   E831010000             call    00480238

* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
* T$ ?. ^- _2 H4 ^9 @|
00480107   8B83F8020000           mov     eax, [ebx+$02F8]
: z. W3 K4 a: K" u+ f( b" T
* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
& ^% J) F0 Q0 \# O3 d0 M& c0048010D   E85287FDFF             call    00458864
. X4 E0 _; o, j7 N. \00480112   8BC3                   mov     eax, ebx

* Reference to : TFrmRamMain.Delay()
( R/ T* s: O! `|
6 X2 l. Z- z* g8 D00480114   E81F010000             call    00480238
. h, @" T- c9 S, U
* Reference to control TFrmRamMain.ProgressBar1 : TProgressBar
|
00480119   8B83F8020000           mov     eax, [ebx+$02F8]
, z, B+ T) z0 x* l  C
- s: [. ]  l4 E* A9 R* Reference t comctrls.TProgressBar.StepIt(TProgressBar);
|
0 ]" k$ Y$ L) J. C0048011F   E84087FDFF             call    00458864
00480124   B8E8030000             mov     eax, $000003E8
2 r9 t# J* d. ]  F% s1 F+ m
" G3 }& i3 Y, V# c' \" `' R. Y$ R  N* Reference t system.@RandInt;
% a: F! P% |7 d0 y; b|
00480129   E86629F8FF             call    00402A94
  Y4 I9 @- K9 d; y7 F3 r  @2 C8 e0 q0048012E   85C0                   test    eax, eax
! `, e( i/ @! e  V9 N7 r* q2 Y00480130   6A40                   push    $40
$ g6 z/ v* _1 R' N0 f) q# J3 y
* Possible String Reference t '电脑消磁圣手'
& {7 R5 h4 V/ x( T# f* \|
00480132   B900024800             mov     ecx, $00480200
' c" j' D2 G$ D
* Possible String Reference t '融磁成功，已经成功中和电脑周围磁场?
! q- n9 u0 X# [6 }- `7 f|                                ?
|
00480137   BA10024800             mov     edx, $00480210
# k' d$ k8 f: R
* Reference to TApplication instance
$ D% }: i0 b9 ~5 [|
0048013C   A148284800             mov     eax, dword ptr [$00482848]
9 w/ k! B- ^8 C3 {1 C8 A- X8 T/ `00480141   8B00                   mov     eax, [eax]
& M* Y1 H' q/ `' @: X
7 X) B, k4 }2 b: ^5 T# {9 _0 x4 D& k* Reference t forms.TApplication.MessageBox(TApplicationCharChar;Longint):Integer;
|
7 n, n# T* V0 Q9 q9 Q! L4 ~00480143   E89895FCFF             call    004496E0                  ;大功告成，消磁成功！！！
00480148   33D2                   xor     edx, edx

* Reference to control TFrmRamMain.Panel1 : TPanel
|
0048014A   8B83F0020000           mov     eax, [ebx+$02F0]

* Reference t controls.TControl.SetVisible(TControl;Boolean);
|
00480150   E8EFA3FAFF             call    0042A544
" Q2 j6 V& h5 r% c0 ]00480155   B201                   mov     dl, $01

: T! b) h* h. W  d1 _! r  {$ [! q* Reference to control TFrmRamMain.Panel2 : TPanel
: i3 F' j9 w9 y6 g$ b/ F  P4 J9 H|
' s! W' J( R, h' N( R5 ]. M' [00480157   8B83FC020000           mov     eax, [ebx+$02FC]
, U' V3 e2 W/ ?1 n
7 v  z% i  l* e1 k" ]& m* Reference t controls.TControl.SetVisible(TControl;Boolean);
! `' ^+ Z$ U0 M" z. @- i# |$ y8 r|
! A# e4 }9 e- ^# O4 p7 X4 k2 Y0048015D   E8E2A3FAFF             call    0042A544
+ m4 @/ v5 l; z3 D- j
* Reference to TFrmAbout instance
7 m3 x4 B; Y; J! E! v# o9 Q  `|
( g' a8 J6 K6 V% B0 T, S00480162   A148264800             mov     eax, dword ptr [$00482648]
00480167   8B00                   mov     eax, [eax]
00480169   8B10                   mov     edx, [eax]

' ]; R5 y1 `/ v9 Z" `" k3 w* Reference to method TFrmAbout.ShowModal()
|
+ T% D& n( c/ H9 _0048016B   FF92D8000000           call    dword ptr [edx+$00D8]         ;关于窗口露一小脸，是介绍公司的。如此精深的技术，倘不见一下那只下蛋的鸡，岂不是太可惜了么：）
00480171   5B                     pop     ebx
6 ~- H; g" a. V' v2 F) i5 i00480172   C3                     ret

游侠无极限

上面就是“消磁圣手”的核心代码。逆向了这么重要的代码心里甚是不安。软件的开发公司千万不要告我啊！不过已经看了，再多看一点也无妨吧。谁知这一看不要紧，又发现了软件作者的体贴之处，请看下面的代码，是窗体创建事件对应的代码： 0 Z. N$ Q8 z: t! A/ |- }1 R & T5 C" f; o$ q+ D! m* S004802F8 55 push ebp 004802F9 8BEC mov ebp, esp 3 p: r4 h+ z$ ?! \; u, P004802FB 33C9 xor ecx, ecx 004802FD 51 push ecx 004802FE 51 push ecx & {2 p8 ?* n# k004802FF 51 push ecx ' p4 t. m/ \6 V1 N8 E00480300 51 push ecx 00480301 51 push ecx 00480302 51 push ecx 00480303 51 push ecx % ^' V- q, R- t6 {* ?00480304 33C0 xor eax, eax o2 C; l( Y2 i3 E00480306 55 push ebp 8 A ]' v, J9 _7 \( F3 J/ R3 z3 O7 j 0 V3 n7 o4 y( c1 @# ]3 G* Possible String Reference t '檫0?脬嬪]? . E; {8 m3 T$ s| . q6 Y1 ~$ c/ d w* a00480307 6808044800 push $00480408 , V' _2 |& M# o* c. ~7 D / K. ~" m f7 o3 q0 Y6 @***** TRY | " ~4 F/ O9 \; I. T. {& e0048030C 64FF30 push dword ptr fs:[eax] 0048030F 648920 mov fs:[eax], esp 00480312 8D55F0 lea edx, [ebp-$10] # k2 D, s8 e; S+ \; A ' \ o5 x& U* P2 N* Reference to TApplication instance | 6 H1 H2 x# {7 f. M3 Y. a00480315 A148284800 mov eax, dword ptr [$00482848] ) x# j' d1 L: @! I% F! R, m0048031A 8B00 mov eax, [eax] * Reference t forms.TApplication.GetExeName(TApplication):AnsiString; ! D; K$ n5 b- c| 0048031C E82F97FCFF call 00449A50 ;Who am I? $ q: B! c0 s& C6 _00480321 8B45F0 mov eax, [ebp-$10] , K$ o6 {. S; f' h00480324 8D55F4 lea edx, [ebp-$0C] * Reference t Unit_00406FD0.Proc_00408110 | * i, L( r F- J! d* S00480327 E8E47DF8FF call 00408110 0048032C 8B45F4 mov eax, [ebp-$0C] Z) }: i! e' t) `0 U) q C0048032F 50 push eax 6 X& U' s b. Q4 |# S7 ?00480330 8D55E8 lea edx, [ebp-$18] ! |* F8 {3 I$ k+ D' ~+ }' p , ]& R( x U% \* Reference to TApplication instance | . v- w) m! R) R00480333 A148284800 mov eax, dword ptr [$00482848] 00480338 8B00 mov eax, [eax] % `) w) H( }9 O5 U1 U4 f" t" \8 a * Reference t forms.TApplication.GetExeName(TApplication):AnsiString; | # A! R/ h% ^3 j( v$ V( o5 \: B0048033A E81197FCFF call 00449A50 0048033F 8B45E8 mov eax, [ebp-$18] 2 H0 V$ _9 P* Y( w6 H7 \0 M1 x00480342 8D55EC lea edx, [ebp-$14] ( u' O2 n3 o7 R1 o% d* Reference t Unit_00406FD0.Proc_004080DC ' c' e& @6 J2 g( G| 00480345 E8927DF8FF call 004080DC 0048034A 8B55EC mov edx, [ebp-$14] 0048034D 8D45FC lea eax, [ebp-$04] 00480350 59 pop ecx $ x+ [3 u; Q! o . j) h, L1 }7 g: K% u1 e* Reference t system.@LStrCat3; 4 r* c4 {( z$ N: g0 V, E: `| 1 l9 \8 U! `6 s0 q3 ~00480351 E8CA39F8FF call 00403D20 00480356 B201 mov dl, $01 * Reference to class TRegistry | 00480358 A174F14700 mov eax, dword ptr [$0047F174] 0 Y) W3 s: D) |6 N) a+ R) K * Reference t Unit_0047F114.Proc_0047F274 2 P, p8 G1 I" O/ W5 l| 0048035D E812EFFFFF call 0047F274 2 F2 n4 j J; d00480362 8945F8 mov [ebp-$08], eax `( \) g- J+ O b# u- ^00480365 33C0 xor eax, eax 00480367 55 push ebp # T' w7 [% g* Y" J2 l00480368 68DE034800 push $004803DE ***** TRY | 3 ^. J3 U- e9 C. r4 {9 L0 Z0048036D 64FF30 push dword ptr fs:[eax] 00480370 648920 mov fs:[eax], esp 00480373 BA02000080 mov edx, $80000002 + O9 ^% t8 K3 x* R0 P& l00480378 8B45F8 mov eax, [ebp-$08] 4 g' f. J; `7 a1 F* Reference t Unit_0047F114.Proc_0047F314 ) c8 \5 N7 l9 A| 6 M( r8 Q k8 @# ?0048037B E894EFFFFF call 0047F314 , K4 V, l+ h/ E2 }4 I7 F00480380 B101 mov cl, $01 * Possible String Reference t '\SOFTWARE\Microsoft\Windows\Current ;这个地方好熟悉，为什么我的毒霸不报警呢：） | Version\Run' | 00480382 BA1C044800 mov edx, $0048041C 00480387 8B45F8 mov eax, [ebp-$08] * Reference t Unit_0047F114.Proc_0047F378 | $ ? Y5 Y; l5 e1 Y6 {- D0048038A E8E9EFFFFF call 0047F378 , l6 r# B) Y( @3 s* I0048038F 84C0 test al, al : j* V9 a% ^3 j, j00480391 7435 jz 004803C8 00480393 8D4DE4 lea ecx, [ebp-$1C] 8 w$ A8 u; y, Y6 z4 C5 d& E0 }* Possible String Reference t 'JrRClean' 2 w8 v ~& S* `$ m| ' h9 q% x0 W' D2 {# d& I00480396 BA54044800 mov edx, $00480454 0048039B 8B45F8 mov eax, [ebp-$08] 8 ~2 a9 L( N' F$ {, n9 ]% x6 Z * Reference t Unit_0047F114.Proc_0047F540 | 0048039E E89DF1FFFF call 0047F540 004803A3 8B45E4 mov eax, [ebp-$1C] ( U. H/ ?9 _( ~$ f* o0 A" I004803A6 8B55FC mov edx, [ebp-$04] 3 q$ N6 v) Q8 P" y9 w, c0 p9 J" L* Reference t system.@LStrCmp; | 8 [; s8 r6 {3 I a004803A9 E8363AF8FF call 00403DE4 , L/ u4 ?1 U& i: h8 L! f9 C004803AE 7410 jz 004803C0 004803B0 8B4DFC mov ecx, [ebp-$04] ~+ o8 M5 J1 i+ o1 h9 \4 I# p 6 {+ M: K$ c8 G& s( k* Possible String Reference t 'JrRClean' ' T. g( b: w/ ^| ! V* b! c4 g3 u# o004803B3 BA54044800 mov edx, $00480454 * A5 F, y" K. h- [; q004803B8 8B45F8 mov eax, [ebp-$08] ) t. t% e$ \ m4 ?8 y' r) f * Reference t Unit_0047F114.Proc_0047F514 # a; w% v9 G4 U9 K| 3 _. `8 R& s, |% ?$ t004803BB E854F1FFFF call 0047F514 6 I6 ^) K: V& z9 y' {3 d004803C0 8B45F8 mov eax, [ebp-$08] - o; @: h: |! n7 @ 7 B) L" `+ _4 K. [# X* Reference t Unit_0047F114.Proc_0047F2E4 | 8 v: o6 {+ R( J( E" y3 N/ g0 F: [0 Y004803C3 E81CEFFFFF call 0047F2E4 004803C8 33C0 xor eax, eax 004803CA 5A pop edx 004803CB 59 pop ecx 004803CC 59 pop ecx 004803CD 648910 mov fs:[eax], edx ( Q; X; P2 \) R+ E 8 T2 V+ P% |. E. M* C0 f" H****** FINALLY 0 k0 b7 N1 ~' e# Y" S/ \9 `- l| 3 i d. G, z/ m$ g* T004803D0 68E5034800 push $004803E5 8 W, b5 s# t2 @7 [- C& P3 W5 s004803D5 8B45F8 mov eax, [ebp-$08] * Reference t system.TObject.Free(TObject); 8 h2 L2 m. K( \ h| $ b: }5 m1 U$ O1 E004803D8 E8EF29F8FF call 00402DCC 8 R" K9 F' e+ G0 }5 ~7 J7 ?& Y( Y004803DD C3 ret * Reference t system.@HandleFinally; | 004803DE E90931F8FF jmp 004034EC # S3 N0 Q) t1 @) `0 \004803E3 EBF0 jmp 004803D5 0 g3 P- ^; h5 X7 M K ' a7 F& B, y8 T* r9 N% }) q$ L****** END 5 {1 C; z0 T( a: ~* K1 Y| 004803E5 33C0 xor eax, eax 004803E7 5A pop edx 004803E8 59 pop ecx 004803E9 59 pop ecx , F) L5 S& P7 r( L004803EA 648910 mov fs:[eax], edx * }$ E# [ D+ D K i( c****** FINALLY + W' ^) T5 t! G2 g( ]1 k| 5 w$ {! [2 W; K8 @ * Possible String Reference t '嬪]? % C5 C4 j5 Y1 U/ w3 }9 F$ f| 004803ED 680F044800 push $0048040F 004803F2 8D45E4 lea eax, [ebp-$1C] , e8 J, `6 e! _4 x0 c8 Y- N004803F5 BA05000000 mov edx, $00000005 5 D$ a1 y2 c# e2 c/ M& n * Reference t system.@LStrArrayClr; & A, d9 W9 ?$ h, T| 6 d: r' E! C" U% {004803FA E87936F8FF call 00403A78 004803FF 8D45FC lea eax, [ebp-$04] * Reference t system.@LStrClr(String;String); ' y# @3 r2 @2 P| 00480402 E84D36F8FF call 00403A54 % c: ^* ~( Y& e3 w00480407 C3 ret - g# z1 g4 Z1 D( r 3 G6 ]' J: a1 K* Reference t system.@HandleFinally; ' c$ \9 G5 i) `; {) K7 G) S, {+ S| 00480408 E9DF30F8FF jmp 004034EC 0048040D EBE3 jmp 004803F2 ****** END | & ~+ e1 K; N2 Y9 I/ d0048040F 8BE5 mov esp, ebp 00480411 5D pop ebp 00480412 C3 ret 0 V- C) k4 g1 ^ 上面的代码我就不用多解释了吧？要知道电磁波辐射在开机的时候是最强的，所以“体贴”的作者就把“消磁圣手”加入了启动项中，这样每次启动的时候就能够自动消磁了，真是“人性化”阿~~~~~~当然，每次启动的除了“消磁圣手”，还有宣传的网站：） 只是苦了我又要清理启动项了。为什么98的注册表编辑器不能保存上一次打开的位置阿。 2 X0 ^! }8 b" v 结语： 上面大部分都是废话，能看到这个地方辛苦了大家，真是不好意思。 也许这只是一个开玩笑的程序，或者是有些精深的地方我没有领悟到。没有别的意思，只是闲得无聊。也希望作者没有别的意思，还希望作者在下一版升级的时候加入“取消开机启动”的选项。 权当一笑吧，呵呵~~~~~~~~~~~~ 2 d$ N& ^1 H% ^. W monkeycz于2004年平安夜 8 r; n! a6 D9 H2004年12月24日

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

煎饼

delay

hater315

看的快睡着了.

煎饼

以下是引用hater315在2004-12-25 15:45:00的发言： : I4 `* w4 K' M- d看的快睡着了.

' j" ^" D! |; m$ |7 y# b , `; {& n) H& n% ? . P% y8 R5 e/ y睡就睡了吧,这个就是睡觉代码

天马星空

看不懂 俺是代码白痴

Eagle

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

游侠无极限

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

Eagle

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

/ [# L4 Q7 v- G$ O 对于要读懂是好，但真要跟踪一个数据，那就有点麻烦了。它的变量的存取方式对于我来说有点乱。

小笨狗

VC反编译有么？？

Eagle

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

煎饼

都是高手,偶闪

fimqad

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


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

7 W( b0 h9 I) t: n3 u: u

同感