Скачать: CL | DM;

Ну и что у нас там с DelphiDecompiler   Найти похожие ветки 

← →
Tserberus   (2008-01-30 14:59) [0]

Винду только восстановил, столько времени убил на восстановление системы и всех прочих файлов.... Что за вирус мать его?

---

← →
VAD*Anti Gopn!k ©   (2008-01-30 15:03) [1]

Злобный вирус. А его мать - ZoldBerger :)

---

← →
DrPass ©   (2008-01-30 15:27) [2]

> Злобный вирус. А его мать - ZoldBerger :)

Интуиция мне подсказывает, что ZoldBerger и Tserberus - один и тот же перец, которому до сих пор неймется...

---

← →
Tserberus   (2008-01-30 15:38) [3]

> DrPass ©   (30.01.08 15:27) [2]


ты чего?

---

← →
oldman ©   (2008-01-30 15:40) [4]

> Tserberus   (30.01.08 15:38) [3]


А ты чего?
Сабж без объяснения причин и симптомов.
Сам вирус подхватил (а может и не вирус ваще).
Сам его поборол.
А наезды беспочвенные в форум кидаешь.

---

← →
Agent13 ©   (2008-01-30 15:58) [5]

Поскольку не успел отписаться в ветке про сорсы этого самого декомпилера, то напишу здесь. Обратил ли кто-нибудь внимание, что именно уважаемый ZoldBerger пытался предоставить в качестве исходников (помимо бреда на N мегабайт)?

Так вот, если кто не подметил, сравните содержимое файла unc.o4cs, опубликованное здесь: Andy BitOff ©  (26.01.08 22:48) [45] http://delphimaster.net/view/15-1201366691/

с вот этой выдержкой:

{*******************************************************}
{                                                       }
{       Borland Delphi Visual Component Library         }
{                                                       }
{  Copyright (c) 1999-2005 Borland Software Corporation }
{                                                       }
{*******************************************************}

unit ActnList;

{$T-,H+,X+}

interface

uses Classes, Messages, ImgList, Contnrs;

type

{ TContainedAction }

 TCustomActionList = class;

 TContainedAction = class(TBasicAction)
 private
   FCategory: string;
   FActionList: TCustomActionList;
   function GetIndex: Integer;
   function IsCategoryStored: Boolean;
   procedure SetCategory(const Value: string);
   procedure SetIndex(Value: Integer);
   procedure SetActionList(AActionList: TCustomActionList);
 protected
   procedure ReadState(Reader: TReader); override;
   procedure SetParentComponent(AParent: TComponent); override;
 public
   destructor Destroy; override;
   function Execute: Boolean; override;
   function GetParentComponent: TComponent; override;
   function HasParent: Boolean; override;
   function Update: Boolean; override;
   property ActionList: TCustomActionList read FActionList write SetActionList;
   property Index: Integer read GetIndex write SetIndex stored False;
 published
   property Category: string read FCategory write SetCategory stored IsCategoryStored;
 end;

 TContainedActionClass = class of TContainedAction;

{ TActionListEnumerator }

 TActionListEnumerator = class
 private
   FIndex: Integer;
   FActionList: TCustomActionList;
 public
   constructor Create(AActionList: TCustomActionList);
   function GetCurrent: TContainedAction;
   function MoveNext: Boolean;
   property Current: TContainedAction read GetCurrent;
 end;

и т.д. Похоже, не правда ли? :) Так вот видать напильник, которым это обрабатывалось и есть тот самый мистический Navity :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c