Faid's Blog™: 2012

Friday, December 28, 2012

Kalender Jawa Javascript

Ini adalah kalender Indonesia yang disertai dengan hari jawa (Pahing, Pon, Wage, Kliwon, dan Legi), kalender yang saya buat menggunakan JavaScript ini juga mampu menampilkan tanggal dari tahun 100 sampai 250000, caranya cukup Copy Paste kode dibawah sesuai dengan kebutuhan Anda, Langkah2nya: Buka Notepad -> Salin kode dibawah -> Pilih Save As -> Pilih jenis All Files -> Masukkan .ekstensi setelah nama sesuai perintah(Mis. Kalender.HTA). . .


Minggu	Senin	Selasa	Rabu	Kamis	Jum'at	Sabtu

Simpan dengan ekstensi "*.HTA":

<html>
	<head>
		<title>Jam &amp; Kalender Digital</title>
		<script type='text/javascript'>
			sW = screen.width;
			sH = screen.height;
			window.moveTo(sW, sH);
			window.resizeTo(464, 464);
		</script>
		<hta:application
			applicationName="jam&kalender"
			border="thin"
			contextMenu="no"
			icon="kalender.ico"
			id="382511010101101011"
			innerBorder="no"
			maximizeButton="no"
			scroll="no"
			selection="no"
			singleInstance="yes"
			version="3.8.2.5"/>
		<meta http-equiv='MSThemeCompatible' content='yes'/>
		<style type='text/css'>
			table {
				width: 464px;
				height: 464px;
				font-family: arial;
				font-weight: bold;
				font-size: 14px;
				cursor: default;
			}

			td {
				width: 64px;
				height: 32px;
				background-color: #f5f5f5;
				text-align: center;
			}

			input {
				width: 28px;
				height: 24px;
				font-family: arial;
				font-weight: normal;
				font-size: 14px;
				cursor: pointer;
			}

			.myh {
				width: 196px;
				font-size: 16px;
				color: #ff9000;
			}

			.dy,.dyh {
				color: #0000ff;
			}

			.jm,.jmh {
				color: #009f00;
			}

			.st,.sth {
				color: #bf00cf;
			}

			.mg,.mgh {
				color: #ff0000;
			}

			.dy,.jm,.st,.mg {
				height: 64px;
				font-size: 12px;
			}

			.dyh,.jmh,.sth,.mgh {
				font-size: 14px;
			}

			.clk {
				width: 196px;
				height: 64px;
				font-size: 44px;
				color: #00afff;
			}

			.dte {
				width: 130px;
				font-size: 16px;
				color: #ff00cf;
			}
		</style>
	</head>
	<body topMargin='0' leftMargin='0' onSelectStart='return false;' onContextMenu='return false;'>
		<table border='1' borderColor='#808080' cellSpacing='0' cellPadding='0'>
			<tr>
				<td colSpan='2' style='width: 130px;'>
					<input type='button' onClick='chgMth(0, 100);' title='-100 tahun' value='&lt;&lt;'/>
					<input type='button' onClick='chgMth(0, 10);' title='-10 tahun' value='&lt;&lt;'/>
					<input type='button' onClick='chgMth(0, 1);' title='-1 tahun' value='&lt;&lt;'/>
					<input type='button' onClick='chgMth(1, 0);' title='-1 bulan' value='&lt;&lt;'/>
				</td>
				<td colSpan='3' class='myh' id='mTyR'/>
				<td colSpan='2' style='width: 130px;'>
					<input type='button' onClick='chgMth(3, 0);' title='+1 bulan' value='&gt;&gt;'/>
					<input type='button' onClick='chgMth(4, 1);' title='+1 tahun' value='&gt;&gt;'/>
					<input type='button' onClick='chgMth(4, 10);' title='+10 tahun' value='&gt;&gt;'/>
					<input type='button' onClick='chgMth(4, 100);' title='+100 tahun' value='&gt;&gt;'/>
				</td>
			</tr>
			<tr>
				<td class='mgh'>Minggu</td>
				<td class='dyh'>Senin</td>
				<td class='dyh'>Selasa</td>
				<td class='dyh'>Rabu</td>
				<td class='dyh'>Kamis</td>
				<td class='jmh'>Jum'at</td>
				<td class='sth'>Sabtu</td>
			</tr>
			<tr>
				<td colSpan='1' class='mg' id='iD0'/>
				<td colSpan='1' class='dy' id='iD1'/>
				<td colSpan='1' class='dy' id='iD2'/>
				<td colSpan='1' class='dy' id='iD3'/>
				<td colSpan='1' class='dy' id='iD4'/>
				<td colSpan='1' class='jm' id='iD5'/>
				<td colSpan='1' class='st' id='iD6'/>
			</tr>
			<tr>
				<td colSpan='1' class='mg' id='iD7'/>
				<td colSpan='1' class='dy' id='iD8'/>
				<td colSpan='1' class='dy' id='iD9'/>
				<td colSpan='1' class='dy' id='iD10'/>
				<td colSpan='1' class='dy' id='iD11'/>
				<td colSpan='1' class='jm' id='iD12'/>
				<td colSpan='1' class='st' id='iD13'/>
			</tr>
			<tr>
				<td colSpan='1' class='mg' id='iD14'/>
				<td colSpan='1' class='dy' id='iD15'/>
				<td colSpan='1' class='dy' id='iD16'/>
				<td colSpan='1' class='dy' id='iD17'/>
				<td colSpan='1' class='dy' id='iD18'/>
				<td colSpan='1' class='jm' id='iD19'/>
				<td colSpan='1' class='st' id='iD20'/>
			</tr>
			<tr>
				<td colSpan='1' class='mg' id='iD21'/>
				<td colSpan='1' class='dy' id='iD22'/>
				<td colSpan='1' class='dy' id='iD23'/>
				<td colSpan='1' class='dy' id='iD24'/>
				<td colSpan='1' class='dy' id='iD25'/>
				<td colSpan='1' class='jm' id='iD26'/>
				<td colSpan='1' class='st' id='iD27'/>
			</tr>
			<tr>
				<td colSpan='1' class='mg' id='iD28'/>
				<td colSpan='1' class='dy' id='iD29'/>
				<td colSpan='1' class='dy' id='iD30'/>
				<td colSpan='1' class='dy' id='iD31'/>
				<td colSpan='1' class='dy' id='iD32'/>
				<td colSpan='1' class='jm' id='iD33'/>
				<td colSpan='1' class='st' id='iD34'/>
			</tr>
			<tr>
				<td colSpan='1' rowSpan='2' class='mg' id='iD35'/>
				<td colSpan='1' rowSpan='2' class='dy' id='iD36'/>
				<td colSpan='3' rowSpan='2' class='clk' id='showClock'/>
				<td colSpan='2' class='dte' id='showDate'/>
			</tr>
			<tr>
				<td colSpan='2' class='dte' style='color: #00cf00;' id='showDay'/>
			</tr>
		</table>
	</body>
	<script type='text/javascript'>
		dN = ["Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jum'at", "Sabtu"];
		mN = ["Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "Nopember", "Desember"];
		pN = ["Legi", "Pahing", "Pon", "Wage", "Kliwon"];

		chgMth(2, 0);
		chgClk();
		document.body.focus();

		iW = (464 + (464 - document.body.offsetWidth));
		iH = (464 + (464 - document.body.offsetHeight));
		window.resizeTo(iW, iH);
		window.moveTo(((sW - iW) / 2), ((sH - iH) / 2));

		function chgMth(i, y) {
			dT = new Date();
			if (i == 0) {
				yR -= y;
				if (yR < 100) {
					yR = 100;
				}
			}
			if (i == 1) {
				if (mT > 0) {
					mT--;
				} else {
					if (yR == 100) {
						mT = 0;
					} else {
						mT = 11;
						yR--;
					}
				}
			}
			if (i == 2) {
				mT = dT.getMonth();
				yR = dT.getFullYear();
			}
			if (i == 3) {
				if (mT < 11) {
					mT++;
				} else {
					if (yR == 250000) {
						mT = 11;
					} else {
						mT = 0;
						yR++;
					}
				}
			}
			if (i == 4) {
				yR += y;
				if (yR > 250000) {
					yR = 250000;
				}
			}
			for (cN = 0; cN <= 36; cN++) {
				document.getElementById("iD" + cN).style.backgroundColor = "#dcdcff";
			}
			cN = new Date(yR, mT, 1).getDay();
			for (dY = new Date(yR, mT, 0).getDate() - (cN - 1), bI = 0; bI < cN; dY++, bI++) {
				document.getElementById("iD" + bI).innerHTML = "<font style='font-size: 20px; color: #808080;'>" + dY + "</font>";
			}
			for (dY = 1; dY <= new Date(yR, (mT + 1), 0).getDate(); dY++, cN++) {
				pS = Math.floor(((new Date(yR, mT, dY).getTime() - new Date(100, 0, 1).getTime()) / (24 * 60 * 60 * 1000)) % 5);
				document.getElementById("iD" + cN).innerHTML = "<font style='font-size: 28px;'>" + dY + "</font><br/>" + pN[pS];
				if (dY == dT.getDate() & mT == dT.getMonth() & yR == dT.getFullYear()) {
					document.getElementById("iD" + cN).style.backgroundColor = "#ffff88";
				}
			}
			for (dY = 1; cN <= 36; dY++, cN++) {
				document.getElementById("iD" + cN).innerHTML = "<font style='font-size: 20px; color: #808080;'>" + dY + "</font>";
			}
			mTyR.title = mN[dT.getMonth()] + " " + dT.getFullYear();
			mTyR.innerHTML = "<font onClick='chgMth(2, 0);' style='cursor: pointer;'>" + mN[mT] + "&nbsp;" + yR + "</font>";
		}

		function chgClk() {
			dTcL = new Date();
			hRcL = dTcL.getHours();
			mNcL = dTcL.getMinutes();
			sCcL = dTcL.getSeconds();
			dYcL = dTcL.getDate();
			mTcL = dTcL.getMonth();
			yRcL = dTcL.getFullYear();
			if (mTcL == 7) {
				mMcL = "Ags";
			} else {
				mMcL = mN[mTcL].substr(0, 3);
			}
			if (dYcL < 10) {
				dYcL = "0" + dYcL;
			}
			if (hRcL < 10) {
				hRcL = "0" + hRcL;
			}
			if (mNcL < 10) {
				mNcL = "0" + mNcL;
			}
			if (sCcL < 10) {
				sCcL = "0" + sCcL;
			}
			if (showDate.innerHTML != dYcL + "&nbsp;" + mMcL + "&nbsp;" + yRcL) {
				chgMth(5, 0);
			}
			pScL = Math.floor(((new Date(yRcL, mTcL, dYcL).getTime() - new Date(100, 0, 1).getTime()) / (24 * 60 * 60 * 1000)) % 5);
			showClock.innerHTML = hRcL + ":" + mNcL + ":" + sCcL;
			showDate.innerHTML = dYcL + "&nbsp;" + mMcL + "&nbsp;" + yRcL;
			showDay.innerHTML = dN[dTcL.getDay()] + "&nbsp;" + pN[pScL];
			setTimeout("chgClk();", 100);
		}
	</script>
</html>

Simpan dengan ekstensi "*.JS":

dN = ["Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jum'at", "Sabtu"];
mN = ["Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "Nopember", "Desember"];
pN = ["Legi", "Pahing", "Pon", "Wage", "Kliwon"];

dW = "<html><head><style type='text/css'>table{width:464px;height:464px;font-family:arial;font-weight:bold;font-size:14px;cursor:default;}td{width:64px;height:"
+ "32px;background-color:#f5f5f5;text-align:center;}input{width:28px;height:24px;font-family:arial;font-weight:normal;font-size:14px;cursor:pointer;}.myh{width"
+ ":196px;font-size:16px;color:#ff9000;}.dy,.dyh{color:#0000ff;}.jm,.jmh{color:#009f00;}.st,.sth{color:#bf00cf;}.mg,.mgh{color:#ff0000;}.dy,.jm,.st,.mg{height:"
+ "64px;font-size:12px;}.dyh,.jmh,.sth,.mgh{font-size:14px;}.clk{width:196px;height:64px;font-size:44px;color:#00afff;}.dte{width:130px;font-size:16px;color:#f"
+ "f00cf;}</style></head><body onSelectStart='return false;'><table border='1' borderColor='#808080' cellSpacing='0' cellPadding='0'><tr><td colSpan='2' style="
+ "'width:130px;'><input type='button' onClick='chgMth(0,100);' title='-100 tahun' value='&lt;&lt;'/>\n<input type='button' onClick='chgMth(0,10);' title='-10 "
+ "tahun' value='&lt;&lt;'/>\n<input type='button' onClick='chgMth(0,1);' title='-1 tahun' value='&lt;&lt;'/>\n<input type='button' onClick='chgMth(1,0);' titl"
+ "e='-1 bulan' value='&lt;&lt;'/></td><td colSpan='3' class='myh' id='mTyR'/><td colSpan='2' style='width:130px;'><input type='button' onClick='chgMth(3,0);' "
+ "title='+1 bulan' value='&gt;&gt;'/>\n<input type='button' onClick='chgMth(4,1);' title='+1 tahun' value='&gt;&gt;'/>\n<input type='button' onClick='chgMth(4"
+ ",10);' title='+10 tahun' value='&gt;&gt;'/>\n<input type='button' onClick='chgMth(4, 100);' title='+100 tahun' value='&gt;&gt;'/></td></tr><tr><td class='mg"
+ "h'>" + dN[0] + "</td><td class='dyh'>" + dN[1] + "</td><td class='dyh'>" + dN[2] + "</td><td class='dyh'>" + dN[3]
+ "</td><td class='dyh'>" + dN[4] + "</td><td class='jmh'>" + dN[5] + "</td><td class='sth'>" + dN[6] + "</td></tr>";
var n = 5;
for (i = 0; i <= 34; i++) {
	ftr = "";
	etr = "";
	cls = "";
	if (i == (n - 5)) {
		ftr = "<tr>";
		cls = "mg";
	} else if (i == n) {
		cls = "jm";
		n += 7;
	} else if (i == ((n - 7)  + 1)) {
		etr = "</tr>";
		cls = "st";
	} else {
		cls = "dy";
	}
	dW += ftr + "<td colSpan='1' class='" + cls + "' id='iD" + i + "'/>" + etr;
}
dW += "<tr><td colSpan='1' rowSpan='2' class='mg' id='iD35'/><td colSpan='1' rowSpan='2' class='dy' id='iD36'/><td colSpan='3' rowSpan='2' class='clk' id='sh"
+ "owClock'/><td colSpan='2' class='dte' id='showDate'/></tr><tr><td colSpan='2' class='dte' style='color:#00cf00;' id='showDay'/></tr></table></body></html>";

document.write(dW);
chgMth(2, 0);
chgClk();

function chgMth(i, y) {
	dT = new Date();
	if (i == 0) {
	yR -= y;
	if (yR < 100) {
		yR = 100;
	}
	}
	if (i == 1) {
	if (mT > 0) {
		mT--;
	} else {
		if (yR == 100) {
		mT = 0;
		} else {
		mT = 11;
		yR--;
		}
	}
	}
	if (i == 2) {
	mT = dT.getMonth();
	yR = dT.getFullYear();
	}
	if (i == 3) {
	if (mT < 11) {
		mT++;
	} else {
		if (yR == 250000) {
		mT = 11;
		} else {
		mT = 0;
		yR++;
		}
	}
	}
	if (i == 4) {
	yR += y;
	if (yR > 250000) {
		yR = 250000;
	}
	}
	for (cN = 0; cN <= 36; cN++) {
	document.getElementById("iD" + cN).style.backgroundColor = "#dcdcff";
	}
	cN = new Date(yR, mT, 1).getDay();
	for (dY = new Date(yR, mT, 0).getDate() - (cN - 1), bI = 0; bI < cN; dY++, bI++) {
	document.getElementById("iD" + bI).innerHTML = "<font style='font-size: 20px; color: #808080;'>" + dY + "</font>";
	}
	for (dY = 1; dY <= new Date(yR, (mT + 1), 0).getDate(); dY++, cN++) {
	pS = Math.floor(((new Date(yR, mT, dY).getTime() - new Date(100, 0, 1).getTime()) / (24 * 60 * 60 * 1000)) % 5);
	document.getElementById("iD" + cN).innerHTML = "<font style='font-size: 28px;'>" + dY + "</font><br/>" + pN[pS];
	if (dY == dT.getDate() & mT == dT.getMonth() & yR == dT.getFullYear()) {
		document.getElementById("iD" + cN).style.backgroundColor = "#ffff88";
	}
	}
	for (dY = 1; cN <= 36; dY++, cN++) {
	document.getElementById("iD" + cN).innerHTML = "<font style='font-size: 20px; color: #808080;'>" + dY + "</font>";
	}
	mTyR.title = mN[dT.getMonth()] + " " + dT.getFullYear();
	mTyR.innerHTML = "<font onClick='chgMth(2, 0);' style='cursor: pointer;'>" + mN[mT] + "&nbsp;" + yR + "</font>";
}

function chgClk() {
	dTcL = new Date();
	hRcL = dTcL.getHours();
	mNcL = dTcL.getMinutes();
	sCcL = dTcL.getSeconds();
	dYcL = dTcL.getDate();
	mTcL = dTcL.getMonth();
	yRcL = dTcL.getFullYear();
	if (mTcL == 7) {
	mMcL = "Ags";
	} else {
	mMcL = mN[mTcL].substr(0, 3);
	}
	if (dYcL < 10) {
	dYcL = "0" + dYcL;
	}
	if (hRcL < 10) {
	hRcL = "0" + hRcL;
	}
	if (mNcL < 10) {
	mNcL = "0" + mNcL;
	}
	if (sCcL < 10) {
	sCcL = "0" + sCcL;
	}
	if (showDate.innerHTML != dYcL + "&nbsp;" + mMcL + "&nbsp;" + yRcL) {
	chgMth(5, 0);
	}
	pScL = Math.floor(((new Date(yRcL, mTcL, dYcL).getTime() - new Date(100, 0, 1).getTime()) / (24 * 60 * 60 * 1000)) % 5);
	showClock.innerHTML = hRcL + ":" + mNcL + ":" + sCcL;
	showDate.innerHTML = dYcL + "&nbsp;" + mMcL + "&nbsp;" + yRcL;
	showDay.innerHTML = dN[dTcL.getDay()] + "&nbsp;" + pN[pScL];
	setTimeout("chgClk();", 100);
}

Wednesday, December 12, 2012

VB6 Folder Locker

I've create a more powerfull Folder Locker, now i made it from VB6.

Download Here! MediaFire Password : f4id's-bl0g

Monday, November 12, 2012

Pembilang Angka (Number to Text)

Indonesia: Ini adalah alat untuk membilang nilai angka.

Angka

Hasil...

English: This script will convert number into text.

Number

Result...

Save this code into "*.HTA" extension (ex. "Num2Text.hta"):

Monday, November 5, 2012

Simple JavaScript Date Calculator

			TO

Save this code into "*.HTA" extension (ex. "DateCalc.hta"):

Simple Text Counter

Save this code into "*.hta" extension (ex. "TextCount.hta")

HTML TextArea OnFocus OnBlur

Ini kode text areanya:

Dan ini hasilnya:

☻ Selamat Mencoba ☻

Friday, November 2, 2012

Jejaring sosial muncul, Email pun tersingkirkan

Ingatkah kalian pada email yang dulunya kalian gunakan untuk berbagi dan terhubung dengan teman, dan apakah kalian masih menggunakannya sampai sekarang?

Jejaring sosial, hmm, seperti namanya jarsos digunakan untuk berhubungan dengan teman / keluarga anda, maka dari itu E-MAIL sebagai salah satu media yang terlupakan, bahkan sekarang orang yang membuat email rata-rata hanya digunakan untuk mendaftar di JarSos saja, dan setelah itu email dibiarkan begitu saja, padahal email memiliki manfaat yang lebih dibandingkan dengan JarSos sendiri, apalagi provider webmail saat ini seperti Google Mail, Mail.com, Yahoo! Mail, dan HoTMaiL sudah merombak kegunaan email sehingga sangat mirip dengan jejaring sosial, anda dapat mengirim pesan, mengubah foto, berbagi file, join grup, chat, dan bahkan anda dapat mengupdate status. Tetapi tetap saja semua orang lebih memilih jarsos daripada email untuk berhubungan, sekarang banyak muncul pertanyaan "Siapa yang ga punya facebook/twitter/dll.?", pasti jawabannya "hampir ga ada yang ga punya.", tetapi jika ada pertanyaan seperti ini "Siapa yang masih pake email?", pasti jawabannya "3S: Sangat Sedikit Sekali", mungkin alasan orang menggunakan jarsos adalah LEBIH MUDAH dalam penggunaannya, memang benar, tetapi apakah resikonya lebih kecil dari pada email, jawabannya TIDAK, karena dengan jarsos orang2 akan lebih mudah untuk mengetahui identitas seseorang, bahkan orang yang tidak dikenal sekalipun dapat melihat identitas kita, berbeda dengan email, identitas email lebih privat, bahkan orang yang sudah tahu alamat email kita tetap tidak dapat melihat identitas kita, dia hanya bisa mengirimi kita email saja, karena itu ane masih suka menggunakan email meski ane punya facebook, twitter, dan google+, bahkan ane lebih sering pake email daripada pake semua akun jarsos ane (curhat mode on), ya udah, ane capek nulisnya, sekian n terimakasih udah mampir.

"Loh2, kok main tutup2 gitu aja sih gan?"
"Soalnya ane udah capek nulisnya + capek ngarangnya jg! :p"

Saturday, October 27, 2012

Memory Size Converter

Sunday, October 21, 2012

Arabic Keyboard (Keyboard Arab)

- Use the Virtual Keyboard below to write.
- Gunakan Keyboard Virtual di bawah ini untuk menulis.

Source : http://www.arabic-keyboard.org/

Thursday, October 18, 2012

Membuat Folder Locker dari HTA (HTML Application)

Sebelumnya ane pernah membahas soal folder locker dari VBS, nahh, sekarang ane buat lebih "powerfull" dengan script HTA (HTML Application), caranya mudah, cukup copas semua kode di bawah ini ke dalam notepad lalu simpan dengan ekstensi "*.HTA" (mis."Locker.hta") lalu jalankan,,, saat pemakaian pertama, agan/sist bakal disuruh buat folder baru dan password baru... ;)

code:

<HTML><HEAD>
<TITLE>Folder Locker</TITLE>
<SCRIPT LANGUAGE="VBScript">Self.MoveTo Screen.Width,Screen.Height</SCRIPT>
<HTA:APPLICATION
APPLICATIONNAME="Folder-Locker"
VERSION="5.7.9.5"
BORDER="THIN"
BORDERSTYLE="NORMAL"
ICON="Locker.ico"
INNERBORDER="NO"
MAXIMIZEBUTTON="NO"
MINIMIZEBUTTON="NO"
SCROLL="NO"
SELECTION="NO"
SINGLEINSTANCE="YES"/>
<META HTTP-EQUIV='MSThemeCompatible' CONTENT='YES'>
</HEAD>

<BODY ID='ONSCR' LEFTMARGIN='0' TOPMARGIN='0'></BODY>

<SCRIPT LANGUAGE='VBScript'>
ON ERROR RESUME NEXT
DIM CBtn,FileFolder,FolderName,HsfReg,LockFolder,NameFile,ObjFSO,PassFile,WshShell
SET ObjFSO=CreateObject("Scripting.FileSystemObject")
SET WshShell=CreateObject("WScript.Shell")
FileFolder="\     "
LockFolder=FileFolder&"\ "
NameFile=FileFolder&"\  "
PassFile=FileFolder&"\   "
HsfReg="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
IF ObjFSO.FileExists(NameFile) THEN FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,TRUE,TRUE).ReadLine)

