Cara Setting PATH Java pada Komputer Sebelum Instal Eclipse

• Pastikan Java JDK sudah terinstall pada komputer

• Start  => Control Panel  => System  => Advance => Environment Variable atau Klik-Kanan My Computer => Properties => Advanced => Environment Variables

• Set Environment Variables

Catatan: Didalam Environment Variables terdapat dua pilihan yaitu : User variables dan System variables. System variables bersifat global untuk semua pengguna, sedangkan User variables lingkungan yang spesifik hanya pada satu user. Anda dapat melakukan set System Path pada salah satu dari keduanya. (Penulis menggunakan User variables)

• Klik New pada User variables 
• Isikan alamat dari direktori dimana JDK terinstall pada Variable value, sebagai contoh C:\Program Files\Java\jdk1.5.0_8\bin

• kembali ulangi langkah sebelumnya dengan mengisikan alamat dari direktori dimana JDK terinstall pada Variable value dengan variable name yang berbeda, sebagai contoh C:\Program Files\Java\jdk1.5.0_8\lib\*

Catatan: Tambahkan \* pada akhir alamat direktori untuk mengikutsertakan seluruh komponen library

• Klik OK, dan Set Path telah berhasil dilakukan

Read More ->>

Logo Akademik 3d dengan Open GL di VB6

 

Download Disini

Read More ->>

Geser Kotak dengan OpenGL di VB6

 

Source Code

Public Type Titik_2D

   x As GLfloat
   y As Single
End Type

Public P1 As Titik_2D, P2 As Titik_2D
Public Garis_Lurus() As Titik_2D, Kotak() As Titik_2D

'===== Pergerseran =====
Sub Geser(Titik As Titik_2D, m As Single, n As Single)
   With Titik
      .x = .x + m
      .y = .y + n
   End With
End Sub

Sub kotakB(m As Integer, n As Integer, Hasil_Kotak() As Titik_2D)
   'Inisialisasi Titik Kotak
   With Hasil_Kotak(1)
      .x = m - 2.5
      .y = n - 2.5

   End With
   With Hasil_Kotak(2)
      .x = m + 2.5
      .y = n - 2.5
   End With
   With Hasil_Kotak(3)
      .x = m + 2.5
      .y = n + 2.5
   End With
   With Hasil_Kotak(4)
      .x = m - 2.5
      .y = n + 2.5
   End With
End Sub

Sub EnableOpenGL(ghDC As Long)
Dim pfd As PIXELFORMATDESCRIPTOR
   
    ZeroMemory pfd, Len(pfd)
    pfd.nSize = Len(pfd)
    pfd.nVersion = 1
    pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER
    pfd.iPixelType = PFD_TYPE_RGBA
    pfd.cColorBits = 24
    pfd.cDepthBits = 32
    pfd.iLayerType = PFD_MAIN_PLANE
   
    PixFormat = ChoosePixelFormat(ghDC, pfd)
    If PixFormat = 0 Then GoTo ee
    SetPixelFormat ghDC, PixFormat, pfd
    hrc = wglCreateContext(ghDC)
    wglMakeCurrent ghDC, hrc
   
Exit Sub
ee: MsgBox "Nelze nastavit parametry pro zobrazení grafiky!"
    End
End Sub

Sub DisableOpenGL()
    wglMakeCurrent 0, 0
    wglDeleteContext hrc
End Sub
Private Sub Command1_Click()

''gambar Lurus biasa
Call Inisialisasi
  glColor3f 0, 0, 1
   glPointSize 2
   glBegin bmLines
      glVertex2f -3, 6
      glVertex2f 3, 6
   glEnd

'Membuat garis lurus sumbu x
Dim i As Integer
   ReDim Garis_Lurus(-20 To 20) As Titik_2D
   For i = -20 To 20 Step 10
      With Garis_Lurus(i)
         .x = i
         .y = 0
      End With
   Next i

