Scipt Generate Teks Alay

Unknown | 17.08 |

Ini Adalah Kode / Script Generate Teks Alay :

<html>
<head>
<title>Alay</title>
</head>
<body>
<center>
<script type="text/javascript">
<!--
function HumanToABG(form){
var abgteks="";
var stemp;
var i,j;
var acak;
var aseli=form.aseli.value;
var TabelHuruf="AEGIOSZ";
var TabelAngka="4361052";
var TabelVokal="AIUEO";
if(aseli.length)
{
if(form.pilihan[0].checked==true)
{
for(i=0;i<aseli.length;i++)
{
acak = Math.round(2*Math.random())
if(acak)
abgteks=abgteks+aseli.charAt(i).toLowerCase();
else
abgteks=abgteks+aseli.charAt(i).toUpperCase();
}
}
else
abgteks=aseli;
var terganti=0;
stemp="";
if(form.pilihan[1].checked==true)
{
for(i=0;i<aseli.length;i++)
{
acak=Math.round(2*Math.random())
terganti=0;
if(acak)
{
for(j=0;j<TabelHuruf.length;j++)
{
if(abgteks.charAt(i).toUpperCase()==TabelHuruf.charAt(j))
{
stemp=stemp+TabelAngka.charAt(j);
terganti=1;
break;
}
}
}
if(terganti==0)
stemp=stemp+abgteks.charAt(i);
}
abgteks=stemp;
}
stemp="";
if(form.pilihan[2].checked==true)
{
for(i=0;i<aseli.length;i++)
{
acak=Math.round(2*Math.random())
terganti=0;
if(acak)
{
for(j=0;j<TabelVokal.length;j++)
{
if(aseli.charAt(i).toUpperCase()==TabelVokal.charAt(j))
{
if((aseli.charAt(i-1)!=" ")&&(i>0))
{
terganti=1;
}
break;
}
}
}
if(terganti==0)
stemp=stemp+abgteks.charAt(i);
}
abgteks=stemp;
}
form.abg.value=abgteks;
}
else
{
form.abg.value="Anda belum memasukan text";
}
}
// -->
</script>
<form action="ABG_Text.html">
<center>
Masukan Text : <br>
<textarea name="aseli" cols="45" rows="7"></textarea><br>
Hasil Text Alay :<br>
<textarea name="abg" cols="45" rows="7"></textarea><br>
<INPUT type="checkbox" name="pilihan"> BeSaR keCil
<INPUT type="checkbox" name="pilihan"> P4k3 4n9k4
<INPUT type="checkbox" name="pilihan"> Disngkt <br>
<input type="button" onclick="HumanToABG(this.form)" value="Generate"></input
</center>
</form>
</body>
</html>





Postingan yang Bersenggama



Comments
0 Comments

0 komentar :

Posting Komentar