So recently, I've made a text encryption program (that actually works) recently called Cryptor.
It uses rand as a seed, and X for the randomizer. (but in this version, I've made the default randomizer to 150 so the user doesn't have to memorize two different numbers)
Code:
So far, what do you think of it? It's pretty simple, I'm sure you could shave about 100 bytes by getting rid of all the extras, but the program is pretty small.
What type of encryption is this? Is this effective and can be cracked easily?
I was thinking of making a username and password manager for monochrome and the color editions.
It uses rand as a seed, and X for the randomizer. (but in this version, I've made the default randomizer to 150 so the user doesn't have to memorize two different numbers)
Code:
"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789thetaalphabetagammadeltaepsilonlambdamupirhoSigmasigmatauPhiOmegaintegralxmarkplotsquareplotcrossplotdotsmallT^^3squareroot^^-1^^2|<^^o^^r^^T<=!=>=~|Esmall10uparrowdownarrow !?#%&'()*+,-./:;<\=>@\[]^_`{|}|~...$Áá âäéèêëÍÏíìîïóòôöúùûüçñ^^'^^`^^:[phat][recursiven]|u[|>]bolduparrowbolddownarrow|?|![xbar][ybar]^^x[<|]chi[|F][e]|L|Ninvertedequalmathprintbox ->Str3
Lbl M
ClrHome
Menu("Cryptor","Encrypt",1,"Decrypt",2,"Quit",Q
Lbl 2:~1
Goto 3
Lbl 1:1
Lbl 3:Ans->A
Input "Text=",Str0
ClrHome
length(Str0->Z:" ->Str1
"De
If A=1:"En
Repeat K=int(K) and K>0 and K<9999999999
Input Ans+"cryption Key=",K
End
K->rand:150->X:For(X,1,X:rand:End
ClrHome
"De
If A=1:"En
Disp Ans+"crypting..\.
length(Str3)-1->L
For(Y,1,Z
ArandInt(1,L)+inString(Str3,sub(Str0,Y,1
Ans+~AL(Ans>L or Ans<1
Str1+sub(Str3,Ans,1->Str1
End
sub(Ans,2,Z->Str0
ClrHome
"De
If A=1:"En
Disp Ans+"crypted [|>] Str0","Key=
Output(2,5,K
Output(4,1,Str0
Pause
Lbl Q
ClrHome:Return
So far, what do you think of it? It's pretty simple, I'm sure you could shave about 100 bytes by getting rid of all the extras, but the program is pretty small.
What type of encryption is this? Is this effective and can be cracked easily?
I was thinking of making a username and password manager for monochrome and the color editions.