'2. membuat kotak
   ReDim Kotak(1 To 4) As Titik_2D
  
   For i = -20 To 20 Step 10
   
      Call kotakB(i, 0, Kotak)
      'menggambar kotak
      glBegin bmLineLoop
         With Kotak(1)
            glVertex2f .x, .y
         End With
        
         glVertex2f Kotak(2).x, Kotak(2).y
         glVertex2f Kotak(3).x, Kotak(3).y
         glVertex2f Kotak(4).x, Kotak(4).y
      glEnd

   Next i
   Call Tampilkan
   Timer1.Interval = 100
   letak = -20
   ReDim Kotak(1 To 4) As Titik_2D
End Sub

Private Sub Timer1_Timer()
   '======  membersihkan layar ======
   glClearColor 1, 1, 1, 1
   glClear GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT
   Call kotakB(letak, 0, Kotak)
   'menggambar kotak
   glBegin bmLineLoop
      With Kotak(1)
         glVertex2f .x, .y
      End With
      glVertex2f Kotak(2).x, Kotak(2).y
      glVertex2f Kotak(3).x, Kotak(3).y
      glVertex2f Kotak(4).x, Kotak(4).y
   glEnd

   Call Tampilkan
  
   letak = letak + 1
   If letak = 20 Then
      letak = letak * -1
   End If
End Sub

     

                                                                     Download Disini

      

Read More ->>

Rotasi bentuk LOGO menggunakan OpenGL di VB6

Source Code
'Membuat Tipe Data Buatan (Structure)
Type Titik_2D
   x As GLfloat
   y As Single
End Type

Public P1 As Titik_2D, P2 As Titik_2D
Public p3 As Titik_2D, p4 As Titik_2D, p5 As Titik_2D, p6 As Titik_2D
Public P7 As Titik_2D, P8 As Titik_2D
Public Hasil As Titik_2D

Sub Geser_2D(Data As Titik_2D, m As Single, _
             n As Single)
   With Data
      .x = .x + m
      .y = .y + n
   End With
End Sub

Sub Rotasi_Titik(Data As Titik_2D, Teta As Single)
Const Phi = 3.14159265358979
Dim Rad2Teta As Single
   Rad2Teta = Teta * (Phi / 180)
   With Data
      Hasil.x = (.x * Cos(Rad2Teta)) + (.y * Sin(Rad2Teta))
      Hasil.y = (-.x * Sin(Rad2Teta)) + (.y * Cos(Rad2Teta))
   End With
End Sub

Sub Geser_Rotasi_Titik(Data As Titik_2D, Teta As Single, _
                       geser_x As Single, geser_y As Single)
Const Phi = 3.14159265358979
Dim Rad2Teta As Single
   Rad2Teta = Teta * (Phi / 180)
   With Data






Hasil.x = ((.x - geser_x) * Cos(Rad2Teta)) + _
                ((.y - geser_y) * Sin(Rad2Teta)) + geser_x
               
      Hasil.y = (-(.x - geser_x) * Sin(Rad2Teta)) + _
                ((.y - geser_y) * Cos(Rad2Teta)) + geser_y
   End With
End Sub
'Fungsi
Function Kali(x As Single, y As Single) As Double
   Kali = x * y
End Function

'Procedure
Sub Jumlah(x As Single, y As Single, Hasil As Double)
   Hasil = x + y
End Sub

Sub EnableOpenGL(ghDC As Long)
Dim pfd As PIXELFORMATDESCRIPTOR
   
    ZeroMemory pfd, Len(pfd)
    pfd.nSize = Len(pfd)
    pfd.nVersion = 1
    pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER
    pfd.iPixelType = PFD_TYPE_RGBA
    pfd.cColorBits = 24
    pfd.cDepthBits = 32
    pfd.iLayerType = PFD_MAIN_PLANE
   
    PixFormat = ChoosePixelFormat(ghDC, pfd)
    If PixFormat = 0 Then GoTo ee
    SetPixelFormat ghDC, PixFormat, pfd
    hrc = wglCreateContext(ghDC)
    wglMakeCurrent ghDC, hrc
   
