Decoder VB

---- ' VBE_Decoder.vbs ' ' VBE/JSE to VBS/JS Decoder ' ' derived / translated / fixed from original by Jean-Luc Antoine at http://www.interclasse.com/scripts/decovbe.php ' ' ©2006 Rick Valstar. All Rights Reserved. Same restrictions / permissions for this version as granted by the original author below. ' You can contact me on anything other than the Decode() function at r + last name + at + gmail + dot + com ' ' Key to the decoding process is the Decode() function which is copied "as-is" from the original. Jean-Luc did all the hard work. ' All I did in this version is fix issues with the original ShellObject.BrowseForFolder logic and add drag-and-drop capability of an ' encoded file onto this script should one be silly enough to allow default execution of VBS files. I also added VBE/JSE to VBS/JS ' file creation logic, simplified some of the looping, added a bunch of MsgBox's to identify if something may not have gone as ' expected, and tried to clarify the beginning and ending tag detection in an encoded file. ' ' Note on ShellObject.BrowseForFolder: In XP, it errors if you try to select a file. Also, folders of type "Folder3" need to be ' resolved to type "Folder2" so that the .Path can be had and one can loop through the files in said folder. ' ' Original: ' ' ©2002 Jean-Luc Antoine. All Rights Reserved. ' Per http://www.interclasse.com/scripts/decovbe.php: ' Scripts or any other material on this website may not be redistributed or put as part of ANY collection (script archives, CDs etc) ' without prior written permission. Permission granted to use and modify any of the scripts found on InterClasse.com Option Explicit Const BIF_NEWDIALOGSTYLE = &H40 Const BIF_NONEWFOLDERBUTTON = &H200 Const BIF_RETURNONLYFSDIRS = &H1 Const FOR_READING = 1 Const FOR_WRITING = 2 'Const FOR_APPENDING = 8 Const TAG_BEGIN1 = "#@~^" Const TAG_BEGIN2 = "==" Const TAG_BEGIN2_OFFSET = 10 Const TAG_BEGIN_LEN = 12 Const TAG_END = "==^#~@" Const TAG_END_LEN = 6 Dim argv Dim wsoShellApp Dim oFolder Dim sFolder Dim sFileSource Dim sFileDest Dim fso Dim fld Dim fc Dim bEncoded Dim fSource Dim tsSource Dim tsDest Dim iNumExamined Dim iNumProcessed Dim iNumSkipped Function Decode(Chaine) Dim se,i,c,j,index,ChaineTemp Dim tDecode(127) Const Combinaison="1231232332321323132311233213233211323231311231321323112331123132" Set se=WSCript.CreateObject("Scripting.Encoder") For i=9 to 127 tDecode(i)="JLA" Next For i=9 to 127 ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3) For j=1 to 3 c=Asc(Mid(ChaineTemp,j,1)) tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1) Next Next 'Next line we correct a bug, otherwise a ")" could be decoded to a ">" tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1) Set se=Nothing Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13)) Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<") Chaine=Replace(Chaine,"@$","@") index=-1 For i=1 to Len(Chaine) c=asc(Mid(Chaine,i,1)) If c<128 c="" if="" index="index+1" or="" then="">31) and (c<128 c="" if="" then="">60) and (c<>62) and (c<>64) Then Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1) End If End If Next Decode=Chaine End Function Sub Process (s) Dim bProcess Dim iTagBeginPos Dim iTagEndPos 'MsgBox sFileSource & " " & sFileDest & " " & Len(s) iNumExamined = iNumExamined + 1 iTagBeginPos = Instr(s, TAG_BEGIN1) Select Case iTagBeginPos Case 0 MsgBox sFileSource & " does not appear to be encoded. Missing Beginning Tag. Skipping file." iNumSkipped = iNumSkipped + 1 Case 1 If (Instr(iTagBeginPos, s, TAG_BEGIN2) - iTagBeginPos) = TAG_BEGIN2_OFFSET Then iTagEndPos = Instr(iTagBeginPos, s, TAG_END) If iTagEndPos > 0 Then Select Case Mid(s, iTagEndPos + TAG_END_LEN) Case "", Chr(0) bProcess = True If fso.FileExists(sFileDest) Then If MsgBox("File """ & sFileDest & """ exists. Overwrite?", vbYesNo + vbDefaultButton2) <> vbYes Then bProcess = False iNumSkipped = iNumSkipped + 1 End If End If If bProcess Then s = Decode(Mid(s, iTagBeginPos + TAG_BEGIN_LEN, iTagEndPos - iTagBeginPos - TAG_BEGIN_LEN - TAG_END_LEN)) 'MsgBox s Set tsDest = fso.CreateTextFile(sFileDest, TRUE, FALSE) tsDest.Write s tsDest.Close Set tsDest = Nothing iNumProcessed = iNumProcessed + 1 End If Case Else MsgBox sFileSource & " does not appear to be encoded. Found " & Len(Mid(s, iTagEndPos + TAG_END_LEN)) & " characters AFTER Ending Tag. Skipping file." iNumSkipped = iNumSkipped + 1 End Select Else MsgBox sFileSource & " does not appear to be encoded. Missing ending Tag. Skipping file." iNumSkipped = iNumSkipped + 1 End If Else MsgBox sFileSource & " does not appear to be encoded. Incomplete Beginning Tag. Skipping file." iNumSkipped = iNumSkipped + 1 End If Case Else MsgBox sFileSource & " does not appear to be encoded. Found " & (iTagBeginPos - 1) & "characters BEFORE Beginning Tag. Skipping file." iNumSkipped = iNumSkipped + 1 End Select End Sub Set argv = WScript.Arguments sFileSource = "" sFolder = "" iNumExamined = 0 iNumProcessed = 0 iNumSkipped = 0 Select Case argv.Count Case 0 Set wsoShellApp = WScript.CreateObject("Shell.Application") On Error Resume Next set oFolder = wsoShellApp.BrowseForFolder (0, "Select a folder containing files to decode", BIF_NEWDIALOGSTYLE + BIF_NONEWFOLDERBUTTON + BIF_RETURNONLYFSDIRS) If Err.Number = 0 Then If TypeName(oFolder) = "Folder3" Then Set oFolder = oFolder.Items.Item sFolder = oFolder.Path End If On Error GoTo 0 Set oFolder = Nothing Set wsoShellApp = Nothing If sFolder = "" Then MsgBox "Please pass a full file spec or select a folder containing encoded files" WScript.Quit End If Case 1 sFileSource = argv(0) If InStr(sFileSource, "?") > 0 Then MsgBox "Pass a full file spec or no arguments (browse for a folder)" WScript.Quit End If Case Else MsgBox "Pass a full file spec, -?, /?, ?, or no arguments (browse for a folder)" WScript.Quit End Select Set fso = WScript.CreateObject("Scripting.FileSystemObject") If sFolder <> "" Then On Error Resume Next Set fld = fso.GetFolder(sFolder) If Err.Number <> 0 Then Set fld = Nothing Set fso = Nothing MsgBox "Folder """ & sFolder & """ is not valid in this context" WScript.Quit End If On Error GoTo 0 Set fc = fld.Files For Each fSource In fc sFileSource = fSource.Path Select Case LCase(Right(sFileSource, 4)) Case ".vbe" sFileDest = Left(sFileSource, Len(sFileSource) - 1) & "s" bEncoded = True Case ".jse" sFileDest = Left(sFileSource, Len(sFileSource) - 1) bEncoded = True Case Else bEncoded = False End Select If bEncoded Then Set tsSource = fSource.OpenAsTextStream(FOR_READING) Process tsSource.ReadAll tsSource.Close Set tsSource = Nothing End If Next ' fSource Set fc = Nothing Set fld = Nothing Else If Not fso.FileExists(sFileSource) Then MsgBox "File """ & sFileSource & """ not found" Else bEncoded = False Select Case LCase(Right(sFileSource, 4)) Case ".vbe" sFileDest = Left(sFileSource, Len(sFileSource) - 1) & "s" bEncoded = True Case ".jse" sFileDest = Left(sFileSource, Len(sFileSource) - 1) bEncoded = True Case Else MsgBox "File """ & sFileSource & """ needs to be of type VBE or JSE" bEncoded = False End Select If bEncoded Then Set tsSource = fso.OpenTextFile(sFileSource, FOR_READING) Process tsSource.ReadAll tsSource.Close Set tsSource = Nothing End If End If End If Set fso = Nothing MsgBox iNumExamined & " Files Examined; " & iNumProcessed & " Files Processed; " & iNumSkipped & " Files Skipped" ----
<128 c="" if="" index="index+1" or="" then=""><128 c="" if="" then="">Ref: http://www.interclasse.com/scripts/vbe_decoder.php

Contoh Surat Keterangan Kematian

PEMERINTAH KABUPATEN (nama kabupaten)

KECAMATAN (nama kecamatan)

DESA (nama desa)

======================================================================

SURAT KETERANGAN KEMATIAN

Nomor:   /    /   /2016

Yang bertanda tangan dibawah ini, menerangkan bahwa :

Nama Lengkap          :

Jenis kelamin            :

Tgl. Lahir/Umur         :

Agama                      :

Alamat                      :

Telah meninggal dunia pada :

Hari                           :

Tanggal                     :

Pukul                        :

Bertempat di             :

Penyebab Kematian  :

Surat Keterangan ini dibuat berdasarkan keterangan pelapor :

Nama Lengkap         :

NIK                         :

Tgl. Lahir/Umur        :

Pekerjaan                 :

Alamat                     :

Hubungan pelapor dengan yang meninggal :

Demikian surat keterangan kematian ini dibuat dengan sebenar-benarnya agar dapat dipergunakan sebagaimana mestinya.

Nama desa, tgl/bulan/tahun

Kepala Desa/Lurah

(nama kepala desa)

----

RS KARYA MEDIKA JAKARTA

Jln. Melatie Blok G No. 12, Jakarta selatan

021-5859549 : email@medikamediako.com

======================================================================

SURAT KETERANGAN KEMATIAN

Nomor :  /   /   /2016

Saya yang bertanda tangan dibawah ini :

Nama               : Dr. Widya Ningrum

Jabatan            : Kepala Rumah Sakit

Menyatakan bahwa,

TELAH MENINGGAL DUNIA, Saudari :

Nama Lengkap             :

Nomor KTP                  :

Jenis Kelamin               :

Tempat, Tanggal Lahir   :

Pada Umur                   :

Status                          :

Alamat                        :

Pada tanggal 24 Maret 2016 tepatnya pada pukul 06.25 WIB dikarenakan penyakit komplikasi yang disebabkan oleh penyakit diabetes.

Demikian Surat Keterangan Kematian ini kami terbitkan untuk dapat digunakan semestinya dan sebijak-bijaknya.

Jakarta, 24 Maret 2016

Mengetahui,

Kepala Rumah Sakit

Dr. Widya Ningrum

----

RUKUN TETANGGA 01 RUKUN WARGA 01

DESA ABC KECAMATAN ABC

KABUPATEN ABC

Jln. ABC Kecamatan ABC, Kabupaten ABC, Bandung

======================================================================

SURAT KETERANGAN KEMATIAN

No. : 01/RT01/IV/ABC/2016

Saya yang bertanda tangan di bawah ini, Ketua RT 01 RW 01 Desa ABC Kecamatan ABC Kabupaten ABC, Menerangkan bahwa :

Nama                      :

Tempat/ Tgl Lahir     :

Pekerjaan                :

Agama                    :

Alamat                    :

TELAH MENINGGAL DUNIA pada :

Hari / tanggal         :

Pukul                    :

Tempat                 :

Dimakamkan di     :

Demikian surat keterangan kematian ini dibuat dengan sebenar-benarnya agar dapat dipergunakan sebagaimana mestinya.

Desa Abc, 24 Maret 2016

Ketua RT 01 RW 01,

(nama ketua Rt/Rw)

----

Sumber : http://www.contohsurat123.com/2016/03/contoh-surat-keterangan-kematian.html

Film yang Menghilang dan Tidak akan Pernah Ditayangkan

Inilah Film Sejarah Yang Dilarang Dan Dicekal Seluruh Dunia

Pada tahun 2005, sebuah cerita diangkat ke layar lebar dari kisah kontroversial Sumeria Kuno, film sejarah yang dilarang tayang dan dicekal seluruh dunia diberi judul ‘Anunnaki’. Beberapa bulan proyek pembuatan film berjalan, kemudian secara tiba-tiba ditutup dengan beberapa alasan. Film Anunnaki pernah dirilis, dan fakta sebenarnya bahwa semua gambar, video, dan iklan yang berkaitan dengan Anunnaki, telah dilarang diberbagai media. Bahkan lebih hebat dari itu, akun email sutradara film ini juga ditutup.

Dunia maya tampaknya hampir tidak meningggalkan jejak sedikitpun sehingga tidak ada sama sekali informasi penayangan tentang film Anunnaki. Tak luput pula wawancara dengan sutradara film, Jon Gress, juga pernah dihapus dari pencarian dunia maya, ditambah lagi situs resmi film Anunnaki juga pernah menghilang.

Anunnaki, Film Sejarah Yang Dilarang Tayang

Zecharia Sitchin lahir di Rusia dan dibesarkan di Palestina, dimana dirinya banyak memperoleh pengetahuan tentang Ibrani modern dan kuno, bahasa Semit dan Eropa, Perjanjian Lama, dan sejarah arkeologi di Near East. Sitchin lulus dari University of London jurusan sejarah ekonomi, dan menjadi wartawan terkemuka dan editor di Israel selama bertahun-tahun, kemudian tinggal dan menulis di New York.

Sitchin telah menerjemahkan dari teks Sumeria, berdasarkan kisah Veda, kutipan bahasa Yunani dan Ibrani versi asli dari Alkitab. Kemampuannya menerjemahkan banyak bahasa dianggap sebagai prestasi besar, tak banyak orang yang memiliki kemampuan untuk menguraikan bahasaTablet Adapa Sumeria terbuat dari tanah liat berasal dari 6000 tahun lalu, bahasa yang sulit dipahami.

Setidaknya Sitchin telah menghabiskan waktu selama puluhan tahun sebagai seorang arkeolog dan sejarawan di Timur Tengah. Dia meneliti tulisan-tulisan kuno dari peradaban Sumeria, kemudian menerbitkan 5 Paperback yang diberi judul ‘The Earth Chronicles‘, sebuah dokumentasi interaksi bangsa Nibirian di Bumi pada zaman kuno.

Berdasarkan kisah Sitchin, film Anunnaki diproduksi secara independen tetapi kekurangan biaya, kemudian berbagai instansi menetapkannya sebagai film sejarah yang dilarang tayang dan dicekal seluruh dunia. Bumi pernah dihuni oleh Anunnaki yang dianggap sebagai makhluk yang turun dari Surga. Mereka membuat koloni dan menambang emas serta mineral lainnya, membangun pelabuhan dan bandara yang diduga berada di Irak dan Iran, hidup sebagai masyarakat idealis dengan koloni kecil.

Tablet seperti Cuneiform yang mirip tiba-tiba muncul di beberapa tempat di seluruh dunia, dimana menjelaskan pengetahuan lanjutan tentang bintang-bintang, pertanian, peternakan, bahkan struktur sosial diperkenalkan kepada umat manusia oleh peradaban maju. Film ini menceritakan kisah sejarah yang pernah tertulis dalam tablet dan prasasti kuno, ditulis asli dari peradaban sebelum Mesir muncul di dunia.

Mereka kembali ketika bumi sudah terisi makhluk genetik yang bercampur DNA-nya dan menggunakannya sebagai budak pekerja tambang, pertanian, dan pekerjaan lain di Sumeria. Dalam kisah Anunnaki telah menciptakan manusia, Homo Sapiens dan Homo Erectus, melalui manipulasi genetik.

Kemudian Enlil dan Enki dikirim dari Nibiru untuk memerintah bumi, mereka diberi tugas untuk mengangani semua kekuatan dan kontrol atas makhluk ciptaan. Mereka memberi pengetahuan arsitektur kepada bangsa Sumeria kuno, pertanian, astronomi, dan budaya pertukaran/sesajen kepada para Dewa dalam bentuk barang tambang, makanan, dan bahan lainnya. Bangsa Nibiru menyamar sebagai manusia ikan, manusia singa, manusia burung, dan makhluk lainnya, sebagai tanda agar manusia menyembah mereka. Inilah yang ditentang Nabi Musa, dia menghancurkan segala patung yang berbentuk makhluk, salah satu tradisi yang dibesar-besarkan peradan kuno.

Kemudian bangsa Pleiades terlibat dalam 3 Zaman Keemasan di Mesir, mereka berusaha mengakhiri ibadah yang diciptakan bangsa Nibiru dan Dewa Sirian, dan menggantinya dengan konsep ‘Yang Satu’ atau monoteistik. Tetapi dalam memerangi perbedaan konsep Kepercayaan ini telah melibatkan semua manusia, saling berperang satu sama lain, bukan memerangi Dewa yang merupakan musuh nyata di balik layar. Sejak saat itu, setiap 3600 tahun telah terjadi peristiwa besar di Bumi yang saat ini didokumentasikan sebagai bencana besar.Kisah Banjir Besar dari agama dan budaya di dunia telah mengisahkan kehancuran ras budak karena memberontak penguasa mereka, bumi kembali steril dari makhluk tanpa nurani.

Film Sejarah Yang Dilarang Diangkat Dari Teks Asli Tablet Sumeria Kuno

Sebenarnya Sitchin sangat menyadari kisah ini menceritakan makhluk yang disebut Iblis, membangun peradaban maju agar manusia mau menyembahnya. Tetapi teks kuno menceritakan nama dan kejadian berbeda dengan sebutan zaman modern, terjadi jauh sebelum agama monoteistik lahir di Bumi. Orang-orang zaman dahulu mengenal sosok ini dengan nama lain, mereka tak tahu sebutan Iblis, mereka hanya tahu makhluk dari Nibiru dan bangsa bintang Pleiadespernah turun ke Bumi.

Pada tanggal 5 Juli 2006, X-Squared Radio telah mempromosikan film ‘1Anunnaki’ dalam wawancara eksklusif dengan Jon Gress. Dia menyebutkan bahwa film digital pertama ‘Anunnaki Trilogy’ diproduksi Jaguar Films akan membuat lompatan terbesar dalam sejarah antropologi. Film ini merupakan sesi pertama Full-Length yang faktual dari Tablet Sumeria, menceritakan bagaimana Sumeria tiba-tiba menjadi peradaban paling maju di dunia. Banyak orang masih tidak mengetahui bahwa ada mesin terbang di bumi jauh sebelum bangsa Mesir mencapai puncaknya.

Dalam kisah film Anunnaki, setidaknya menceritakan dua versi manusia yang berbeda. Versi manusia pertama dianggap sebagai makhluk setengah dewa, dalam kitab-kitab suci tiga agama disebut sebagaiNephlim atau manusia raksasa, kaum Ad. Sementara versi manusia kedua yang lain jauh lebih kecil, lebih mudah diciptakan dan dianggap sebagai makhluk fana. Keturunan kedua versi manusia itu saat ini telah mengisi permukaan bumi, salah satunya telah mendominasi dan berusaha untuk tetap mengabaikan kebenaran.

Jika kisah Anunnaki tayang di bioskop-bioskop seluruh dunia, maka dampak yang akan muncul berasal dari tiga agama monoteistik Timur dan Barat. Tentunya hal ini akan merusak kontrol setiap Negara religius, dan menghancurkan Teori Evolusi Darwin. Dampak film Anunnaki akan mengubah pemahaman manusia tentang dirinya sendiri dan penempatannya di alam semesta. Maka tak heran, berbagai pihak pemerintah dan swasta langsung menutup dan menetapkan Anunnaki sebagai film sejarah yang dilarang tayang dan dicekal seluruh dunia.

Referensi

• The Lost Book of Enki: Memoirs and Prophecies of an Extraterrestrial God, and The Earth Chronicles, by Zecharia Sitchin, Paperback – August 16, 2004.
• Image: The Tomb King by JarrodOwen
• inilah-film-sejarah-yang-dilarang-dan-dicekal-seluruh-dunia/
• ia800307.us.archive.org/30/items/Anunnaki-DontWatchThisFilm/Annunaki-DontWatchThisFilm.mp4