Encryption Utility

[oracle]

he said variables.......

What do you think "a = ..." is then?

[Ruudboy]

sorry about being unclear and oracle how do you understand what is say

is this person a true telepath?

[oracle]

Nope, just a good reader

Did what we post help you?

[Agamemnus]

Because he said change whole variables into numbers in the alphabet, I assumed he meant a = CHR$(456)........ I guess I was wrong....

[Ruudboy]

not really because i couldn't find the post you refered me to

[joey7643]

I believe he is talking about this post:

http://forum.qbasicnews.com/viewtopic.ph...encryption

[Joakim]

Speaking of encryption, beat this:
a^lam+ ua^ala au!u +y6!a ua^as x!s a^!-j jno-j aajy+ om+
+! mau>| hpeajle noh uwep



Hint: It does not take a computer to break this.

[Moneo]

GDM,
I still don't know what you mean or want.
*****

[Ruudboy]

oracle has already exactly said what i wanted in clearer terms

[Sterling Christensen]

Ok, here's some code to illustrate how you might do it. It's totally unoptimized for clarity. You could speed it up by make integer comparisons of ascii values rather than string comparisons.

Code:

DEFINT A-Z

LINE INPUT "Type in a string", a$

PRINT "Now, I'll encode it into numbers: ";

FOR i = 1 TO LEN(a$)
  
   character$ = MID$(a$, i, 1)

   SELECT CASE character$

   CASE "A" TO "Z"
      number = ASC(character$) - ASC("A") + 1

   CASE "a" TO "z"
      number = ASC(character$) - ASC("a") + 1

   CASE " "
      number = 0

   CASE ELSE
      ' replace this with something more reasonable, I have
      ' no idea what you want it to do in this case.
      BEEP: BEEP: BEEP
      COLOR 15, 1
      CLS
      PRINT "FATAL UNRECOVERABLE ERROR!!!"
      PRINT character$; " isn't a letter or a space! What am I supposed to do with it?!?!"
      BEEP: BEEP: BEEP
      END

   END SELECT

   PRINT number;

NEXT i

PRINT