Cara Membuat þro6rÂm ÃLÂý 6ÈÑÈràTör [Program Alay Generator]

• Teks Asli

Program Alay Generator - Created By AdityaReinaldo

• Hasil Program Alay Generator Hybrid

þro6rÂm ÃLÂý 6ÈÑÈràTör - CR3@7ÈÐ Bý aÐÎT¥áRëìnÂLÐô

• Hasil Program Alay Generator Huruf Angka

pr06r4M 4l4y 63n3r470R - cR3473d 8y 4d17y4r31n4Ld0

• Hasil Program Alay Generator Huruf Besar Kecil

prOGraM Alay GEnerAtOR - CreatED By ADItYArEiNALdo

• Buka notepad
• Copy kode di bawah ini, dan paste/letakan di notepad

dim tex,alaytex,mode,smode

on error resume next
tex=inputbox("Masukan tulisan yang mau dibikin ALAY" & vbcrlf & "Langsung tekan ENTER" & vbcrlf & "=-Created by AdityaReinaldo-=","Alay Generator - Created By AdityaReinaldo")
mode=inputbox("Pilih Mode Alay:" & vbcrlf & _
"1. Hÿßr1d" & vbcrlf & _
"2. Huruf-4n6k4" & vbcrlf & _
"3. BesAR kEciL" & vbcrlf & vbcrlf & _
"Tekan ENTER lagi","Alay Generator - Created By AdityaReinaldo",1)
If MsgBox("Apakah tulisannya mau disngkat sprti SMS?", vbQuestion + vbYesNo, "Alay Generator - Created By AdityaReinaldo") = 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" & vbcrlf & "=-Created by AdityaReinaldo-=","Alay Generator - Created By AdityaReinaldo",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

• Save dengan name Alay Text Generator.vbs , TAPI ganti Save as type, dengan mode All Files.
• Selesai, silahkan buka kembali yang sudah di save tadi. Taraaa.. 
• Selamat beralay-alay :D

• Facebook : ADITYAREINALDO.com
• Twitter : @AdityaReinaldo
• Atau tinggalkan komentar