araxis6.5_build 1624/araxis6.5_num30d.txt:
Your 30-day evaluation serial number is:
YpNYg]cB:AB4HtAbC:aXKssZNn:JLzDAEND:gEgIaPb+:ytXZN8]#
имя\name _free names, as U like it
организация\organization _free names, as U like it
емайл\e-mail _free names, as U like it
серийный\serial _use 30-days number, first step, after use Patch from [cchip
]
reason - why U must ask if U can get write That abracadabra, It worked
;-)
araxis6.5_build 1624/cchip.nfo:
********************************************************************************
ABOUT : This is patch for Araxis Merge v6.5 build 1524 and build 16
24.
HOW TO REGISTER :
If you do not have a serial number, you need visit the Merge Professional
Evaluation page. address:
http
://www.araxis.com/2003/merge/evaluate.url
You getting serial number on e-mail, but this serial number only on 30 day.
:)
and you see before starting evalution window. :(
Now you need put(copy) patch to directory Araxis(where is merge.exe).
And execute patch, next click button 'start patch'.
That's all! : Not evalution window, and evalution period. :))
Cracked by Clipper Chip (CC).
feedback: cchip@bk.ru
********************************************************************************
araxis6.5_build 1624/num30trial-build 1624.txt:
YpNYg]cB:AB4HtAbC:aXKssZNn:JLzDAEND:gEgIaPb+:ytXZN8]#
araxis6.5_build 1624/part_src.pas:
///////////////////////
Language tool: Delphi 6.
This based part of original patch.
///////////////////////
const sizef1524 = 2523136;
sizef1624 = 2527232;
xak1: array [1..5] of byte =($90,$90,$90,$&
#57;0,$90);
xak2: array [1..1] of byte = ($75);
xak3: array [1..5] of byte =($90,$90,$90,$9
0,$90);
xak4: array [1..5] of byte =($90,$90,$90,$9
0,$90);
addr1524: array [1..4] of dword = ($09623B,$096243,$0
;9629C,$096303);
addr1624: array [1..4] of dword = ($0964FB,$096503,$
09655C,$0965C3);
var handlef:integer;
f:file of byte;
i,j: integer;
controlbyte: byte;
strfile:string;
FHandle:integer;
FindData: TWin32FindData;
begin
strfile:='Merge.exe'; //filename for patching
FHandle:=FindFirstFile(pchar(strfile),FindData);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_READONLY <> 0) t
hen
FileSetAttr(strfile,FindData.dwFileAttributes xor FILE_ATTRIBUTE_READO
NLY); //reset atribute 'read only'
assignfile(f,strfile);
{$i-}
reset(f);
{$i+}
if ioresult<>0 then
begin
showmessage('Cann''t open file merge.exe!');
exit;
end;
if FileSize(strfile)=sizef1524 then //patch for build 1524
begin
j:=1;
try
seek(f,addr1524[j]);
read(f,controlbyte); //read 1 byte for control
if controlbyte = xak1[j] then
begin
showmessage('File already was patched!');
exit;
end;
if CheckBox1.Checked then copyfile(pchar(strfile),pchar(ReplaceFil
eExt(strfile,'.backup')),true); //do backup file
seek(f,addr1524[j]); //begin process replacing bytes
for i:=1 to 5 do write(f,xak1[i]);
inc(j);
seek(f,addr1524[j]);
for i:=1 to 1 do write(f,xak2[i]);
inc(j);
seek(f,addr1524[j]);
for i:=1 to 5 do write(f,xak3[i]);
inc(j);
seek(f,addr1524[j]);
for i:=1 to 5 do write(f,xak4[i]);
except
showmessage('An error ocured while patching!');
exit;
end;
showmessage('Patched succesfully!');
end
else
if FileSize(strfile)=sizef1624 then
begin
j:=1;
try
seek(f,addr1624[j]);
read(f,controlbyte); //read 1 byte for control
if controlbyte = xak1[j] then
begin
showmessage('File already was patched!');
exit;
end;
if CheckBox1.Checked then copyfile(pchar(strfile),pchar(ReplaceFil
eExt(strfile,'.backup')),true);
seek(f,addr1624[j]);
for i:=1 to 5 do write(f,xak1[i]);
inc(j);
seek(f,addr1624[j]);
for i:=1 to 1 do write(f,xak2[i]);
inc(j);
seek(f,addr1624[j]);
for i:=1 to 5 do write(f,xak3[i]);
inc(j);
seek(f,addr1624[j]);
for i:=1 to 5 do write(f,xak4[i]);
except
showmessage('An error ocured while patching!');
exit;
end;
showmessage('Patched succesfully!');
end
else showmessage('Wrong file size!');
closefile(f);
end;
