Solved

Cipher, Beginners Question

Posted on 1998-10-13
5
257 Views
Last Modified: 2010-04-30
Ok, I have code here that Will have a INputbox pop up and Ask you to enter a word to Cipher, the Only problem is it goes one word at a time.  I want to be able to Cipher a complete word rather than one word at a time, It's a basic Question, I'm only a newbie.

Private Sub cmdCipher_Click()
   Dim Letter as String
   Letter = Inputbox("Enter a Word To cipher")
   Label1.Caption = Label1.Caption & Letter
   Label2.Caption = Label2.Caption & Chrs$(Asc(Letter) + 3)
End Sub


Thanks in advance
0
Comment
Question by:infiniteloop
5 Comments
 
LVL 4

Accepted Solution

by:
mcix earned 10 total points
ID: 1439803
Private Sub Command1_Click()
    Dim mstrNewWord As String
    Dim mstrOldWord  As String
    mstrOldWord = InputBox("Enter a Word To cipher")
    mstrNewWord = Cipher(mstrOldWord)
   
End Sub

Public Function Cipher(vstrInWord As String) As String

    Dim mintCurrentPosition As Integer
    Dim mstrTempWord As String
    Dim mstrCurrentCharacter As String
    For mintCurrentPosition = 1 To Len(vstrInWord)
   
        mstrCurrentCharacter = Mid$(vstrInWord, mintCurrentPosition, 1)
        mstrTempWord = mstrTempWord & Chr$(Asc(mstrCurrentCharacter) + 3)
       
    Next
    Cipher = mstrTempWord

End Function
0
 
LVL 1

Expert Comment

by:cvidler
ID: 1439804
Try this code:

Text$ = InputBox$("Enter text to cipher:")
Label1.Caption = Text$
Temp$ = ""    'Clear Temp to prevent problems, extra characters
For i% = 1 to Len(Text$)       'Loop through all characters
   Temp$ = Temp$ + Chr$(Asc(Mid$(Text$, i%, 1)) + 3)
Next i%

This should work nicely.
0
 
LVL 12

Expert Comment

by:mark2150
ID: 1439805
Try putting:

Phrase = Msgbox("Enter phrase to cipher:")
Label1.Caption = ""
Label2.Caption = ""
FOR ndx = 1 TO LEN( Phrase )
    Letter = MID( Phrase, ndx, 1 )
    Label1.Caption = Label1.Caption & Letter
    Label2.Caption = Label2.Caption & CHR( ASC( Letter ) + 3 )
NEXT ndx

Let me know what grade you get on your homework...

M

0
 
LVL 1

Author Comment

by:infiniteloop
ID: 1439806
Damn That was QUICK!!!!!!!!,

Thanks
0
 
LVL 1

Author Comment

by:infiniteloop
ID: 1439807
Homework eh!! =)


0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now