1 ' One line BASIC Contest / 2021 TotO for CPC-POWER 2 ' (de)code you passwords by using the same phrase 3 ' '0-9', 'A-Z', 'a-Z', '-' and '.' chars are valid 4 ' I= Input, P= Phrase, O= Output 5 ' No check, you lost a million! 10 s$="1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-.":INPUT"I:",i$:i=LEN(i$):INPUT"P:",p$:p=LEN(p$):PRINT"O:";:b=1:FOR a=1 TO i: x=INSTR(s$,MID$(i$,a,1))-1:y=INSTR(s$,MID$(p$,b,1))-1:z=(x XOR y)+1:PRINT MID$(s$,z,1);:b=(b MOD p)+1:NEXT a