378 lines
15 KiB
ObjectPascal
378 lines
15 KiB
ObjectPascal
|
unit U_DataLink;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Classes, Graphics,
|
|||
|
|
Controls, Forms, Dialogs, StdCtrls
|
|||
|
|
type
|
|||
|
|
TDataLink_YSYF=class(TForm)
|
|||
|
|
AdoDataLink: TADOQuery;
|
|||
|
|
ADOLink: TADOConnection;
|
|||
|
|
ThreeImgList: TImageList;
|
|||
|
|
ThreeLookAndFeelCol: TcxLookAndFeelController;
|
|||
|
|
ThreeColorBase: TcxStyleRepository;
|
|||
|
|
SHuangSe: TcxStyle;
|
|||
|
|
SkyBlue: TcxStyle;
|
|||
|
|
Default: TcxStyle;
|
|||
|
|
QHuangSe: TcxStyle;
|
|||
|
|
Red: TcxStyle;
|
|||
|
|
FontBlue: TcxStyle;
|
|||
|
|
TextSHuangSe: TcxStyle;
|
|||
|
|
FonePurple: TcxStyle;
|
|||
|
|
FoneClMaroon: TcxStyle;
|
|||
|
|
FoneRed: TcxStyle;
|
|||
|
|
RowColor: TcxStyle;
|
|||
|
|
handBlack: TcxStyle;
|
|||
|
|
cxBlue: TcxStyle;
|
|||
|
|
Green: TcxStyle;
|
|||
|
|
cxStyle1: TcxStyle;
|
|||
|
|
procedure DataModuleDestroy(Sender : TObject);
|
|||
|
|
procedure _PROC_004F975C(Sender : TObject);
|
|||
|
|
procedure _PROC_004F9764(Sender : TObject);
|
|||
|
|
procedure _PROC_004F97CA(Sender : TObject);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
{ Public declarations }
|
|||
|
|
end ;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
DataLink_YSYF: TDataLink_YSYF;
|
|||
|
|
|
|||
|
|
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
{$R *.DFM}
|
|||
|
|
|
|||
|
|
procedure TDataLink_YSYF.DataModuleDestroy(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
004F9644 33C0 xor eax, eax
|
|||
|
|
|
|||
|
|
* Reference to GlobalVar_0089316C
|
|||
|
|
|
|
|||
|
|
004F9646 A36C318900 mov dword ptr [$0089316C], eax
|
|||
|
|
004F964B C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TDataLink_YSYF._PROC_004F975C(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
004F975C 832D7031890001 sub dword ptr [$00893170], +$01
|
|||
|
|
004F9763 C3 ret
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TDataLink_YSYF._PROC_004F9764(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
004F9764 B097 mov al, $97
|
|||
|
|
004F9766 4F dec edi
|
|||
|
|
004F9767 0000 add [eax], al
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TDataLink_YSYF._PROC_004F97CA(Sender : TObject);
|
|||
|
|
begin
|
|||
|
|
(*
|
|||
|
|
004F97CA 48 dec eax
|
|||
|
|
004F97CB 0050D4 add [eax-$2C], dl
|
|||
|
|
004F97CE 42 inc edx
|
|||
|
|
004F97CF 0084D042007CD0 add [eax+edx*8+$D07C0042], al
|
|||
|
|
004F97D6 42 inc edx
|
|||
|
|
004F97D7 0058D4 add [eax-$2C], bl
|
|||
|
|
004F97DA 42 inc edx
|
|||
|
|
004F97DB 00D4 add ah, dl
|
|||
|
|
004F97DD B84F0030F6 mov eax, $F630004F
|
|||
|
|
004F97E2 48 dec eax
|
|||
|
|
004F97E3 004CFB48 add [ebx+edi*8+$48], cl
|
|||
|
|
004F97E7 0098FA48000C add [eax+$C0048FA], bl
|
|||
|
|
004F97ED 7948 jns 004F9837
|
|||
|
|
004F97EF 00ACF04800CCF0 add [eax+esi*8+$F0CC0048], ch
|
|||
|
|
004F97F6 48 dec eax
|
|||
|
|
004F97F7 00E4 add ah, ah
|
|||
|
|
004F97F9 ED in eax, dx
|
|||
|
|
004F97FA 48 dec eax
|
|||
|
|
004F97FB 00547848 add [eax+edi*2+$48], dl
|
|||
|
|
004F97FF 005878 add [eax+$78], bl
|
|||
|
|
004F9802 48 dec eax
|
|||
|
|
004F9803 0010 add [eax], dl
|
|||
|
|
004F9805 A948003CA9 test eax, $A93C0048
|
|||
|
|
004F980A 48 dec eax
|
|||
|
|
004F980B 00C0 add al, al
|
|||
|
|
004F980D 834800D0 or dword ptr [eax+$00], -$30
|
|||
|
|
004F9811 7948 jns 004F985B
|
|||
|
|
004F9813 004C8548 add [ebp+eax*4+$48], cl
|
|||
|
|
004F9817 00C4 add ah, al
|
|||
|
|
004F9819 844800 test [eax+$00], cl
|
|||
|
|
004F981C D88748008486 fadd dword ptr [edi+$86840048]
|
|||
|
|
004F9822 48 dec eax
|
|||
|
|
004F9823 0094C94800C0A9 add [ecx+ecx*8+$A9C00048], dl
|
|||
|
|
004F982A 48 dec eax
|
|||
|
|
004F982B 0038 add [eax], bh
|
|||
|
|
004F982D EE out dx, al
|
|||
|
|
004F982E 48 dec eax
|
|||
|
|
004F982F 00F4 add ah, dh
|
|||
|
|
004F9831 EE out dx, al
|
|||
|
|
004F9832 48 dec eax
|
|||
|
|
004F9833 0088BA4F00D8 add [eax+$D8004FBA], cl
|
|||
|
|
004F9839 EE out dx, al
|
|||
|
|
004F983A 48 dec eax
|
|||
|
|
004F983B 00EC add ah, ch
|
|||
|
|
004F983D AF scasd
|
|||
|
|
004F983E 48 dec eax
|
|||
|
|
004F983F 0080B6480020 add [eax+$200048B6], al
|
|||
|
|
004F9845 C44800 les ecx, [eax+$00]
|
|||
|
|
004F9848 0CBE or al, $BE
|
|||
|
|
004F984A 48 dec eax
|
|||
|
|
004F984B 0008 add [eax], cl
|
|||
|
|
004F984D C1480038 ror dword ptr [eax+$00], $38
|
|||
|
|
004F9851 BF4800B8C4 mov edi, $C4B80048
|
|||
|
|
004F9856 48 dec eax
|
|||
|
|
004F9857 00BCC4480074C3 add [esp+eax*8+$C3740048], bh
|
|||
|
|
004F985E 48 dec eax
|
|||
|
|
004F985F 001CC3 add [ebx+eax*8], bl
|
|||
|
|
004F9862 48 dec eax
|
|||
|
|
004F9863 0018 add [eax], bl
|
|||
|
|
004F9865 F0 lock
|
|||
|
|
004F9866 48 dec eax
|
|||
|
|
004F9867 0064CD48 add [ebp+ecx*8+$48], ah
|
|||
|
|
004F986B 000C02 add [edx+eax], cl
|
|||
|
|
004F986E 49 dec ecx
|
|||
|
|
004F986F 0094EC480084EF add [esp+ebp*8+$EF840048], dl
|
|||
|
|
004F9876 48 dec eax
|
|||
|
|
004F9877 000500050007 add [$07000500], al
|
|||
|
|
004F987D 0008 add [eax], cl
|
|||
|
|
004F987F 008700BCFFCC add [edi+$CCFFBC00], al
|
|||
|
|
004F9885 BA4F002CBB mov edx, $BB2C004F
|
|||
|
|
004F988A 4F dec edi
|
|||
|
|
004F988B 0038 add [eax], bh
|
|||
|
|
004F988D BB4F0074BC mov ebx, $BC74004F
|
|||
|
|
004F9892 4F dec edi
|
|||
|
|
004F9893 0044BB4F add [ebx+edi*4+$4F], al
|
|||
|
|
004F9897 000C54 add [esp+edx*2], cl
|
|||
|
|
004F989A 53 push ebx
|
|||
|
|
004F989B 7069 jo 004F9906
|
|||
|
|
004F989D 6E outsb
|
|||
|
|
004F989E 42 inc edx
|
|||
|
|
004F989F 7574 jnz 004F9915
|
|||
|
|
004F98A1 746F jz 004F9912
|
|||
|
|
004F98A3 6E outsb
|
|||
|
|
004F98A4 41 inc ecx
|
|||
|
|
004F98A5 8D4000 lea eax, [eax+$00]
|
|||
|
|
004F98A8 AC lodsb
|
|||
|
|
004F98A9 98 cwde
|
|||
|
|
004F98AA 4F dec edi
|
|||
|
|
004F98AB 0007 add [edi], al
|
|||
|
|
004F98AD 0C54 or al, $54
|
|||
|
|
004F98AF 53 push ebx
|
|||
|
|
004F98B0 7069 jo 004F991B
|
|||
|
|
004F98B2 6E outsb
|
|||
|
|
004F98B3 42 inc edx
|
|||
|
|
004F98B4 7574 jnz 004F992A
|
|||
|
|
004F98B6 746F jz 004F9927
|
|||
|
|
004F98B8 6E outsb
|
|||
|
|
004F98B9 41 inc ecx
|
|||
|
|
004F98BA B097 mov al, $97
|
|||
|
|
004F98BC 4F dec edi
|
|||
|
|
004F98BD 0008 add [eax], cl
|
|||
|
|
004F98BF 47 inc edi
|
|||
|
|
004F98C0 48 dec eax
|
|||
|
|
004F98C1 0029 add [ecx], ch
|
|||
|
|
004F98C3 0007 add [edi], al
|
|||
|
|
004F98C5 42 inc edx
|
|||
|
|
004F98C6 746E jz 004F9936
|
|||
|
|
004F98C8 45 inc ebp
|
|||
|
|
004F98C9 6469741E00482C4800 imul esi, fs:[esi+ebx+$00], $00482C48
|
|||
|
|
004F98D2 5B pop ebx
|
|||
|
|
004F98D3 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F98D5 FFDC call sp
|
|||
|
|
004F98D7 7A48 jp 004F9921
|
|||
|
|
004F98D9 0001 add [ecx], al
|
|||
|
|
004F98DB 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F98DD 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F98DF 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F98E1 800000 add byte ptr [eax], $00
|
|||
|
|
004F98E4 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F98E6 0B00 or eax, [eax]
|
|||
|
|
004F98E8 05416C6967 add eax, +$67696C41
|
|||
|
|
004F98ED 6E outsb
|
|||
|
|
004F98EE 8833 mov [ebx], dh
|
|||
|
|
004F98F0 48 dec eax
|
|||
|
|
004F98F1 006100 add [ecx+$00], ah
|
|||
|
|
004F98F4 00FF add bh, bh
|
|||
|
|
004F98F6 1C79 sbb al, $79
|
|||
|
|
004F98F8 48 dec eax
|
|||
|
|
004F98F9 00B879480000 add [eax+$4879], bh
|
|||
|
|
004F98FF 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9901 800300 add byte ptr [ebx], $00
|
|||
|
|
004F9904 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9906 0C00 or al, $00
|
|||
|
|
004F9908 07 pop es
|
|||
|
|
004F9909 41 inc ecx
|
|||
|
|
004F990A 6E outsb
|
|||
|
|
004F990B 63686F arpl [eax+$6F], bp
|
|||
|
|
004F990E 7273 jb 004F9983
|
|||
|
|
004F9910 303448 xor [eax+ecx*2], dh
|
|||
|
|
004F9913 00740000 add [eax+eax+$00], dh
|
|||
|
|
004F9917 FF58AB call [eax-$55]
|
|||
|
|
004F991A 48 dec eax
|
|||
|
|
004F991B 0001 add [ecx], al
|
|||
|
|
004F991D 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F991F 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9921 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9923 800000 add byte ptr [eax], $00
|
|||
|
|
004F9926 00800D000B43 add [eax+$430B000D], al
|
|||
|
|
004F992C 6F outsd
|
|||
|
|
004F992D 6E outsb
|
|||
|
|
004F992E 7374 jnb 004F99A4
|
|||
|
|
004F9930 7261 jb 004F9993
|
|||
|
|
004F9932 696E7473001040 imul ebp, [esi+$74], $40100073
|
|||
|
|
004F9939 00A50100FF44 add [ebp+$44FF0001], ah
|
|||
|
|
004F993F F1 DB $F1 //
|
|||
|
|
004F9940 48 dec eax
|
|||
|
|
004F9941 0068F1 add [eax-$0F], ch
|
|||
|
|
004F9944 48 dec eax
|
|||
|
|
004F9945 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9947 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9949 800000 add byte ptr [eax], $00
|
|||
|
|
004F994C 00800E000543 add [eax+$4305000E], al
|
|||
|
|
004F9952 746C jz 004F99C0
|
|||
|
|
004F9954 3344CCF9 xor eax, [esp+ecx*8-$07]
|
|||
|
|
004F9958 42 inc edx
|
|||
|
|
004F9959 0050BD add [eax-$43], dl
|
|||
|
|
004F995C 4F dec edi
|
|||
|
|
004F995D 005CBD4F add [ebp+edi*4+$4F], bl
|
|||
|
|
004F9961 0001 add [ecx], al
|
|||
|
|
004F9963 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9965 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9967 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9969 800000 add byte ptr [eax], $00
|
|||
|
|
004F996C 00800F000944 add [eax+$4409000F], al
|
|||
|
|
004F9972 6F outsd
|
|||
|
|
004F9973 776E jnbe 004F99E3
|
|||
|
|
004F9975 47 inc edi
|
|||
|
|
004F9976 6C insb
|
|||
|
|
004F9977 7970 jns 004F99E9
|
|||
|
|
|
|||
|
|
* Possible String Reference to: '<27><>D'
|
|||
|
|
|
|
|||
|
|
004F9979 68888E4400 push $00448E88
|
|||
|
|
004F997E B8BD4F00C4 mov eax, $C4004FBD
|
|||
|
|
004F9983 BD4F000100 mov ebp, $0001004F
|
|||
|
|
004F9988 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F998A 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F998C 008001000000 add [eax+$0001], al
|
|||
|
|
004F9992 1000 adc [eax], al
|
|||
|
|
004F9994 0D446F776E or eax, $6E776F44
|
|||
|
|
004F9999 4E dec esi
|
|||
|
|
004F999A 756D jnz 004F9A09
|
|||
|
|
004F999C 47 inc edi
|
|||
|
|
004F999D 6C insb
|
|||
|
|
004F999E 7970 jns 004F9A10
|
|||
|
|
004F99A0 6873302C48 push $482C3073
|
|||
|
|
004F99A5 007A00 add [edx+$00], bh
|
|||
|
|
004F99A8 00FF add bh, bh
|
|||
|
|
004F99AA 7A00 jp 004F99AC
|
|||
|
|
004F99AC 00FF add bh, bh
|
|||
|
|
004F99AE 0100 add [eax], eax
|
|||
|
|
004F99B0 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99B2 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99B4 0080F4FFFFFF add [eax+$FFFFFFF4], al
|
|||
|
|
004F99BA 1100 adc [eax], eax
|
|||
|
|
004F99BC 0A447261 or al, byte ptr [edx+esi*2+$61]
|
|||
|
|
004F99C0 6743 inc ebx
|
|||
|
|
004F99C2 7572 jnz 004F9A36
|
|||
|
|
004F99C4 736F jnb 004F9A35
|
|||
|
|
004F99C6 72CC jb 004F9994
|
|||
|
|
004F99C8 324800 xor cl, byte ptr [eax+$00]
|
|||
|
|
004F99CB 9B wait
|
|||
|
|
004F99CC 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99CE FF9B0000FF01 call [ebx+$1FF0000]
|
|||
|
|
004F99D4 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99D6 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99D8 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99DA 800000 add byte ptr [eax], $00
|
|||
|
|
004F99DD 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99DF 1200 adc al, byte ptr [eax]
|
|||
|
|
004F99E1 08447261 or [edx+esi*2+$61], al
|
|||
|
|
004F99E5 674B dec ebx
|
|||
|
|
004F99E7 696E6444324800 imul ebp, [esi+$64], $00483244
|
|||
|
|
004F99EE 5D pop ebp
|
|||
|
|
004F99EF 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99F1 FF6000 jmp dword ptr [eax+$00]
|
|||
|
|
004F99F4 00FE add dh, bh
|
|||
|
|
004F99F6 0100 add [eax], eax
|
|||
|
|
004F99F8 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99FA 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F99FC 008000000000 add [eax+$0000], al
|
|||
|
|
004F9A02 1300 adc eax, [eax]
|
|||
|
|
004F9A04 08447261 or [edx+esi*2+$61], al
|
|||
|
|
004F9A08 674D dec ebp
|
|||
|
|
004F9A0A 6F outsd
|
|||
|
|
004F9A0B 64650010 add gs:[eax], dl
|
|||
|
|
004F9A0F 40 inc eax
|
|||
|
|
004F9A10 005000 add [eax+$00], dl
|
|||
|
|
004F9A13 00FE add dh, bh
|
|||
|
|
004F9A15 640000 add fs:[eax], al
|
|||
|
|
004F9A18 FEA0 DB $FE, $A0 //
|
|||
|
|
004F9A1A A6 cmpsb
|
|||
|
|
004F9A1B 48 dec eax
|
|||
|
|
004F9A1C 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9A1E 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9A20 800100 add byte ptr [ecx], $00
|
|||
|
|
004F9A23 0000 add [eax], al
|
|||
|
|
|
|||
|
|
004F9A25 1400 adc al, $00
|
|||
|
|
004F9A27 07 pop es
|
|||
|
|
004F9A28 45 inc ebp
|
|||
|
|
004F9A29 6E outsb
|
|||
|
|
004F9A2A 61 popa
|
|||
|
|
004F9A2B 626C6564 bound ebp, qword ptr [ebp+$64]
|
|||
|
|
004F9A2F 084748 or [edi+$48], al
|
|||
|
|
004F9A32 001402 add [edx+eax], dl
|
|||
|
|
004F9A35 00FF add bh, bh
|
|||
|
|
004F9A37 1402 adc al, $02
|
|||
|
|
004F9A39 00FF add bh, bh
|
|||
|
|
004F9A3B 0100 add [eax], eax
|
|||
|
|
004F9A3D 0000 add [eax], al
|
|||
|
|
|
|||
|
|
*)
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|