TIB: New to this but.....


[Prev][Next][Index][Thread]

TIB: New to this but.....




I have a WEEEE little problem here...
Don't mind my Source it's a little F'ed up right now because I've been
trying to get it to fit on the screen any way possible...

Here

Take a look...

()
Prgm
Define ?=""
ClrIO
Disp "","","","","   Andon13's Encryption","  Toolkit Version 0.7.1c"
Dialog
Title "     EnCrYpTiOn ToOlZ"
DropDown "Use your own Encryption KEY?",{"Yes","No"},
EndDlog
If =2 Then
Goto default
DelVar 
EndIf
Goto custm
Lbl default
Define ?=3
Define =6
Define .=9
Define ?=4
Goto test
Lbl custm
ClrIO
Disp "Enter 'KEY MATRIX'"
Disp "Enter 1st Variable:"
[[0,0][0,0]]mat1
Disp mat1T
Input ?
ClrIO
[[?,0][0,0]]mat2
Disp mat2T
Disp "Enter 2nd Variable:"
Input 
ClrIO
[[?,0][,0]]mat3
Disp mat3T
Disp "Enter 3rd Variable:"
Input .
ClrIO
[[?,.][,0]]mat4
Disp mat4T
Disp "Enter 4th Variable:"
Input ?
ClrIO
[[?,.][,?]]mat5
Disp mat5T,"","This will be your","encryption KEY MATRIX"
Pause
Lbl test
[[?,.][,?]]mat0
If ?*-.*?=0 Then
ClrIO
Disp mat0T," Has no inverse"
Disp "Sorry, but that KEY MATRIX","is not workable"
Pause
Goto custm
EndIf
---SUB-ROUTINE---
ClrIO
Dialog
Title "Encryption test"
Text ""
Text "Enter what you wish to encrypt below"
Text ""
Request "ENCRYPT THIS?",e
EndDlog
dim(e)g
Loop
ClrIO
ord(e)y
Define a=char(y)
g-1g
Disp g
shift(e,1)e
ord(e)x
Define c=char(x)
y*+x*?S
y*?+x*.'
[[S,']]i
?&string(i)&","?
g-1g
If go0 Then
Goto encrypt
EndIf
Disp g
shift(e,1)e
EndLoop
Lbl encrypt
ClrIO
label
[[y*+x*?][y*?+x*.]]mat3
Disp "","","","","Encoded Matrix:"
Disp mat3T
ClrIO
Disp "Remember your 'KEY MATRIX'",""
Disp mat0T,""
Disp "Hit ENTER to view results"
Pause
Disp "End Results"
Disp ?
Pause
Pause
EndPrgm


I went as far as to do an
If dim(?)>=15 Then
.... .... .... But that didn't even seem to help... Any suggestions on how
to word wrap?


begin 666 Andon M. Coleman.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..D-O;&5M86X[06YD;VX[32X-
M"D9..D%N9&]N($TN($-O;&5M86X-"DY)0TM.04U%.D%N9&]N,3,-"D]21SI-
M96=A04D[17AE8W5T:79E($]F9FEC93\@/5 -"E1)5$Q%.D-%3PT*3D]413M%
M3D-/1$E.1SU154]4140M4%))3E1!0DQ%.DEF('EO=7(@<F5A9&EN9R!T:&ES
M+"!I=" ],$0],$$],$0],$%A*2!3:6=N:69Y<R!Y;W4@:&%V92!N;W1H:6YG
M(&)E='1E<B!T;R ]#0ID;R!W:71H('EO=7(@=&EM92XN+CTP1#TP06(I($UE
M86YS('EO=2!C86X@<F5A9"XN+CTP1#TP06,I($UE86YS($D@8V%N('1Y<&4N
M/0T*+BX-"E1%3#M73U)+.U9/24-%.B@Y-#$I(#<W,BTR-C<Y#0I414P[2$]-
M13M63TE#13HH.30Q*2 W-S(M,C8W.0T*5$5,.T-%3$P[5D])0T4Z,2TX,# M
M1T54+4Q/4U0-"E1%3#M004=%4CM63TE#13HQ+3@P,"U'150M3$]35 T*5$5,
M.U=/4DL[1D%8.B@Y-#$I(#<W,BTP-3$X#0I414P[2$]-13M&05@Z*#DT,2D@
M-S<R+3 U,3@-"D%$4CM73U)+.CM/;FQY($]F9FEC93LW,3$@4T4@,3)T:"!!
M5D4[0V%P92!#;W)A;#M&3#LS,SDY,#M54PT*3$%"14P[5T]22SM%3D-/1$E.
M1SU154]4140M4%))3E1!0DQ%.D]N;'D@3V9F:6-E/3!$/3!!-S$Q(%-%(#$R
M=&@@059%/3!$/3!!0V%P92!#;W)A;"P@1DP@,S,Y.3 ],$0],$%54PT*0412
M.TA/344Z.SLW,3$@4T4@,3)T:"!!5D4[0V%P92!#;W)A;#M&3#LS,SDY,#M5
M4PT*3$%"14P[2$]-13M%3D-/1$E.1SU154]4140M4%))3E1!0DQ%.C<Q,2!3
M12 Q,G1H($%613TP1#TP04-A<&4@0V]R86PL($9,(#,S.3DP/3!$/3!!55,-
M"E@M5T%"+4=%3D1%4CHR#0I54DPZ:'1T<#HO+VAO;64N96%R=&AL:6YK+FYE
M="]^9VEZ;6\Y."\-"DM%63M8-3 Y.T5.0T]$24Y'/4)!4T4V-#H-"B @("!-
M24E%.%1#0T)&<6=!=TE"06=)45-#<4%V8D8T8V5"6&9C<TA#,5ES<FI!3D)G
M:W%H:VE'.7<P0D%1449!1$-">D1%6$U"54<-"B @("!!,55%0VA-3U9M5GEA
M5DYP6C(T<TE%;'59>31X2'I!9$)G3E9"07-41FQ:;&-M;%1A5V1U2492>618
M3C!)135L9$AD=F-M<W@-"B @("!2:D)%0F=.5D)!<U106&0S9'DU,EI82G!C
M,FQN8FDU:F(R,'9C;59W8C-.<&1'.7EE4SE3545%9U-7-6IB,TIW3&E"0V53
M0E,-"B @("!:5UEU3$5X2E%527541E)%2T=-<$]49WA31$)'0F=.5D)!3510
M,5IL8VUL5&%79'5)14YS65A.>DE$16=1,$5G4U<U:V%86G -"B @("!:2%9H
M8D-"5&172GI9,TIP66U6>4Q60FQC;DYV8FU%9U1M.3!)1EIH8D=L:UE84FQ:
M1$%E1G<P-4]407A->D%W341!=TU$0F$-"B @("!&=S U3U1!>DUZ17E->E4U
M3E1L84U)24)#5$5834)51T$Q545#:$U/5FU6>6%63G!:,C1S245L=5EY-'A(
M>D%D0F=.5D)!<U0-"B @("!&;%IL8VUL5&%79'5)1E)Y9%A.,$E%-6QD2&1V
M8VUS>%)J0D5"9TY60D%S5%!89#-D>34R6EA*<&,R;&YB:35J8C(P=F-M5G<-
M"B @("!B,TYP9$<Y>653.5-5145G4U<U:F(S2G=,:4)I95-"4UI7675,17A*
M455)=51&4D5+1TUP3U1G>$AJ06-"9TY60D%S5$960FP-"B @("!C;DYV8FU%
M9U1M.3!)1EIH8D=L:UE84FQ:1$5N34-51T$Q545#>$UE4D=L;F%84FAB0T)*
M4D-"1&)'1GIC>4%X24,P9U17;&H-"B @("!C;3EZ8C):,$U267=&05E$5E%1
M1$9!,4)B;5)V8FE"1&(R>&QB5T9U35-1=TEG64I+;UI):'9C3D%1:T)&:%9N
M85AP=&)Z:S0-"B @("!11U9H8VY2;V)';'5A>35U6EA1=V=:.'=$45E*2V]:
M26AV8TY!445"0E%!1&=9,$%-24=*06]'0D%-:4QM2E=(8C!-1G9%2T0-"B @
M("!R*W,T1VEY;D,Q-&HR56A65D-N=WEH-V%-9#9K*U%74T]N5C%'+U8O:F]R
M055W13-#-S<P<%!H5F9V+S5!+W9/=W10,U!F>$T-"B @(" X<%AX=G=W4TIW
M:T%A;#1G46=N,D-71'$Q+U9H1C@R;DE34V1O4S90-'AC9FM8;4YQ0F)W8D-Z
M<S%K43%"+S-K;VQ)9C5V<74-"B @("!N3FY%;4=.3'!83#=!9TU"04%':F=G
M1U--24E":FI!2D)G3E9(4DU%06I!04U)1W9"9TY62%-!16=A8W=G1$-!0F=T
M9VAK9T(-"B @("!H=FA&05%C0D%40T%-0V='0T-S1T%1549"=TE"1FAX;V1(
M4G=C>F]V3#-D,V1Y-3):6$IP8S)L;F)I-6IB,C!V43%"5$U'24<-"B @("!#
M0W-'05%51D)W24--1EEW1E)93U9M5GEA5DYP6C(T<TE%;'59>31W07=)0D%2
M;SE6;59Y859.<%HR-&YC>4)$549-9V%7-6H-"B @("!B,TIW3&E":6530GE:
M5UIL8VU6=5DR56=B1VQH66DT9V)(4FM,:4%O67EK-4YY0E=:6$IP53)L;F)G
M04%!04%!041!4D)G;&<-"B @("!H:V=":'9H0T%1145"04U#0C1!=V=964=#
M;4-'4T%'1RM%54)"9TU%94):,EI$43).5$II6D19>EIJ27=.1&-W36IK>4]4
M9S,-"B @("!.:DYJ3U=1>5IJ23-.5$$R3U=-,TUZ5359;59K35=)=TY4;&M9
M5&,Q66U-,%EM335.>D%X3GI1,UI'13%:1$YM36I%,$U72FP-"B @("!95U)I
M36U*:TUM531/5$EX3E=&;$YJ2FU/1U$S351%,$]4;&A95$II3T12:%IM5FU-
M,E9H3D16:%IJ07I"9TY62%(X14Q$07$-"B @("!-0VEG2G%!:VAI2F]D2%)W
M3VDX=EDS2G-,;EIL8VUL>F%79'5,;4YV8E,Y:F)'1GIC>D5U63-*<TU!,$=#
M4W%'4TEB,T1114(-"B @("!"055!031'0D%)=7=T3$]A=6YK9G)10SAN33-H
M3%DT94Y1,$UT-C,S6FE7,6<O,5!F:%-D35!U35%7=W57:D9K>$1'-D-66DP-
M"B @("!C2D15:7=216DU.3=S5UE%07)/4FLO1'IP3B]M3&]8<DTV5W=63T,S
M5TYB8FY/56%X.$YL9&E814Y5,W9)5$8R<VYT-T%-5D8-"B @("!.,GAW1UI2
M6FEK1F9P>$]%<&).:T=3-7=!8V4S:&QD0TM.2V(-"@T*#0I%34%)3#M04D5&
M.TE.5$523D54.F=I>FUO.3A 96%R=&AL:6YK+FYE= T*4D56.C$Y.3DP-# S
55# T,C4Q-%H-"D5.1#I60T%21 T*
`
end