Exit Sub
ee: MsgBox "Nelze nastavit parametry pro zobrazení grafiky!"
    End
End Sub

Sub DisableOpenGL()
    wglMakeCurrent 0, 0
    wglDeleteContext hrc
End Sub

'Dim s As Single
'Dim p As Single
Sub Inisialisasi()
Dim m As Integer
m = 6
   EnableOpenGL Me.hDC
  
   hrc = wglCreateContext(hDC)
   wglMakeCurrent hDC, hrc
  
   gluOrtho2D -m, m, -m, m
   glClearColor 1, 1, 1, 1
   glClear GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT
  
   glMatrixMode GL_PROJECTION
  
   glLoadIdentity
End Sub

Sub Tampilkan()
   glFlush
   SwapBuffers Me.hDC
End Sub

Private Sub Command2_Click()


End Sub

Private Sub Form_load()
Call Inisialisasi

'------ Membuat Garis -----------
   'Sumbu X
   Dim p1x As Single, p1y As Single
   Dim p2x As Single, p2y As Single
   p1x = -10
   p1y = 0
   p2x = 10
   p2y = 0
   glColor3f 0, 0, 1
   glBegin bmLines
      glVertex2f p1x, p1y
      glVertex2f p2x, p2y
   glEnd
  
  
   'Sumbu X
   Dim p3x As Single, p3y As Single
   Dim p4x As Single, p4y As Single
   p3x = 0
   p3y = -10
   p4x = 0
   p4y = 10
  
   glColor3f 1, 0, 0
   glBegin bmLines
      glVertex2f p3x, p3y
      glVertex2f p4x, p4y
   glEnd
  

   Call Tampilkan
End Sub

'Private Sub Command2_Click()
'Dim d As Double
'd = InputBox("Masukkan Berapa derajat anda ingin merotasi?", "Ganti derajat")
'Text1.Text = d
'
'End Sub

Private Sub Command3_Click()
Timer1.Interval = 1000
End Sub
'
'Private Sub Form_load()
's = 0
'p = 0
'End Sub

Private Sub Text2_Change()
If Text2.Text >= 360 Then
Text2.Text = 0
End If
End Sub

Private Sub Text3_Change()
If Text3.Text >= 360 Then
Text3.Text = 0
End If
End Sub

Private Sub Timer1_Timer()
Call Inisialisasi

