06-16-2003, 02:53 PM
Well then, anyone broke mine yet?
8)
Code:
FUNCTION KT.ENC.DifCipher$(ToCipher AS STRING, Frequency AS INTEGER)
'a completely new ciphering method -> Dif Ciphering
'by Neo Deus Ex Machina
'I thought of this ciphering, it's completely new ;) lol
'It uses the difference with a sequent character from the base character
freqnow = Frequency
basechar$ = ""
ans$ = ""
FOR i = 1 TO LEN(ToCipher)
IF freqnow = Frequency THEN
freqnow = 1
basechar$ = MID$(ToCipher, i, 1)
ans$ = ans$ + basechar$
ELSE
freqnow = freqnow + 1
NewChar$ = MID$(ToCipher, i, 1)
dif% = ASC(NewChar$) - ASC(basechar$)
IF dif% >= 0 THEN
ans$ = ans$ + CHR$(dif%)
ELSE
ans$ = ans$ + CHR$(256 + dif%)
END IF
END IF
NEXT i
KT.ENC.DifCipher$ = ans$
END FUNCTION
8)