TheGameCreators - CodeBase - Password encryptor

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 10th Apr 2005 10:49

Modified: 10th Apr 2005 11:04

Author: thread surfer

Summary

This will encrypt your passwords into qwerty language

Full Description

This will encrypt your passwords into "qwerty language", basically a=q, b=w and so on, you can encrypt numbers and letters, you cannot encrypt spaces or special characters.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`tell the users what to do

Print "Press space to begin"

`wait for the space key to be pressed

IF SPACEKEY()=1 THEN GOTO encrypt

LOOP

encrypt:

`clear the screen

cls

`ask the user to input what they want to encrypt

input "What is your password?>",a$

d=LEN(a$)

`the amazing QWERTY code

FOR i= 1 TO d

b$=LEFT$(a$, i)

c$=RIGHT$(b$, 1)

IF c$="a" THEN PRINT "char";i;" = q"

IF c$="b" THEN PRINT "char";i;" = w"

IF c$="c" THEN PRINT "char";i;" = e"

IF c$="d" THEN PRINT "char";i;" = r"

IF c$="e" THEN PRINT "char";i;" = t"

IF c$="f" THEN PRINT "char";i;" = y"

IF c$="g" THEN PRINT "char";i;" = u"

IF c$="h" THEN PRINT "char";i;" = i"

IF c$="i" THEN PRINT "char";i;" = o"

IF c$="j" THEN PRINT "char";i;" = p"

IF c$="k" THEN PRINT "char";i;" = a"

IF c$="l" THEN PRINT "char";i;" = s"

IF c$="m" THEN PRINT "char";i;" = d"

IF c$="n" THEN PRINT "char";i;" = f"

IF c$="o" THEN PRINT "char";i;" = g"

IF c$="p" THEN PRINT "char";i;" = h"

IF c$="q" THEN PRINT "char";i;" = j"

IF c$="r" THEN PRINT "char";i;" = k"

IF c$="s" THEN PRINT "char";i;" = l"

IF c$="t" THEN PRINT "char";i;" = z"

IF c$="u" THEN PRINT "char";i;" = x"

IF c$="v" THEN PRINT "char";i;" = c"

IF c$="w" THEN PRINT "char";i;" = v"

IF c$="x" THEN PRINT "char";i;" = b"

IF c$="y" THEN PRINT "char";i;" = n"

IF c$="z" THEN PRINT "char";i;" = m"

IF c$="1" THEN PRINT "char";i;" = 0"

IF c$="2" THEN PRINT "char";i;" = 9"

IF c$="3" THEN PRINT "char";i;" = 8"

IF c$="4" THEN PRINT "char";i;" = 7"

IF c$="5" THEN PRINT "char";i;" = 6"

IF c$="6" THEN PRINT "char";i;" = 5"

IF c$="7" THEN PRINT "char";i;" = 4"

IF c$="8" THEN PRINT "char";i;" = 3"

IF c$="9" THEN PRINT "char";i;" = 2"

IF c$="0" THEN PRINT "char";i;" = 1"

NEXT i

`THE END

IF ESCAPEKEY()=1 THEN END

LOOP

Download

Please login to download

Comments

No comments yet.

Author Name:	thread surfer
CodeBase Entries:	2

CodeBase - Password encryptor