ктто нибудь знает как их искать ))

| Сообщение посчитали полезным:

FF90h пишет:
ктто нибудь знает как их искать ))
какие ключики ищешь? триал?

| Сообщение посчитали полезным:

да да триальные

| Сообщение посчитали полезным:

А тем временем 12 топиков вниз...
http://www.exelab.ru/f/action=vthread&forum=3&topic=5432

-----
Yann Tiersen best and do not fuck

| Сообщение посчитали полезным:

а я имею в виду алгоритм поиска а не сам софт ) Язык не важен

| Сообщение посчитали полезным:

ну лан посмотрите я для ASProtect написал кое что зачем использовать другие проги когда можно написать самому:

procedure AntiAsProtect;
const
PathOne = 'SOFTWARE\Classes\TypeLib';
PathTwo = 'SOFTWARE\Classes\CLSID';
var
Reg: TRegistry;
SubKeys: TStringList;
SubKeys2: TStringList;
i,j: integer;
sDisplayName, sOne: string;
co:Boolean;
Keys,Keys2:TStringList;
begin


Keys:=TStringList.Create;
Keys2:=TStringList.Create;

Reg := TRegistry.Create;
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly(PathOne) then
begin
SubKeys := TStringList.Create;
SubKeys2 := TStringList.Create;
try
GetKeyNames(SubKeys);
CloseKey;
for i := 0 to subKeys.Count - 1 do
begin
sDisplayName:='';
co:=false;

if OpenKeyReadOnly(Format('%s\%s', [PathOne, SubKeys[i]])) then
try
GetKeyNames(SubKeys2);
if SubKeys2.Count=0 then
Keys.Add(PathOne+'\'+SubKeys[i]);
finally
CloseKey;
end;
end;
finally
SubKeys.Free;
SubKeys2.Free;
end;
end;
finally
CloseKey;
Free;
end;



Reg := TRegistry.Create;
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyReadOnly(PathTwo) then
begin
SubKeys := TStringList.Create;
try
GetKeyNames(SubKeys);
CloseKey;
for i := 0 to subKeys.Count - 1 do
begin
sDisplayName:='';
co:=false;

if OpenKeyReadOnly(Format('%s\%s\%s', [PathTwo, SubKeys[i],'TypeLib'])) then
try
sOne:=ReadString('');
for j:=0 to Keys.Count-1 do
if sOne=copy(Keys.Strings[j],length(PathTwo+'TypeLib')-3,length(Keys.Stri ngs[j])) then
Keys2.Add(PathTwo+'\'+SubKeys[i]);
finally
CloseKey;
end;
end;
finally
SubKeys.Free;
end;
end;
finally
CloseKey;
Free;
end;


Reg := TRegistry.Create;
with Reg do
try
RootKey := HKEY_LOCAL_MACHINE;
for i:=0 to Keys.Count-1 do
DeleteKey(Keys.Strings[i]);
for i:=0 to Keys2.Count-1 do
DeleteKey(Keys2.Strings[i]);
finally
Free;
end;


Reg := TRegistry.Create;
with Reg do
try
RootKey := HKEY_CURRENT_USER;
Reg.DeleteKey('Software\ASProtect');
finally
Free;
end;


end;

| Сообщение посчитали полезным:

FF90h пишет:
ну лан посмотрите я для ASProtect написал кое что зачем использовать другие проги когда можно написать самому
Молодец, глядишь скоро будет конкуренция для Trial Reset, RTKF

-----
Всем не угодишь

| Сообщение посчитали полезным: