4L4Y!

4LAY (baca: alay) adalah sebuah istilah yang merujuk pada sebuah fenomena perilaku remaja di Indonesia. "Alay" merupakan singkatan dari "anak layangan".Istilah ini merupakan stereotipe yang menggambarkan gaya hidup norak atau kampungan. Selain itu, alay merujuk pada gaya yang dianggap berlebihan dan selalu berusaha menarik perhatian. Seseorang yang dikategorikan alay umumnya memiliki perilaku unik dalam hal bahasa dan gaya hidup. Dalam gaya bahasa, terutama bahasa tulis, alay merujuk pada kesenangan remaja menggabungkan huruf besar-huruf kecil, menggabungkan huruf dengan angka dan simbol, atau menyingkat secara berlebihan. Di Filipina terdapat fenomena yang mirip, sering disebut sebagai Jejemon.

k4mu peNG3n i5EN6 jAd1 al4y t4P1 b1n6Un6 6im4na C4ra Nuli5 4l4 4l4y? c0B4 k4MU5 y4ng 5aTu 1n1!

Masukan Text :

Hasil Text Alay :

BeSaR keCil P4k3 4n9k4 Disngkt

 

AtÃú MùN6KïÑ kàmû måú 8íK1Ñ äLäý têxT 6éNéRaTòR ûntûk Ðé5k7ôP käMµ 7ÂNP HàRú§ ôNlïné? ßê9ÎÑí çåråÑYÃ....
PêrTåmá, 5Âl¡Ñ ÐùLú køÐë ÐÎ báWåH ìnï:

dim tex,alaytex,mode,smode

on error resume next
tex=inputbox("Masukan tulisan yang 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

KëÐü@, þà5T£ Ðï nõTêþåÐ, KëmúÐíÂN §àVÈ ÐÈÑ6åÑ Fórmå7 vBS, t4þÎ 6åÑtï ÐUlü SåVÈ àS T¥Pê, ÐÈÑ6ÂN MøУ Ãll FÎléS.
SëLéSá¡, KëmûÐíäN tûtúP låLû ßûk k£MbåL!.

Sumber 1
Sumber 2
Sumber 3