IF ObjFSO.FolderExists(FileFolder) THEN ObjFSO.GetFolder(FileFolder).attributes=39
IF ObjFSO.FolderExists(LockFolder) THEN ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FileExists(NameFile) THEN ObjFSO.GetFile(NameFile).attributes=39
IF ObjFSO.FileExists(PassFile) THEN ObjFSO.GetFile(PassFile).attributes=39
IF WshShell.RegRead(HsfReg)<>"0" THEN WshShell.RegWrite(HsfReg),"0","REG_DWORD"

IF NOT ObjFSO.FolderExists(FolderName) AND NOT ObjFSO.FolderExists(LockFolder) THEN
CBtn="Self.Close" : CALL NF
ElseIF NOT ObjFSO.FileExists(PassFile) THEN CBtn="Self.Close" : CALL PS
ElseIF ObjFSO.FolderExists(LockFolder) THEN CBtn="MM" : CALL UL
ElseIF ObjFSO.FolderExists(FolderName) THEN CBtn="MM" : CALL MM
END IF

FUNCTION Clean(TEXT)
ON ERROR RESUME NEXT
Chars=Array("\","/",":","*","?","""","<",">","|")
For each Replaced in Chars
TEXT=Replace(TEXT,Replaced,"")
NEXT
Clean=TEXT
END FUNCTION

FUNCTION Decrypt(TEXT)
ON ERROR RESUME NEXT
FOR I=1 TO LEN(TEXT)
X=MID(TEXT,I,1)
TMP=TMP&CHRW(ASCW(X)-(50+I))
Next
Decrypt=TMP
End Function

FUNCTION Encrypt(TEXT)
ON ERROR RESUME NEXT
FOR I=1 TO LEN(TEXT)
X=MID(TEXT,I,1)
TMP=TMP&CHRW(ASCW(X)+(50+I))
Next
Encrypt=TMP
End Function

SUB InnerWindowSize(intWidth,intHeight)
ON ERROR RESUME NEXT
Self.ResizeTo intWidth,intHeight
Self.ResizeTo intWidth+(intWidth-Document.Body.OffsetWidth),intHeight+(intHeight-Document.Body.OffsetHeight)
Self.MoveTo (Screen.Width/2)-(intWidth/2),(Screen.Height/2)-(intHeight/2)
END SUB

SUB Lock
ON ERROR RESUME NEXT
DIM FolderName
FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,TRUE,TRUE).ReadLine)
ObjFSO.MoveFolder(FolderName),(LockFolder)
ObjFSO.GetFolder(LockFolder).attributes=39
IF ObjFSO.FolderExists(FolderName) THEN
MsgBox "Gagal mengunci folder."&vbNewLine&"Simpan data lalu tutup semua aplikasi yang menggunakan folder ini, lalu coba lagi.",16,"Folder Locker"
EXIT SUB
END IF
MsgBox "Folder berhasil dikunci",64,"Folder Locker"
Self.Close
END SUB

SUB MakeFolder
ON ERROR RESUME NEXT
DIM NewName
NewName=NameFolder.Value
IF (NewName)<>"" THEN
NewName=Clean(NewName)
IF NOT ObjFSO.FolderExists(FileFolder) THEN
ObjFSO.CreateFolder(FileFolder)
ObjFSO.GetFolder(FileFolder).attributes=39
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
ObjFSO.CreateFolder(NewName)
ELSE
MsgBox "Gagal membuat folder baru."&vbNewLine&"Folder dengan nama yang sama sudah ada di direktori ini."&vbNewLine&"Cobalah nama yang lain.",16,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
IF NOT ObjFSO.FolderExists(NewName) THEN
MsgBox "Gagal membuat folder baru",16,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
NewName=Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
MsgBox "Folder baru berhasil dibuat",64,"Folder Locker"
CALL PS
ELSE
MsgBox "Nama folder tidak boleh kosong !!!",48,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
END SUB

SUB MM
ON ERROR RESUME NEXT
CALL InnerWindowSize(200,234)
ONSCR.InnerHTML="<TABLE HEIGHT='234px' WIDTH='200px' CELLSPACING='0' CELLPADDING='0'>"_
&"<TR BGCOLOR='#346E99' HEIGHT='45px'><TD><CENTER><FONT COLOR='#FFFFFF' SIZE='+2' FACE='VERDANA,ARIAL,HELVETICA,SANS-SERIF'>MENU UTAMA</FONT></CENTER></TD></TR>"_
&"<TR BGCOLOR='#BBBFFF'><TD><CENTER><BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='Lock'>Kunci Folder</BUTTON><P/>"_
&"<BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='RN'>Ubah Nama Folder</BUTTON><P/>"_
&"<BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='PS'>Ganti Password</BUTTON><P/>"_
&"<BUTTON STYLE='HEIGHT:25px;WIDTH:165px' ONCLICK='Self.Close'>Keluar</BUTTON>"_
&"</TD></CENTER></TR></TABLE>"
END SUB

SUB NF
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,116)
ONSCR.InnerHTML="<TABLE HEIGHT='116px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis nama untuk folder baru</TEXT><BR/><INPUT TYPE='TEXT' NAME='NameFolder' SIZE='35' MaxLength='50'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='MakeFolder'>Buat</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='Self.Close'>Batal</BUTTON></CENTER></TD></TR>"
NameFolder.Select
END SUB

SUB Password
ON ERROR RESUME NEXT
DIM Password1,Password2
Password1=NewPassword.Value
Password2=VerifyPassword.Value
ON ERROR RESUME NEXT
IF (Password1)<>"" AND (Password2)="" THEN VerifyPassword.Select : EXIT SUB : END IF
IF (Password1)<>"" AND (Password2)<>"" THEN
IF (Password1)=(Password2) THEN
Password2=Encrypt(Password2)
IF ObjFSO.FileExists(PassFile) THEN
ObjFSO.GetFile(PassFile).attributes=0
ObjFSO.DeleteFile(PassFile),TRUE
END IF
ObjFSO.CreateTextFile(PassFile,TRUE,TRUE).Write(Password2)
ObjFSO.GetFile(PassFile).attributes=39
MsgBox "Password baru telah disimpan",64,"Folder Locker"
CBtn="MM"
CALL MM
ELSE
MsgBox "Password tidak cocok !!!",16,"Folder Locker"
NewPassword.Value=""
VerifyPassword.Value=""
NewPassword.Select
EXIT SUB
END IF
ELSE
MsgBox "Password tidak boleh kosong !!!",48,"Folder Locker"
NewPassword.Select
EXIT SUB
END IF
END SUB

SUB PS
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,160)
ONSCR.InnerHTML="<TABLE HEIGHT='160px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis password baru</TEXT><BR/><INPUT TYPE='PASSWORD' NAME='NewPassword' SIZE='35'><BR/>"_
&"<TEXT>Tulis lagi password yang baru</TEXT><BR/><INPUT TYPE='PASSWORD' NAME='VerifyPassword' SIZE='35'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='Password'>Simpan</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='"&Cbtn&"'>Batal</BUTTON></CENTER></TD></TR>"
NewPassword.Select
END SUB

SUB Rename
ON ERROR RESUME NEXT
DIM FolderName,NewName
FolderName=Decrypt(ObjFSO.OpenTextFile(NameFile,1,TRUE,TRUE).ReadLine)
NewName=NameFolder.Value
IF (NewName)<>"" THEN
NewName=Clean(NewName)
IF ObjFSO.FolderExists(NewName) THEN
MsgBox "Gagal mengubah nama folder."&vbNewLine&"Folder dengan nama yang sama sudah ada di direktori ini."&vbNewLine&"Cobalah nama yang lain.",16,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
ObjFSO.MoveFolder(FolderName),(NewName)
IF NOT ObjFSO.FolderExists(NewName) THEN
MsgBox "Gagal mengubah nama folder",16,"Folder Locker"
NameFolder.Select
EXIT SUB
ELSE
IF ObjFSO.FileExists(NameFile) THEN
ObjFSO.GetFile(NameFile).attributes=0
ObjFSO.DeleteFile(NameFile),TRUE
END IF
NewName=Encrypt(NewName)
ObjFSO.CreateTextFile(NameFile,TRUE,TRUE).Write(NewName)
ObjFSO.GetFile(NameFile).attributes=39
MsgBox "Nama folder berhasil diganti",64,"Folder Locker"
CALL MM
END IF
ELSE
MsgBox "Nama folder tidak boleh kosong !!!",48,"Folder Locker"
NameFolder.Select
EXIT SUB
END IF
END SUB

SUB RN
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,116)
ONSCR.InnerHTML="<TABLE HEIGHT='116px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis nama baru untuk folder Anda</TEXT><BR/><INPUT TYPE='TEXT' NAME='NameFolder' SIZE='35' MaxLength='50'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='Rename'>Ubah Nama</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='MM'>Batal</BUTTON></CENTER></TD></TR>"
NameFolder.Select
END SUB

SUB UL
ON ERROR RESUME NEXT
CALL InnerWindowSize(272,116)
ONSCR.InnerHTML="<TABLE HEIGHT='116px' WIDTH='272px' BGCOLOR='#FFFFFF'>"_
&"<TR><TD><CENTER><TEXT>Tulis password untuk membuka folder</TEXT><BR/><INPUT TYPE='PASSWORD' NAME='PasswordInput' SIZE='35'><P/>"_
&"<BUTTON TYPE='SUBMIT' STYLE='WIDTH:90px' ONCLICK='Unlock'>Buka</BUTTON> "_
&"<BUTTON STYLE='WIDTH:90px' ONCLICK='Self.Close'>Batal</BUTTON></CENTER></TD></TR>"
PasswordInput.Select
END SUB

SUB Unlock
ON ERROR RESUME NEXT
DIM PASS,UserPassword
PASS=PasswordInput.Value
IF (PASS)<>"" THEN
UserPassword=Decrypt(ObjFSO.OpenTextFile(PassFile,1,TRUE,TRUE).ReadLine)
IF NOT (PASS)=(UserPassword) THEN
MsgBox "Password salah !!!",16,"Folder Locker"
PasswordInput.Value=""
PasswordInput.Select
EXIT SUB
ELSE
IF ObjFSO.FolderExists(FolderName) THEN
MsgBox "Gagal membuka folder",48,"Folder Locker"
Self.Close
ELSE
ObjFSO.GetFolder(LockFolder).attributes=9
ObjFSO.MoveFolder(LockFolder),(FolderName)
MsgBox "Folder berhasil dibuka",64,"Folder Locker"
WshShell.Run("explorer.exe "&FolderName)
Self.Close
END IF
END IF
ELSE
MsgBox "Password kosong !!!",48,"Folder Locker"
PasswordInput.Select
EXIT SUB
END IF
END SUB
</SCRIPT>
</HTML>

7 Situs URL Shortener (Penyingkat URL)

Hmmm, malam yang sunyi sepi,,, daripada ane kesepian, mending ane posting tentang URL Shortener / Penyingkat URL yang semuanya udah ane coba, hihihihi (Curhat mode ON)...

Nahh, ini nehh 7 situs Penyingkat URL (URL Shortener) :

- goo.gl
- y.ahoo.it
- bit.ly
- adf.ly
- tinyurl.com
- is.gd
- v.gd

Tinggal agan/sist pilih aja salah satu, dan jangan lupa bagikan blog ane pake URL Shortener, biar ga panjang2, hahaha (Minta2 mode ON)...

NB: kalo ente belom paham maksud ane Klik Disini untuk memahami apa itu URL Shortener dan apa fungsinya, bagi yang kagak ngerti bahasa inggris Klik Disini, hahaha, sekian dan terima kasih udah mampir... :p :p :p

Friday, August 31, 2012

Make Folder Locker from HTA (HTML Application)

Previously I've talked about making a VBS folder locker, now I make a version of HTML Application (HTA), just copy code below into notepad and save it as "*.HTA" extension (ex."Locker.hta"), and then double click it and enjoy,,, if some problem found in my HTA, please fix it,,, if you run the HTA for first time, you'll asked to make new folder and new password...