Skip to main content
Code Golf

Return to Answer

added 44 characters in body
Source Link
Doorknob
Doorknob
  • 71.7k
  • 20
  • 143
  • 385

TiTI-basicBasic (the laugelanguage that runs on tiTI-83 graphing calculators) if you know this language convert to a normal luangege like JAVA
:ClrHome
:" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted
:Ans+Ans+Ans->Str1
:Menu("crippter","encript",1,"decript",2
:Lbl 2
:1->C
:Lbl 1
:if not(C)
:Imput ">",Str2
:if C
:Imput "<",Str2
:length(Str2)->D
:lenght(Str1)/3->E
:if not(C)
:Then
:randInt(1,E)->B
:sub(Str1,B,1)->Str3
:Else
:inString(Str1,sub(Str2,1,1),1)->B
":"->Str3
:For(X,1+C,D
:inString(Str1,sub(Str2,X,1)->A
:if not(C
:A+E-B-X->A
:if C
:A+B+X-1->A
:Str3+sub(Str1,A,1)->Str3
:End
:if C
:sub(Str3,2,D-1)->Str3
:Pause Str3
:Goto A

:ClrHome  
:" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted  
:Ans+Ans+Ans->Str1  
:Menu("crippter","encript",1,"decript",2  
:Lbl 2  
:1->C  
:Lbl 1  
:if not(C)  
:Imput ">",Str2  
:if C  
:Imput "<",Str2  
:length(Str2)->D  
:lenght(Str1)/3->E  
:if not(C)  
:Then  
:randInt(1,E)->B  
:sub(Str1,B,1)->Str3  
:Else  
:inString(Str1,sub(Str2,1,1),1)->B  
":"->Str3  
:For(X,1+C,D  
:inString(Str1,sub(Str2,X,1)->A  
:if not(C  
:A+E-B-X->A  
:if C  
:A+B+X-1->A  
:Str3+sub(Str1,A,1)->Str3  
:End  
:if C  
:sub(Str3,2,D-1)->Str3  
:Pause Str3  
:Goto A

Ps thisThis is some nice encryption software (for a tiTI-83)
Pps by. By ti-83 I mean any calculator in the ti-83 or ti-84 family
Ppps. "->" means "STORE" accessed by "STO>"

Ti-basic (the lauge that runs on ti-83 graphing calculators) if you know this language convert to a normal luangege like JAVA
:ClrHome
:" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted
:Ans+Ans+Ans->Str1
:Menu("crippter","encript",1,"decript",2
:Lbl 2
:1->C
:Lbl 1
:if not(C)
:Imput ">",Str2
:if C
:Imput "<",Str2
:length(Str2)->D
:lenght(Str1)/3->E
:if not(C)
:Then
:randInt(1,E)->B
:sub(Str1,B,1)->Str3
:Else
:inString(Str1,sub(Str2,1,1),1)->B
":"->Str3
:For(X,1+C,D
:inString(Str1,sub(Str2,X,1)->A
:if not(C
:A+E-B-X->A
:if C
:A+B+X-1->A
:Str3+sub(Str1,A,1)->Str3
:End
:if C
:sub(Str3,2,D-1)->Str3
:Pause Str3
:Goto A

Ps this is some nice encryption software (for a ti-83)
Pps by ti-83 I mean any calculator in the ti-83 or ti-84 family
Ppps "->" means "STORE" accessed by "STO>"

TI-Basic (the language that runs on TI-83 graphing calculators)

:ClrHome  
:" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted  
:Ans+Ans+Ans->Str1  
:Menu("crippter","encript",1,"decript",2  
:Lbl 2  
:1->C  
:Lbl 1  
:if not(C)  
:Imput ">",Str2  
:if C  
:Imput "<",Str2  
:length(Str2)->D  
:lenght(Str1)/3->E  
:if not(C)  
:Then  
:randInt(1,E)->B  
:sub(Str1,B,1)->Str3  
:Else  
:inString(Str1,sub(Str2,1,1),1)->B  
":"->Str3  
:For(X,1+C,D  
:inString(Str1,sub(Str2,X,1)->A  
:if not(C  
:A+E-B-X->A  
:if C  
:A+B+X-1->A  
:Str3+sub(Str1,A,1)->Str3  
:End  
:if C  
:sub(Str3,2,D-1)->Str3  
:Pause Str3  
:Goto A

This is some nice encryption software (for a TI-83). By ti-83 I mean any calculator in the ti-83 or ti-84 family. "->" means "STORE" accessed by "STO>"

Fixed formatting
Source Link
c4ooo
c4ooo
  • 31
  • 2

Ti-basic (the lauge that runs on ti-83 graphing calculators) if you know this language language convert to a normal lua geluangege like JAVA 
:ClrHome 
:" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted 
:Ans+Ans+Ans->Str1 
:Menu("crippter","encript",1,"decript",2 
:Lbl 2 
:1->C 
:Lbl 1 
:if not(C) 
:Imput ">",Str2 
:if C 
:Imput "<",Str2 
:length(Str2)->D 
:lenght(Str1)/3->E 
:if not(C) 
:Then 
:randInt(1,E)->B 
:sub(Str1,B,1)->Str3 
:Else 
:inString(Str1,sub(Str2,1,1),1)->B 
":"->Str3 
:For(X,1+C,D 
:inString(Str1,sub(Str2,X,1)->A 
:if not(C 
:A+E-B-X->A 
:if C 
:A+B+X-1->A 
:Str3+sub(Str1,A,1)->Str3 
:End 
:if C 
:sub(Str3,2,D-1)->Str3 
:Pause Str3 
:Goto A

Ps this is some nice encryption software (for a ti-83) 
Pps by ti-83 I mean any calculator in the ti-83 or ti-84 family 
Ppps "->" means "STORE" accessed by "STO>"

Ti-basic (the lauge that runs on ti-83 graphing calculators) if you know this language convert to a normal lua ge like JAVA :ClrHome :" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted :Ans+Ans+Ans->Str1 :Menu("crippter","encript",1,"decript",2 :Lbl 2 :1->C :Lbl 1 :if not(C) :Imput ">",Str2 :if C :Imput "<",Str2 :length(Str2)->D :lenght(Str1)/3->E :if not(C) :Then :randInt(1,E)->B :sub(Str1,B,1)->Str3 :Else :inString(Str1,sub(Str2,1,1),1)->B ":"->Str3 :For(X,1+C,D :inString(Str1,sub(Str2,X,1)->A :if not(C :A+E-B-X->A :if C :A+B+X-1->A :Str3+sub(Str1,A,1)->Str3 :End :if C :sub(Str3,2,D-1)->Str3 :Pause Str3 :Goto A

Ps this is some nice encryption software (for a ti-83) Pps by ti-83 I mean any calculator in the ti-83 or ti-84 family Ppps "->" means "STORE" accessed by "STO>"

Ti-basic (the lauge that runs on ti-83 graphing calculators) if you know this language convert to a normal luangege like JAVA 
:ClrHome 
:" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted 
:Ans+Ans+Ans->Str1 
:Menu("crippter","encript",1,"decript",2 
:Lbl 2 
:1->C 
:Lbl 1 
:if not(C) 
:Imput ">",Str2 
:if C 
:Imput "<",Str2 
:length(Str2)->D 
:lenght(Str1)/3->E 
:if not(C) 
:Then 
:randInt(1,E)->B 
:sub(Str1,B,1)->Str3 
:Else 
:inString(Str1,sub(Str2,1,1),1)->B 
":"->Str3 
:For(X,1+C,D 
:inString(Str1,sub(Str2,X,1)->A 
:if not(C 
:A+E-B-X->A 
:if C 
:A+B+X-1->A 
:Str3+sub(Str1,A,1)->Str3 
:End 
:if C 
:sub(Str3,2,D-1)->Str3 
:Pause Str3 
:Goto A

Ps this is some nice encryption software (for a ti-83) 
Pps by ti-83 I mean any calculator in the ti-83 or ti-84 family 
Ppps "->" means "STORE" accessed by "STO>"

Source Link
c4ooo
c4ooo
  • 31
  • 2

Ti-basic (the lauge that runs on ti-83 graphing calculators) if you know this language convert to a normal lua ge like JAVA :ClrHome :" abcdefghijklmnopqrstuvwxyz" //all symbols that can be interpreted :Ans+Ans+Ans->Str1 :Menu("crippter","encript",1,"decript",2 :Lbl 2 :1->C :Lbl 1 :if not(C) :Imput ">",Str2 :if C :Imput "<",Str2 :length(Str2)->D :lenght(Str1)/3->E :if not(C) :Then :randInt(1,E)->B :sub(Str1,B,1)->Str3 :Else :inString(Str1,sub(Str2,1,1),1)->B ":"->Str3 :For(X,1+C,D :inString(Str1,sub(Str2,X,1)->A :if not(C :A+E-B-X->A :if C :A+B+X-1->A :Str3+sub(Str1,A,1)->Str3 :End :if C :sub(Str3,2,D-1)->Str3 :Pause Str3 :Goto A

Ps this is some nice encryption software (for a ti-83) Pps by ti-83 I mean any calculator in the ti-83 or ti-84 family Ppps "->" means "STORE" accessed by "STO>"