Visual Basic Version bineinteles pentru Windows Private Sub cmdClear_Click() txtAscii.Text = "" txtNick.Text = "" End Sub Private Sub cmdCopy_Click() Clipboard.Clear Clipboard.SetText txtAscii.Text End Sub Private Sub cmdExit_Click() End End Sub Private Sub txtAscii_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Private Sub txtNick_Change() txtAscii.Text = txtNick.Text txtAscii.Text = Replace(txtAscii.Text, "a", "4") txtAscii.Text = Replace(txtAscii.Text, "A", "@") txtAscii.Text = Replace(txtAscii.Text, "b", "8") txtAscii.Text = Replace(txtAscii.Text, "B", "|3") txtAscii.Text = Replace(txtAscii.Text, "c", "