Cara Membuat ALAY generator

• Buka aplikasi Notepad dengan mengaksesnya pada menu Start >Run > ketikkan Notepad > dan tekan Enter
• Selanjutnya copy-paste skrip dibawah ini pada Notepad anda

Quote

on error resume next
tex=inputbox("Masukan tulisan yg mau dibikin ALAY" & vbcrlf & "Langsung tekan ENTER","ALAY GENERATOR")
mode=inputbox("Pilih Mode Alay:" & vbcrlf & _
"1. Hÿßr1d" & vbcrlf & _
"2. Huruf-4n6k4" & vbcrlf & _
"3. bIaSA" & vbcrlf & vbcrlf & _
"Tekan ENTER lagi..","ALAY GENERATOR",1)
If MsgBox("Apakah tulisannya mau disngkat sprti SMS?", vbQuestion + vbYesNo, "ALAY GENERATOR") = vbYes Then smode=1
tex=Alay(tex,mode,smode)
msgbox "TARAAA.., Inilah hasilnya:" & vbcrlf & vbcrlf & tex, vbInformation, "ALAY GENERATOR"
alaytex=inputbox("Inilah tulisan ALAYnya ^_^" & vbcrlf & "Silakan di-copy-paste dan tekan ENTER untuk menutupnya","ALAY GENERATOR",tex)
Function Alay(Str,AlayMode,SMSMode)
Dim s, h, i
Dim AlayChars,VoChars
Randomize
If SMSMode = 1 Then
VoChars = "aiueo"
For i = 1 To Len(VoChars)
If CInt(Rnd * 2) = 0 Then
Str = Replace(Str, Mid(VoChars, i, 1), "", 1, -1, vbTextCompare)
End If
Next
End If
Select Case AlayMode
Case 1: AlayChars = Split("aàáÂÃäåAàáÂÃäå@4;bBß8;cçCç¢;Ð;ÈéêëÈéêë£3;gG69;iìíÎïIìíÎï¡!1;" & _
"nÑNÑ;oòóôõöøOòóôõöø0;pPþþ;s$S§5;tT7;uùúûüUùúûüµ;" & _
"×xX;yýÿYý¥;z2Z", ";", -1, vbTextCompare)
Case 2: AlayChars = Split("4;8;c;d;3;69;1;n;0;p;5;7;u;x;y;2", ";", -1, vbTextCompare)
Case 3: AlayChars = Split("Aa;Bb;Cc;Dd;Ee;Gg;Ii;Nn;Oo;Pp;Ss;Tt;Uu;Xx;Yy;Zz", ";", -1, vbTextCompare)
End Select
Str = LCase(Str)
For i = 1 To Len(Str)
s = Mid(Str, i, 1)
Select Case s
Case "a": s = AlayChars(0)
Case "b": s = AlayChars(1)
Case "c": s = AlayChars(2)
Case "d": s = AlayChars(3)
Case "e": s = AlayChars(4)
Case "g": s = AlayChars(5)
Case "i": s = AlayChars(6)
Case "n": s = AlayChars(7)
Case "o": s = AlayChars(8)
Case "p": s = AlayChars(9)
Case "s": s = AlayChars(10)
Case "t": s = AlayChars(11)
Case "u": s = AlayChars(12)
Case "x": s = AlayChars(13)
Case "y": s = AlayChars(14)
Case "z": s = AlayChars(15)
Case Else: If CInt(Rnd * 1) = 0 Then s = UCase(s)
End Select
h = h & Mid(s, CInt(Rnd * (Len(s) - 1)) + 1, 1)
Next
Alay = h
End Function

• Setelah itu tekan Ctrl+S pada keyboard, pilih lokasinya, beri namaAlayGenerator.vbs, dan Save as type: All files, kemudian klik tombol Save.
• Sekarang anda tinggal menggunakannya, coba jalankan (double-klik) file vbs yg sudah jadi dan ikuti petunjuknya, mudah bukan

sumber : N3

Selamat Menggunakan....??