I was reading the 2600 secrets page at binrev.com and I was inspired to write a small tool to encrypt/decrypt with ROT-13. The Encrypt/Decrypt Functions have been condensed into a single ROT function and I added the check for non-letter characters. Which means, just paste any text and the functrion will only Rot-13 the letters and nothing else. enjoy I guess, heres the Binary Downlaod link and source-code:

 

Binary Download:

 

http://hackrouter.pointclark.net/web/Proje...0v1%20Beta2.exe

 

 

source code:

Removed Old Beta2 code

 

okay, thanks to greeneyes for pointing out my stupid mistake, ive fixed the code a bit and recompiled to Beta3:

 

Download Beta3 here:

http://hackrouter.pointclark.net/web/Projects/ROT-13%20Tool%20v1%20Beta3.exe

 

Source Code:

Removed Old Beta3 Code

 

Again another stupid problem fixed, this should be working perfectly now, FINALLY!!! ok... anyway heres the last update (hopefully) of the ROT-13 tool until i add anything else or change stuff, normal posty below:

 

Binary Download:

 

http://hackrouter.pointclark.net/web/Projects/ROT-13%20Tool%20v1%20Beta4.exe

 

Source Code:

 

Option Explicit
Private Char  As String

Private Sub cmdDecrypt_Click()

   cmdEncrypt.Enabled = True
   cmdDecrypt.Enabled = False
   txtNormal.Locked = True
   txtNormal.BackColor = &HC0C0C0
   With txtROT13
       .Locked = False
       .BackColor = &H80000005
       .Text = vbNullString
       .SetFocus
   End With
   
End Sub

Private Sub cmdEncrypt_Click()

   cmdDecrypt.Enabled = True
   cmdEncrypt.Enabled = False
   txtROT13.Locked = True
   txtROT13.BackColor = &HC0C0C0
   With txtNormal
       .Locked = False
       .BackColor = &H80000005
       .Text = vbNullString
       .SetFocus
   End With
   
End Sub

Public Function rot(strInput As String)

Dim i As Integer

   For i = 1 To Len(strInput)
       Char = Asc(Mid$(strInput, i, 1))
       

       If Char >= 91 And Char <= 96 Then
           Mid$(strInput, i, 1) = Mid$(strInput, i, 1)
       ElseIf Char <= 64 Then
           Mid$(strInput, i, 1) = Mid$(strInput, i, 1)
       ElseIf Char >= 123 Then
           Mid$(strInput, i, 1) = Mid$(strInput, i, 1)
       ElseIf Char <= 65 And Char <= 77 Then
           Mid$(strInput, i, 1) = Chr$(Asc(Mid$(strInput, i, 1)) + 13)
       ElseIf Char >= 78 And Char <= 90 Then
           Mid$(strInput, i, 1) = Chr$(Asc(Mid$(strInput, i, 1)) - 13)
       ElseIf Char <= 109 Then
           Mid$(strInput, i, 1) = Chr$(Asc(Mid$(strInput, i, 1)) + 13)
       ElseIf Char >= 110 Then
           Mid$(strInput, i, 1) = Chr$(Asc(Mid$(strInput, i, 1)) - 13)
       End If
       
   Next i
   rot = strInput
   
End Function

Private Sub Form_Load()

   cmdDecrypt.Enabled = True
   cmdEncrypt.Enabled = False
   txtNormal.Locked = False
   txtNormal.BackColor = &H80000005
   txtROT13.Locked = True
   txtROT13.BackColor = &HC0C0C0
   
End Sub

Private Sub txtNormal_Change()

   txtROT13.Text = rot(txtNormal.Text)
   
End Sub

Private Sub txtROT13_Change()

   txtNormal.Text = rot(txtROT13.Text)
   
End Sub

are you going to be posting your homework assignment *every* week?

 

you could at least post something that works.. type the letter "m" for example and you will see

Lololol.

  greeneyes said:

are you going to be posting your homework assignment *every* week?

 

you could at least post something that works.. type the letter "m" for example and you will see

 

gah, lol, I must have fucked it when I added the checking for non-alphabet characters, oops. What do you meana bout homework assignment, lol I dont have any class. I was jsut readong a page on BinRev, heard something aobut ROT-13, looked it up on Wiki and decided Id try and amke one.

 

EDIT: Fixed and updated