Senin, 11 November 2013

10 Cara Hackers MengHack Akun Facebook

Facebook adalah situs jejaring sosial terbesar ke-4 di dunia. Dan indonesia termasuk salah satu negara dengan pengguna facebook terbanyak di dunia. Sedemikian banyak pemakainya sehingga merupakan target utama pembajak atau umum disebut hacker. Banyak cara untuk untuk membajak atau mengambil alih akun seseorang. Berikut ini daftar 10 cara membajak login Facebook sehingga Anda dapat lebih waspada.

Cara Hack Akun FAcebook Orang Lain
10 Cara Hack Akun Facebook Orang Lain

Membuat ALAY Generator


Bergaya alay mungkin sudah jadi trend di masyarakat, khususnya para kaula muda atau remaja, biasanya mereka tunjukan dengan cara berpakaian atau perpenampilan nyeleneh, aneh, atau di luar kebiasaan. Mungkin dengan maksud mencari perhatian, atau apalah motivasi mereka melakukannya. Penulis sendiri kurang begitu paham tentang “ALAY” maklum penulis sendiri belum pernah dan nggak pernah tertarik melakukannya Gambar Terposting .
Seiring dengan perkembangan teknologi internet, ternyata ALAY bukan hanya ditunjukan dengan cara berpenampilan, tapi juga dalam aktivitas para pengguna jejaring sosial, blogger, chater, salah satunya dengan menggunakan karakter-karakter aneh untuk membuat status pada facebook, twitter, YM, dan aplikasi lainnya yang memanfaatkan media tulisan untuk berkomunikasi satu sama lainnya. Mungkin bagi anda yang awam anda akan heran bahkan bingung bagaimana teman anda bisa membuat tulisan §ëþÈr7Î ìÑï. Atau bagi anda yang sudah terbiasa bergaya ÂlÃÿ di jejaring sosial, anda mungkin sudah terbiasa menggunakan Character Map pada Windows untuk mencari karakter-karakter aneh yang terlihat hampir mirip dengan hurup Alphabet umumnya, baik menggunakan angka maupun karakter unicode. Tetapi penulis disini akan menunjukkan kepada anda cara yang termudah untuk membuat tulisan alay dengan membuat sendiri aplikasinya, yang nantinya tentu akan bermanfaat untuk memudahkan pekerjaan alay anda Gambar Terposting (nyengir).

Aplikasinya dinamakan ALAY GENERATOR, karena memiliki fungsi untuk mengubah tulisan biasa menjadi tulisan berkarakter alay. Aplikasinya akan dibuat mengunakan bahasa pemrograman VBScript untuk lebih memudakan anda. Jangan pusing duluan yah kalau dengar kata “pemrograman” bagi anda yang alergi, karena hanya dengan skill mengoperasikan komputer Windows saja udah cukup koq.. Gambar Terposting , dan bagi anda yang paham vbscript ya tentu anda akan paham scriptnya. Berikut ini langkah pembuatanya.



  • Buka aplikasi Notepad dengan mengaksesnya pada menu Start >Run > ketikkan Notepad > dan tekan Enter
  • Selanjutnya copy-paste skrip dibawah ini pada Notepad anda
    dim tex,alaytex,mode,smode

    on error resume next

    tex=inputbox("Masukan tulisan yg mau dibikin ALAY" & vbcrlf & "Langsung tekan ENTER","ALAY GENERATOR")
    mode=inputbox("Pilih Mode Alay:" & vbcrlf & _
    "1. Hÿßr1d" & vbcrlf & _
    "2. Huruf-4n6k4" & vbcrlf & _
    "3. bIaSA" & vbcrlf & vbcrlf & _
    "Tekan ENTER lagi..","ALAY GENERATOR",1)

    If MsgBox("Apakah tulisannya mau disngkat sprti SMS?", vbQuestion + vbYesNo, "ALAY GENERATOR") = vbYes Then smode=1

    tex=Alay(tex,mode,smode)

    msgbox "TARAAA.., Inilah hasilnya:" & vbcrlf & vbcrlf & tex, vbInformation, "ALAY GENERATOR"
    alaytex=inputbox("Inilah tulisan ALAYnya ^_^" & vbcrlf & "Silakan di-copy-paste dan tekan ENTER untuk menutupnya","ALAY GENERATOR",tex)

    Function Alay(Str,AlayMode,SMSMode)
    Dim s, h, i
    Dim AlayChars,VoChars

    Randomize

    If SMSMode = 1 Then
    VoChars = "aiueo"

    For i = 1 To Len(VoChars)
    If CInt(Rnd * 2) = 0 Then
    Str = Replace(Str, Mid(VoChars, i, 1), "", 1, -1, vbTextCompare)
    End If
    Next

    End If

    Select Case AlayMode
    Case 1: AlayChars = Split("aàáÂÃäåAàáÂÃäå@4;bBß8;cçCç¢;Ð;ÈéêëÈéêë£3;gG69;iìíÎïIìíÎï¡!1;" & _
    "nÑNÑ;oòóôõöøOòóôõöø0;pPþþ;s$S§5;tT7;uùúûüUùúûüµ;" & _
    "×xX;yýÿYý¥;z2Z", ";", -1, vbTextCompare)
    Case 2: AlayChars = Split("4;8;c;d;3;69;1;n;0;p;5;7;u;x;y;2", ";", -1, vbTextCompare)
    Case 3: AlayChars = Split("Aa;Bb;Cc;Dd;Ee;Gg;Ii;Nn;Oo;Pp;Ss;Tt;Uu;Xx;Yy;Zz", ";", -1, vbTextCompare)
    End Select

    Str = LCase(Str)

    For i = 1 To Len(Str)
    s = Mid(Str, i, 1)

    Select Case s
    Case "a": s = AlayChars(0)
    Case "b": s = AlayChars(1)
    Case "c": s = AlayChars(2)
    Case "d": s = AlayChars(3)
    Case "e": s = AlayChars(4)
    Case "g": s = AlayChars(5)
    Case "i": s = AlayChars(6)
    Case "n": s = AlayChars(7)
    Case "o": s = AlayChars(8)
    Case "p": s = AlayChars(9)
    Case "s": s = AlayChars(10)
    Case "t": s = AlayChars(11)
    Case "u": s = AlayChars(12)
    Case "x": s = AlayChars(13)
    Case "y": s = AlayChars(14)
    Case "z": s = AlayChars(15)
    Case Else: If CInt(Rnd * 1) = 0 Then s = UCase(s)
    End Select

    h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
    Next
    Alay = h
    End Function
  • Setelah itu tekan Ctrl+S pada keyboard, pilih lokasinya, beri namaAlayGenerator.vbs, dan Save as type: All files, kemudian klik tombol Save.
  • Sekarang anda tinggal menggunakannya, coba jalankan (double-klik) file vbs yg sudah jadi dan ikuti petunjuknya, mudah bukan Gambar Terposting
Aplikasi ini bukan saja mudah membuatnya, tetapi bisa digunakan dimana saja selama anda masih menggunakan komputer dengan Windows, sekalipun tanpa koneksi internet. Selamat ber@l4ýria Gambar Terposting