Encryption 需要BBC基本密码帮助吗

Encryption 需要BBC基本密码帮助吗,encryption,basic,Encryption,Basic,我正在做一个学校项目,在这个项目中,我需要制作一个“排序”的vigenere密码,用户在其中输入关键字和明文。然而,vigenere假设a=0,而我假设a=1,我已经为我的程序相应地改变了这一点。然而,我需要使我的密码同时适用于小写和大写,我如何才能使它也适用于小写,这可能是一个愚蠢的问题,但我在这一点上非常困惑,我是编程新手,谢谢 REM Variables plaintext$="" PRINT "Enter the text you would like to encrypt"

我正在做一个学校项目,在这个项目中,我需要制作一个“排序”的vigenere密码,用户在其中输入关键字和明文。然而,vigenere假设a=0,而我假设a=1,我已经为我的程序相应地改变了这一点。然而,我需要使我的密码同时适用于小写和大写,我如何才能使它也适用于小写,这可能是一个愚蠢的问题,但我在这一点上非常困惑,我是编程新手,谢谢

  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$)