Encryption 需要BBC基本密码帮助吗
我正在做一个学校项目,在这个项目中,我需要制作一个“排序”的vigenere密码,用户在其中输入关键字和明文。然而,vigenere假设a=0,而我假设a=1,我已经为我的程序相应地改变了这一点。然而,我需要使我的密码同时适用于小写和大写,我如何才能使它也适用于小写,这可能是一个愚蠢的问题,但我在这一点上非常困惑,我是编程新手,谢谢Encryption 需要BBC基本密码帮助吗,encryption,basic,Encryption,Basic,我正在做一个学校项目,在这个项目中,我需要制作一个“排序”的vigenere密码,用户在其中输入关键字和明文。然而,vigenere假设a=0,而我假设a=1,我已经为我的程序相应地改变了这一点。然而,我需要使我的密码同时适用于小写和大写,我如何才能使它也适用于小写,这可能是一个愚蠢的问题,但我在这一点上非常困惑,我是编程新手,谢谢 REM Variables plaintext$="" PRINT "Enter the text you would like to encrypt"
REM Variables
plaintext$=""
PRINT "Enter the text you would like to encrypt"
INPUT plaintext$
keyword$=""
PRINT "Enter the keyword you wish to use"
INPUT keyword$
encrypted$= FNencrypt(plaintext$, keyword$)
REM PRINTING OUTPUTS
PRINT "Key = " keyword$
PRINT "Plaintext = " plaintext$
PRINT "Encrypted = " encrypted$
PRINT "Decrypted = " FNdecrypt(encrypted$, keyword$)
END
DEF FNencrypt(plain$, keyword$)
LOCAL i%, offset%, Ascii%, output$
FOR i% = 1 TO LEN(plain$)
Ascii% = ASCMID$(plain$, i%)
IF Ascii% >= 65 IF Ascii% <= 90 THEN
output$ += CHR$((66 + (Ascii% + ASCMID$(keyword$, offset%+1)) MOD 26))
ENDIF
offset% = (offset% + 1) MOD LEN(keyword$)
NEXT
= output$
DEF FNdecrypt(encrypted$, keyword$)
LOCAL i%, offset%, n%, o$
FOR i% = 1 TO LEN(encrypted$)
n% = ASCMID$(encrypted$, i%)
o$ += CHR$(64 + (n% + 26 - ASCMID$(keyword$, offset%+1)) MOD 26)
offset% = (offset% + 1) MOD LEN(keyword$)
NEXT
= output$
REM变量
纯文本$=“”
打印“输入要加密的文本”
输入明文$
关键字$=“”
打印“输入要使用的关键字”
输入关键字$
加密$=FNencrypt(明文$,关键字$)
REM打印输出
打印“Key=”关键字$
打印“明文=”明文$
打印“加密的”$
打印“Decrypted=”fnecrypt(加密$,关键字$)
结束
DEF FNencrypt(普通$,关键字$)
本地i%,偏移量%,Ascii%,输出$
对于i%=1到LEN(普通美元)
Ascii%=ASCMID$(普通$,i%)
如果Ascii%>=65,如果Ascii%,则始终可以从大写字母转换为小写字母,并且Stringlib库包含一个用于此操作的函数
首先在程序顶部导入stringlib:
import @lib$+"stringlib"
然后使用以下命令转换字符串:
plaintext$ = fn_lower(plaintext$)