The Bat Encoder

Printable View

Aug 22nd, 2000, 02:55 PM
dimava

I MADE THE BAT ENCODER, ITS A EXE, YOU JUST CLICK ON THE LETTERS AND IT ENCODES THEM INTO A TEXT BOX BELOW. GIVE ME YOUR EMAIL AND I WILL EMAIL IT TO YOU, its 44kb
Aug 22nd, 2000, 03:03 PM
dimava

here is a website:

http://www.angelfire.com/ri/dimava/bat_encoder.exe
Aug 22nd, 2000, 03:09 PM

Here is the code to the Bat Encoder..sorry Batman, but everyone needs to know the Bat source code to the Bat encoder to keep Bat Enemies out ;).

Code:

Function ChrCode(Txt As String) As String On Error Resume Next For X = 1 To Len(Txt$) outstring$ = outstring$ + "Chr$(" + CStr(Asc(Mid(Txt$, X, 1))) + ") & " Next X outstring$ = Trim(outstring$) outstring$ = Mid(outstring$, 1, Len(outstring$) - 2) ChrCode = outstring$ End Function Usage: 'Requirements: Two text boxes and a Command Button Private Sub Text1_Change() X = ChrCode(Text1) Text2.Text = "" & X & "" End Sub 'Input: Text1 'Output: Text2
Aug 22nd, 2000, 03:12 PM
dimava

acctually I made it in a diffrent way
Aug 22nd, 2000, 04:03 PM

I see. Yours is pretty nice as well. Mine is typing, yours is with the click of a mouse ;]. Very nice Dimava :).
Aug 22nd, 2000, 04:06 PM
dimava

thanks
Aug 22nd, 2000, 04:11 PM
parksie

MsgBox chr(87) & chr(72) & chr(65) & chr(84) & chr(32) & chr(73) & chr(83) & chr(32) & chr(84) & chr(72) & chr(69) & chr(32) & chr(68) & chr(73) & chr(70) & chr(70) & chr(69) & chr(82) & chr(69) & chr(78) & chr(67) & chr(69) & chr(32) & chr(66) & chr(69) & chr(84) & chr(87) & chr(69) & chr(69) & chr(78) & chr(32) & chr(84) & chr(72) & chr(69) & chr(32) & chr(84) & chr(87) & chr(79) & chr(32) & chr(77) & chr(69) & chr(84) & chr(72) & chr(79) & chr(68) & chr(83) & chr(32) & chr(32) & chr(32) & chr(73) & chr(32) & chr(80) & chr(82) & chr(69) & chr(70) & chr(69) & chr(82) & chr(32) & chr(77) & chr(65) & chr(84) & chr(84) & chr(72) & chr(69) & chr(87) & chr(83) & chr(68) & chr(73) & chr(77) & chr(65) & chr(86) & chr(65) & chr(83) & chr(32) & chr(73) & chr(83) & chr(32) & chr(86) & chr(69) & chr(82) & chr(89) & chr(32) & chr(79) & chr(82) & chr(73) & chr(71) & chr(73) & chr(78) & chr(65) & chr(76) & chr(32) & chr(84) & chr(72) & chr(79) & chr(85)
Aug 22nd, 2000, 04:49 PM
dimava