'---- titik 1 ------
P1.x = 4
P1.y = 4
Call Geser_Rotasi_Titik(P1, Val(Text2.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        P1.x = Hasil.x
        P1.y = Hasil.y
   glEnd
  
'---- titik 2 ------
P2.x = 4
P2.y = 1
   Call Geser_Rotasi_Titik(P2, Val(Text3.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        P2.x = Hasil.x
        P2.y = Hasil.y
   glEnd

'---- titik 3 ------
p3.x = 1
p3.y = 1
   Call Geser_Rotasi_Titik(p3, Val(Text3.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        p3.x = Hasil.x
        p3.y = Hasil.y
   glEnd

'---- titik 4 ------
p4.x = 1
p4.y = 4
   Call Geser_Rotasi_Titik(p4, Val(Text3.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        p4.x = Hasil.x
        p4.y = Hasil.y
   glEnd
  
'---- titik 5 ------
p5.x = 3.5
p5.y = 3.5
   Call Geser_Rotasi_Titik(p5, Val(Text3.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        p5.x = Hasil.x
        p5.y = Hasil.y
   glEnd
  
'---- titik 6 ------
p6.x = 3.5
p6.y = 1.5
   Call Geser_Rotasi_Titik(p6, Val(Text3.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        p6.x = Hasil.x
        p6.y = Hasil.y
   glEnd

'---- titik 7 ------
P7.x = 1.5
P7.y = 1.5
   Call Geser_Rotasi_Titik(P7, Val(Text3.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        P7.x = Hasil.x
        P7.y = Hasil.y
   glEnd
  
'---- titik 8 ------
P8.x = 1.5
P8.y = 3.5
   Call Geser_Rotasi_Titik(P8, Val(Text3.Text), 0, 0)
   glPointSize 15
   glBegin bmLines
      glVertex2f 0, 0
        With Hasil
         glVertex2f .x, .y
        End With
        P8.x = Hasil.x
        P8.y = Hasil.y
   glEnd
  
Text2.Text = Val(Text2.Text) + 20
Text3.Text = Val(Text3.Text) + 20
glColor3f 0, 0, 0
glBegin bmQuads
glVertex2f P1.x, P1.y
glVertex2f P2.x, P2.y
glVertex2f p3.x, p3.y
glVertex2f p4.x, p4.y
glEnd

glColor3f 0, 0, 1
glBegin bmQuads
glVertex2f p5.x, p5.y
glVertex2f p6.x, p6.y
glVertex2f P7.x, P7.y
glVertex2f P8.x, P8.y
glEnd
Call Tampilkan
If Option1.Value = False Then
Timer1.Interval = 0
End If
If Option2.Value = True Then
Timer1.Interval = 0
End If
End Sub

Download Disini

      

Read More ->>

Membuat Template Website

Gambar 2. Template Website

Kehadiran web generasi kedua atau web 2.0 memang membawa dampak yang cukup besar, terutama bagi para pengembang web (web developer). Web developer dituntut untuk menyajikan web application (website dll) yang senyaman mungkin bagi pengunjungnya. Salah satu faktor kenyamanan tersebut adalah dalam hal tampilan. Saat ini tampilan website di internet sangatlah beragam, pengunjung di banyak situs pun dimanjakan dengan pilihan beragam tampilan sesuai dengan kenyamanan (preferensi) masing-masing. Dari sisi pemilik (pengembang) website, sekarang pun dimanjakan dengan banyaknya pilihan template website atau tampilan situs yang dapat didapatkan dengan mudah di internet, ada yang berbayar ada pula yang gratisan. Untuk mengganti template website juga dapat dilakukan dengan cukup mudah.
Namun dengan banyaknya pilihan template website tersebut, terkadang membuat kita malah bingung sendiri, memilih tampilan yang cocok di hati. Penginnya sih bikin sendiri, tapi apa daya, terkadang kemampuan kita terbatas (curhat nih ). Ternyata beberapa layanan di internet menawarkan solusi bagi Anda yang ingin membuat template website sendiri namun memiliki keterbatasan kemampuan dalam hal web design. Penasaran? Yuk kita coba salah satunya dengan mengikuti langkah-langkah berikut ini.

Langkah #1. Buka Website doTemplate.com, tidak perlu login, mendaftar atau membayar alias gratis.
Langkah #2. Pilih salah satu tampilan template yang tersedia di website tersebut. Tampilan template inilah yang akan menjadi template dasar kita dan dapat kita customize (ubah) sesuai keinginan kita.
Langkah #3. Klik tombol “Customize and download” untuk melakukan pengaturan tampilan sesuai keinginan kita. Akan ditampilkan sebuah window berupa tampilan website sesuai yang kita pilih.

Langkah #4. Klik pada bagian header (gambar 2) untuk mengedit tampilan bagian header (judul situs, gambar dan background). Selanjutnya akan muncul gambar 3.

Gambar 2. Template Website

Gambar 3. Customize bagian header

Pada gambar di atas terlihat bagian-bagian dari header website. Bagian (1) adalah judul (title) utama. Kita dapat mengganti text (tulisan), jenis font, ukuran dan warna teks. Bagian (2) adalah Slogan 1 dan Slogan 2 dimana kita juga dapat mengatur teks, jenis font, ukuran dan warnyanya. Bagian (3) adalah gambar (foreground image), kita dapat menggunakan gambar yang sudah tersedia, ataupun mengupload gambar kita sendiri. Kita juga dapat mengatur beberapa properties dari image seperti blur di sekitar image. Bagian (4) adalah warna background. Bagian (5) adalah pilihan pengaturan untuk masing-masing bagian. Bagian (6) kita dapat klik tombol “Apply” untuk melihat perubahan pengaturan.
Langkah #5. Setelah mengatur header, klik pada bagian menu (navigasi) atas dan akan ditampilkan pilihan pengaturan untuk bagian menu. Kita dapat mengatur warna background menu, warna tulisan menu dan warna hover menu. Klik Apply untuk menyimpan perubahan.

Gambar 4. Customize bagian content

Selanjutnya lakukan hal yang sama untuk bagian website yang lain. [Gambar 4] Untuk bagian content (isi) kita dapat mengatur warna tulisan, judul tulisan dan juga warna link. Untuk mempermudah pemilihan warna, tersedia juga “font gallery” yang merupakan kombinasi warna standar web.

Gambar 5. Customize bagian Sidebar

[Gambar 5]. Untuk bagian sidebar (menu samping) kita dapat mengatur ukuran lebar dari sidebar dalam pixel. Dapat juga diatur warna teks, warna link dan warna separator menu.

Gambar 6. Customize Footer

[Gambar 6]. Untuk bagian footer, kita dapat mengatur tinggi dari footer serta warna teks dan link.
Langkah #6. Jika sudah selesai melakukan perubahan terhadap tampilan template (customize), klik tombol download dan file template akan didownload ke komputer kita. Terdapat 3 (tiga) pilihan format template yaitu XHTML template jika template akan kita gunakan untuk website kita sendiri (tidak menggunakan framework tertentu), Blogger template untuk mendownload template dalam format blogger dan WordPress template untuk menjadikan template compatible dengan WordPress. Sayang pada saat tutorial ini dibuat, pilihan WordPress temlate belum bisa digunakan.

Download Template

Selanjutnya file akan didownload dan siap untuk digunakan. Gampang kan?? Semoga bermanfaat.

Read More ->>

Cara Menemukan Celah Kemananan dalam Website dengan SQL Poizon

Seperti terlihat dalam gambar, di dalam tool ini sudah terdapat beberapa dork. Dalam contoh ini kita gunakan dork PHP , yaitu index.php?id=. Setelah memilih dork, kita klik scan untuk melihat hasil

Read More ->>

Cara Deface Web Dengan Teknik Encodable Upload Vulnerability New !

 

Kali ini saya mau bahas tentang deface lagi & Kali ini target yang kita cari adalah target dengan bugs untuk upload file deface/shell. Jadi kita tinggal cari target terus upload deh file deface kita.

Google Dork : ”intext:File Upload by Encodable”

Seperti biasa kita googling dulu target kita dengan dork diatas.. Maka akan keluar deh ratusan situs yang bisa kita jadikan target kita kali ini, InsyaAllah, hehe.. Oke saya asumsikan anda telah memilih satu target dan sudah masuk ke halaman web tersebut.

Contoh target saya : http://www.npnweb.org/upload/

Jika muncul form pilihan untuk memasukan email, maka jangan gunakan email asli anda. Ingat yah!
Sekarang kita tinggal pilih saja deh file yang mau kita upload. Jika berhasil maka setelah proses upload selesai kita akan mendapat link lokasi file kita. Tapi jika tidak muncul link setelah upload, maka kita bisa coba dengan mengetikan nama file anda setelah url ini:

http://target.com/upload/files/nama_file_anda
atau
http://target.com/upload/userfiles/nama_file_anda

Oke deh cukup sekian dulu tutorial deface kita kali ini, dan ingat juga kalo dork bisa kita kembangkan sendiri. Selamat mencoba

Read More ->>