Кому нужна прога (исходники) на Дельфи которая ищет ASProtect211 триальные ключики в реестре... Могу запостить)) (Опробовано на ДомБух4 )

-----
StarForce и Themida ацтой!

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

Maximus
Это не trashreg случайно ?

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

Нет trashreg на VB и автор бережет свои алгоритмы... ХеХе...

-----
StarForce и Themida ацтой!

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

Maximus пишет:
Кому нужна прога (исходники) на Дельфи которая ищет ASProtect211 триальные ключики в реестре... Могу запостить))
если не трудно, nitromaarek(собака)mail.ru

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

Maximus Прилепи сюда или на мыло ... z0omik@mail.ru

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

Maximus
А еще лучше скинь куда-нить типа вебфайл-а....

-----
Research is my purpose

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

Ок братва.... Просто думал шо нафик не кому не надо. Кидаю))
прЮвет любимому Солоду))...

program AsKey;

{$APPTYPE CONSOLE}

uses
  Windows,
  Classes,
  Registry,
  SysUtils;

var KeyRoot, TypeLib: String;
    Reg: TRegistry;
    i: Cardinal;
    ListKey, ValueKey: TStringList;

function Chereda(Vetka: String): boolean;
var vStr, nn0, nn1, nn2: String;
    isBig: Boolean;
    j: cardinal;

begin
   Result:=False;
   if (Reg.OpenKeyReadOnly(Vetka)) then begin
      isBig:=True;
      vStr:=Reg.ReadString(''); Reg.CloseKey;
      if vStr = '' then Exit;
      vStr:=StringReplace(vStr, ' class','', [rfIgnoreCase]);
      vStr:=StringReplace(vStr, ' object','', [rfIgnoreCase]);
      nn1:='q w r t p s d f g h j k l z x c v b n m';
      nn2:='e y u i o a';
      for j:=1 to length(vStr) do begin
         if (isBig) then begin
            if (vStr[j]>'Z') then Exit;
            if Pos(lowerCase(vStr[j]), nn1) > 0 then nn0:=nn1 else nn0:=nn2;
            isBig:=False;
         end;
         if (vStr[j]=' ') or (vStr[j]='.') then begin
            isBig:=True;
            Continue;
         end;
         if Pos(lowerCase(vStr[j]), nn0) = 0 then Exit;
         if nn0 = nn1 then nn0 := nn2 else nn0 := nn1;
      end;
      Result:=True;
   end;
end;


begin
   Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE;
   KeyRoot:='SOFTWARE\Classes'; ListKey:=TStringList.Create; ValueKey:=TStringList.Create;
   Reg.OpenKeyReadOnly(KeyRoot+'\CLSID'); Reg.GetKeyNames(ListKey); Reg.CloseKey;
   for i:=0 to ListKey.Count-1 do begin
      if Reg.OpenKeyReadOnly(KeyRoot+'\CLSID\'+ListKey[i]+'\TypeLib') then begin
         TypeLib:=Reg.ReadString(''); Reg.CloseKey;
         if Reg.OpenKeyReadOnly(KeyRoot+'\TypeLib\'+TypeLib) then begin
            Reg.GetValueNames(ValueKey);
            if (ValueKey.Count=1) and (Reg.ReadString('')='') then begin
               Reg.CloseKey;
               if (Chereda(KeyRoot+'\CLSID\'+ListKey[i])) then begin
                  Writeln('HKEY_LOCAL_MACHINE\'+KeyRoot+'\CLSID\', ListKey[i]);
                  Writeln('HKEY_LOCAL_MACHINE\'+KeyRoot+'\TypeLib\', TypeLib);
               end;
            end;
            Reg.CloseKey;
         end;
         Reg.CloseKey;
      end;
   end;
   ListKey.Free; ValueKey.Free;
   Reg.RootKey := HKEY_CURRENT_USER;
   if Reg.KeyExists('Software\Asprotect\SpecData') then begin
      Writeln('HKEY_CURRENT_USER\Software\AsProtect');
   end;
   Reg.Free;
   Readln;
end.

-----
StarForce и Themida ацтой!

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

Дык ни кто не мешает сделать тебе это в винде (собстна у меня так и было). Просто размер приложения меньше, да и никаких лишних *.dfm нет. И тем более там же есть слово Windows

-----
StarForce и Themida ацтой!

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

Что то TrialReset не находит то что твоя прога находит

Как так?

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

Maximus как раз недельки две назад твои исходники разбирал ;)

-----
Пиво, сиськи, транс

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

DDA Не знаю, TrialReset я не юзал, а мой код опробован на реальной программе. Может дело в том что мой код отлавливает ТОЛЬКО версию 2.11

-= ALEX =- Может есть предложения как улучшить))?

-----
StarForce и Themida ацтой!

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

Maximus пишет:
-= ALEX =- Может есть предложения как улучшить))?
я не для этих целей смотрел ;)

-----
Пиво, сиськи, транс

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