Membuat Progam ALAY Generator

Hai Sobat … :ngedije

Membuat Progam ALAY Generator- sobat mungkin tau apa itu alay kan? dan apakah sobat juga penasaran untuk mempelajari bahasa ALAY? yang mungkin badan Intelejen seperti FBI & CIA sekali pun sangat sulit untuk menterjemahkan jenis bahasa ini :ngakak

wkwkwk. oke, untuk mempermudah sobat untuk mempelajari bahasa ini oleh karena itu saya akan membagikan progam dan cara membuat progam tersebut yang berfungsi untuk mempermudah men-GENERATE dari bahasa normal (Indonesia) ke bahasa 4lay tentunya :wawa

.
ada dua versi dalam pembuatan progam ini yang pertama menggunakan .VBS (dengan sangat mudah) dan yang kedua menggunakan progam Visual Basic (VB).

Cara Membuat Progam ALAY Generator dengan .VBS :

1. Buka Notepad kalian
2. copy dan pastekan Source Code dibawah ini dan save dengan format .vbs (misal : alay.vbs)

Source code

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;P
 
p;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

Untuk Demo tampilan progamnya akan seperti gambar dibawah ini :

Hasil Generate-nya akan muncul seperti ini :

Teks Asli

Alay Generator

Hasil Program Alay Generator Hybrid

ÃLÂý 6ÈÑÈràTör

Hasil Program Alay Generator Huruf Angka

4l4y 63n3r470R

Hasil Program Alay Generator Huruf Besar Kecil

Alay GEnerAtOR

Cara Membuat Progam ALAY Generator Dengan VB 6 :

1. Download Source Code yang sudah jadi tersebut
2. extract semua file yang ada didalamnya
3. klik project1 maka akan keluar tampilan Visual Basicnya dan klik file => make Project1.exe
Demo tampilan Progam ALAY Generator dengan VB :