MsgBox Chr(72) & Chr(69) & Chr(76) & Chr(76) & Chr(79) & Chr(32) & Chr(70) & Chr(69) & Chr(76) & _
Chr(76) & Chr(79) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(32) & Chr(80) & Chr(69) & Chr(79) & Chr(80) & Chr(76) & Chr(69) & Chr(32) & Chr(73) & Chr(32) & Chr(74) & Chr(85) & Chr(83) & Chr(84) & Chr(32) & Chr(87) & Chr(65) & Chr(78) & Chr(84) & Chr(69) & Chr(68) & Chr(32) & Chr(84) & Chr(79) & Chr(32) & Chr(84) & Chr(69) & Chr(76) & Chr(76) & Chr(32) & Chr(89) & Chr(79) & Chr(85) & Chr(32) & Chr(65) & Chr(76) & Chr(76) & Chr(32) & Chr(84) & Chr(72) & Chr(65) & Chr(84) & Chr(32) & Chr(73) & Chr(32) & Chr(65) & Chr(77) & Chr(32) & Chr(84) & Chr(72) & Chr(69) & Chr(32) & Chr(82) & Chr(69) & Chr(65) & Chr(76) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(77) & Chr(65) & Chr(78) & Chr(32) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(65) & Chr(76) & Chr(76) & Chr(32) & Chr(89) & Chr(79) & Chr(85) & Chr(32) & Chr(79) & Chr(84) & Chr(72) & Chr(69) & Chr(82) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(77) & Chr(65) & _
Chr(78) & Chr(32) & Chr(65) & Chr(82) & Chr(69) & Chr(32) & Chr(74) & Chr(85) & Chr(83) & Chr(84) & Chr(32) & Chr(73) & Chr(77) & Chr(73) & Chr(84) & Chr(65) & Chr(84) & Chr(73) & Chr(78) & Chr(71) & Chr(32) & Chr(83) & Chr(79) & Chr(32) & Chr(87) & Chr(79) & Chr(85) & Chr(78) & Chr(84) & Chr(32) & Chr(84) & Chr(72) & Chr(82) & Chr(32) & Chr(82) & Chr(69) & Chr(65) & Chr(76) & Chr(32) & Chr(66) & Chr(65) & Chr(84) & Chr(77) & Chr(65) & Chr(78) & Chr(32) & Chr(80) & Chr(76) & Chr(69) & Chr(65) & Chr(83) & Chr(69) & Chr(32) & Chr(83) & Chr(84) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(85) & Chr(80) & Chr(32) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(80) & Chr(85) & Chr(84) & Chr(32) & Chr(84) & Chr(72) & Chr(69) & Chr(32) & Chr(70) & Chr(73) & Chr(78) & Chr(71) & Chr(69) & Chr(82) & Chr(83) & Chr(32) & Chr(79) & Chr(78) & Chr(32) & Chr(69) & Chr(65) & Chr(67) & Chr(72) & Chr(32) & Chr(72) & Chr(65) & Chr(78) & Chr(68) & Chr(32) & Chr(85) & Chr(80) & Chr(32) & Chr(65) & Chr(78) & Chr(68) & _
Chr(32) & Chr(66) & Chr(69) & Chr(32) & Chr(80) & Chr(82) & Chr(79) & Chr(85) & Chr(68) & Chr(32) & Chr(46) & Chr(46) & Chr(46)
Aug 22nd, 2000, 04:49 PM

parksie, the difference:

Dimava has it so like when you click the button:

Text1.text = Chr(#)

I have it so that when you type, it will convert it.
Dimava did each one singley.
Whereas the code I gave, took less time :).

But I do like the design of Dimava's program.
Aug 22nd, 2000, 04:51 PM
dimava

acctually I did text1.text = text1.text& chr()

here is my whole source:

Code:

Private Sub Command1_Click() End Sub Private Sub cmdA_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(65)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(65)" End If End Sub Private Sub cmdB_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(66)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(66)" End If End Sub Private Sub cmdC_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(67)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(67)" End If End Sub Private Sub cmdD_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(68)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(68)" End If End Sub Private Sub cmdE_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(69)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(69)" End If End Sub Private Sub cmdF_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(70)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(70)" End If End Sub Private Sub cmdG_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(71)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(71)" End If End Sub Private Sub cmdH_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(72)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(72)" End If End Sub Private Sub cmdI_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(73)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(73)" End If End Sub Private Sub cmdJ_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(74)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(74)" End If End Sub Private Sub cmdK_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(75)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(75)" End If End Sub Private Sub cmdL_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(76)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(76)" End If End Sub Private Sub cmdM_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(77)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(77)" End If End Sub Private Sub cmdN_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(78)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(78)" End If End Sub Private Sub cmdO_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(79)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(79)" End If End Sub Private Sub cmdP_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(80)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(80)" End If End Sub Private Sub cmdQ_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(81)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(81)" End If End Sub Private Sub cmdR_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(82)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(82)" End If End Sub Private Sub cmdS_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(83)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(83)" End If End Sub Private Sub cmdSpace_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(32)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(32)" End If End Sub Private Sub cmdT_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(84)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(84)" End If End Sub Private Sub cmdU_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(85)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(85)" End If End Sub Private Sub cmdV_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(86)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(86)" End If End Sub Private Sub cmdW_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(87)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(87)" End If End Sub Private Sub cmdX_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(88)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(88)" End If End Sub Private Sub cmdY_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(89)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(89)" End If End Sub Private Sub cmdZ_Click() If Text1.Text = "" Then Text1.Text = Text1.Text & "chr(90)" Else: Text1.Text = Text1.Text & " " & "&" & " " & "chr(90)" End If End Sub Private Sub Form_Load() End Sub
Aug 22nd, 2000, 04:51 PM
parksie

<heh>

Oh yeah...I missed that one. It is a nice original design, though.
Aug 22nd, 2000, 04:55 PM
parksie

Did you write all that out or use a small VB program to generate it?
Aug 22nd, 2000, 05:04 PM
Sam Finch

you realise if you'd used a control array you could have done that in 3 lines of code. :D
Aug 22nd, 2000, 05:07 PM
dimava

I did COPY PASTE PASTE PASTE then I just changed the numbers. Yea I know I could have done it in less but I dont know how but any ways, as long as it works, its fine with me