Ну и что у нас там с 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]

ты чего?

> Tserberus (30.01.08 15:38) [3]

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

Поскольку не успел отписаться в ветке про сорсы этого самого декомпилера, то напишу здесь. Обратил ли кто-нибудь внимание, что именно уважаемый 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 :)

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