Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Let's have an encryption CHALLENGE!
#2
Code:
INPUT word$
PRINT x
Nobody can break it.
J/k
Is this good.

Code:
CLS

RANDOMIZE TIMER
ky = INT(RND * 1000)

DIM alpha$(27)
alpha$(1) = " "
al = 65
FOR a = 2 TO 27
alpha$(a) = CHR$(al)
al = al + 1
NEXT a

redo:
INPUT "d/e ", e$
SELECT CASE LEFT$(LCASE$(e$), 1)
CASE "d"
  GOTO decrypt
CASE "e"
  GOTO encrypt
CASE ELSE
  GOTO redo
END SELECT

encrypt:
INPUT word$
word$ = UCASE$(word$)
FOR i = 1 TO LEN(word$)
temp$ = MID$(word$, i, 1)
FOR a = 1 TO 27
  tmp = a
  IF temp$ = alpha$(a) THEN EXIT FOR
NEXT a
PRINT tmp * 2 * ky * i;
PRINT " ";
NEXT i
PRINT
PRINT "Key = "; ky
END

decrypt:
INPUT "Key ", ky$
ky = VAL(LTRIM$(ky$))
PRINT "Enter numbers 1 at a time. Enter q to print word"; ""
i = 1
DO
redon:
PRINT i; ", Enter number ";
INPUT "", n$
IF LCASE$(LEFT$(n$, 1)) = "q" THEN
PRINT word$
EXIT DO
ELSEIF VAL(n$) = 0 THEN
i = i + 1: GOTO redon
END IF
n = VAL(n$)
'IF n MOD 2 = 0 THEN
tmp = INT(n / i / ky / 2)
IF tmp > 27 THEN PRINT "Error": GOTO redon
word$ = word$ + alpha$(tmp)
i = i + 1
LOOP
END
[Image: sig.php]
Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.
Reply


Messages In This Thread
Let's have an encryption CHALLENGE! - by whitetiger0990 - 06-11-2003, 03:20 AM
Let's have an encryption CHALLENGE! - by relsoft - 06-11-2003, 08:16 AM
here it is - by Agamemnus - 06-11-2003, 08:34 AM
Let's have an encryption CHALLENGE! - by oracle - 06-11-2003, 12:46 PM
Let's have an encryption CHALLENGE! - by Neo - 06-11-2003, 03:02 PM
BASIC encryption - by Mango - 06-11-2003, 07:49 PM
Let's have an encryption CHALLENGE! - by oracle - 06-12-2003, 01:35 AM
key update - by Mango - 06-12-2003, 04:34 AM
Let's have an encryption CHALLENGE! - by oracle - 06-12-2003, 05:36 AM
My prog - by Meg - 06-12-2003, 04:50 PM
Let's have an encryption CHALLENGE! - by Mango - 06-12-2003, 06:39 PM
Let's have an encryption CHALLENGE! - by oracle - 06-16-2003, 01:38 AM
Let's have an encryption CHALLENGE! - by oracle - 06-16-2003, 01:23 PM
Let's have an encryption CHALLENGE! - by Neo - 06-16-2003, 02:53 PM
unknown, - by Agamemnus - 06-17-2003, 04:03 AM
. - by Meg - 06-18-2003, 10:37 AM
hmmm - by Agamemnus - 06-20-2003, 01:42 AM
Let's have an encryption CHALLENGE! - by oracle - 06-20-2003, 02:41 AM
Let's have an encryption CHALLENGE! - by barok - 06-20-2003, 05:28 AM
Let's have an encryption CHALLENGE! - by oracle - 06-20-2003, 09:34 AM
Let's have an encryption CHALLENGE! - by barok - 06-20-2003, 07:26 PM
Let's have an encryption CHALLENGE! - by oracle - 06-21-2003, 05:04 AM
i'll announce the winners in.... - by Agamemnus - 06-27-2003, 01:44 AM
Let's have an encryption CHALLENGE! - by oracle - 06-27-2003, 11:04 AM
Let's have an encryption CHALLENGE! - by oracle - 07-04-2003, 07:58 AM
well, - by Agamemnus - 07-09-2003, 05:10 AM
Let's have an encryption CHALLENGE! - by Blitz - 07-22-2003, 07:54 AM
Let's have an encryption CHALLENGE! - by na_th_an - 07-22-2003, 01:12 PM
Let's have an encryption CHALLENGE! - by Mango - 07-22-2003, 06:09 PM
Let's have an encryption CHALLENGE! - by Mango - 07-22-2003, 10:16 PM
Let's have an encryption CHALLENGE! - by oracle - 07-23-2003, 01:56 AM
Let's have an encryption CHALLENGE! - by Blitz - 07-23-2003, 03:30 AM
Let's have an encryption CHALLENGE! - by Blitz - 07-23-2003, 03:39 AM
Let's have an encryption CHALLENGE! - by oracle - 07-23-2003, 08:20 AM
Let's have an encryption CHALLENGE! - by Blitz - 07-23-2003, 10:20 AM
um. - by Meg - 07-23-2003, 11:20 AM
aga - by Meg - 07-24-2003, 02:39 AM
Let's have an encryption CHALLENGE! - by Blitz - 07-24-2003, 03:25 AM
yeah it prolly does - by Meg - 07-24-2003, 04:51 AM
well - by Meg - 07-24-2003, 06:32 AM
Let's have an encryption CHALLENGE! - by Phydaux - 07-24-2003, 06:23 PM
Let's have an encryption CHALLENGE! - by Blitz - 07-24-2003, 08:43 PM
Let's have an encryption CHALLENGE! - by Phydaux - 07-24-2003, 09:54 PM

Forum Jump:


Users browsing this thread: 2 Guest(s)