对于asta3.0的版本可以采用如下方式破解:
标 题: ASTA破解方法
发信站: 网易虚拟社区 (Tue Apr 4 11:14:23 2000), 站内信件
ASTA是一套用于多层开发的控件
在astautil.dcu中查找 "Delphi 3"就会发现如下的一些以零字符结尾字符串
TApplication
TAlignPalette
TPropertyInspector
TAppBuilder
Delphi 3
Delphi 4
CBuilder 3
C++Builder 4
Delphi 5
在十六进制模式下将
TApplication
TAlignPalette
TPropertyInspector
TAppBuilder
全部改成IME(也要以零字符结束)比如"TApplication"改成"IME"
要像这样:
54 41 70 70 6c 69 63 61 74 69 6f 6e 00
T A p p l i c a t i o n
--------------------------------------
49 4d 45 00 6c 69 63 61 74 69 6f 6e 00
I M E
余类推.
再把"Delphi 3","Delphi 6"等等统统改成"Default IME"
44 65 6c 70 68 69 20 33 00 ........
D e l p h i 3
44 65 66 61 75 6c 74 20 49 4d 45 00
D e f a u l t I M E
就行了.
--
※ 来源:．网易虚拟社区 http://club.netease.com．[FROM: 202.102.9.25]
其原理可参看asta2.599版本的源码，asta3.0的加密原理似乎没有改变。
{$ifdef Demo}
function DelphiIsRunning: Boolean;
const
A1: array[0..12] of char = 'TApplication'#0;
A2: array[0..15] of char = 'TAlignPalette'#0;
A3: array[0..18] of char = 'TPropertyInspector'#0;
A4: array[0..11] of char = 'TAppBuilder'#0;
T1: array[0..12] of char = 'Delphi 3'#0;
T2: array[0..12] of char = 'Delphi 4'#0;
T3: array[0..15] of char = 'C++Builder'#0;
T4: array[0..20] of char = 'C++Builder 4'#0;
T5: array[0..12] of char = 'Delphi 5'#0;
begin
result:=True;
(* {$IFNDEF HELLO}
result:=FindWindow(nil,'C++Builder 5')<>0;
{$IFDEF VER125}
result:=FindWindow(nil,'C++Builder 4')<>0;
{$endif}
{$else} *)
Result := ((FindWindow(A1, T1) <> 0) or (FindWindow(A1, T2) <> 0) or (FindWindow(A1,T3)<>0)
or (FindWindow(A1, T4)<>0) or (FindWindow(A1, T5)<>0)) and (FindWindow(A2, nil) <> 0) and
{ (FindWindow(A3, nil) <> 0) and} (FindWindow(A4, nil) <> 0);
// {$endif}
if not Result then { Alert the developer/users of a problem. }
Application.MessageBox('This application makes use of unlicensed thin client technology from' + #13 +
'The Asta Technology Group. (c) copyright 1997-2000 all rights reserved.' + #13 +
'Internet Client/Server. To license this technology please' + #13 +
'contact info@astatech.com.' + #13 +
'Or Visit our Home Page at http://www.astatech.com', 'Asta Thin Client-www.astatech.com- UnLicensed Technology',
mb_OK + mb_IconStop);
end;
{$endif}
