Felix_Dragonhammer
Board Regular
- Joined
- Apr 7, 2015
- Messages
- 117
I wrote the following code (my very first all by myself code! I'm a big boy now lol) and was wondering if anyone knows of a better way, like a loop or something, that I could use instead of going through all the cases.
Code:
Function ENCRYPT2(Message As String, Code_Word As String)
Dim LenMes As String
Dim LenCod As Integer
Dim ML As String
Dim CL As String
Dim Word As String
Dim ModLenCod As String
Dim x As Integer
Dim Col As Integer
Dim Row As Integer
Dim EL As String
Dim LCord As String
Dim Encryption As String
LenMes = Len(Message)
LenCod = Len(Code_Word)
Message = UCase(Message)
Code_Word = UCase(Code_Word)
For n = 1 To LenMes
ML = Mid(Message, n, 1)
If ML = " " Then
EL = " "
GoTo NextML
Else
End If
ModLenCod = n Mod LenCod
If ModLenCod = 0 Then
x = LenCod
Else
x = ModLenCod
End If
CL = Mid(Code_Word, x, 1)
LCord = ML & CL
EL = LCordF(LCord)
NextML:
Encryption = Encryption & EL
Next n
ENCRYPT2 = Encryption
End Function
Sub Exp()
Dim Value
Dim Message As String
Dim Code_Word As String
Message = "This is awesome"
Code_Word = "Happy"
MsgBox ENCRYPT2(Message, Code_Word)
------------------------------------------------------------------------------------------------------------
End Sub
Function LCordF(L As String)
Select Case L
Case "AA", "BZ", "CY", "DX", "EW", "FV", "GU", "HT", "IS", "JR", "KQ", "LP", "MO", "NN", "OM", "PL", "QK", "RJ", "SI", "TH", "UG", "VF", "WE", "XD", "YC", "ZB": LCordF = "A"
Case "AB", "BA", "CZ", "DY", "EX", "FW", "GV", "HU", "IT", "JS", "KR", "LQ", "MP", "NO", "ON", "PM", "QL", "RK", "SJ", "TI", "UH", "VG", "WF", "XE", "YD", "ZC": LCordF = "B"
Case "AC", "BB", "CA", "DZ", "EY", "FX", "GW", "HV", "IU", "JT", "KS", "LR", "MQ", "NP", "OO", "PN", "QM", "RL", "SK", "TJ", "UI", "VH", "WG", "XF", "YE", "ZD": LCordF = "C"
Case "AD", "BC", "CB", "DA", "EZ", "FY", "GX", "HW", "IV", "JU", "KT", "LS", "MR", "NQ", "OP", "PO", "QN", "RM", "SL", "TK", "UJ", "VI", "WH", "XG", "YF", "ZE": LCordF = "D"
Case "AE", "BD", "CC", "DB", "EA", "FZ", "GY", "HX", "IW", "JV", "KU", "LT", "MS", "NR", "OQ", "PP", "QO", "RN", "SM", "TL", "UK", "VJ", "WI", "XH", "YG", "ZF": LCordF = "E"
Case "AF", "BE", "CD", "DC", "EB", "FA", "GZ", "HY", "IX", "JW", "KV", "LU", "MT", "NS", "OR", "PQ", "QP", "RO", "SN", "TM", "UL", "VK", "WJ", "XI", "YH", "ZG": LCordF = "F"
Case "AG", "BF", "CE", "DD", "EC", "FB", "GA", "HZ", "IY", "JX", "KW", "LV", "MU", "NT", "OS", "PR", "QQ", "RP", "SO", "TN", "UM", "VL", "WK", "XJ", "YI", "ZH": LCordF = "G"
Case "AH", "BG", "CF", "DE", "ED", "FC", "GB", "HA", "IZ", "JY", "KX", "LW", "MV", "NU", "OT", "PS", "QR", "RQ", "SP", "TO", "UN", "VM", "WL", "XK", "YJ", "ZI": LCordF = "H"
Case "AI", "BH", "CG", "DF", "EE", "FD", "GC", "HB", "IA", "JZ", "KY", "LX", "MW", "NV", "OU", "PT", "QS", "RR", "SQ", "TP", "UO", "VN", "WM", "XL", "YK", "ZJ": LCordF = "I"
Case "AJ", "BI", "CH", "DG", "EF", "FE", "GD", "HC", "IB", "JA", "KZ", "LY", "MX", "NW", "OV", "PU", "QT", "RS", "SR", "TQ", "UP", "VO", "WN", "XM", "YL", "ZK": LCordF = "J"
Case "AK", "BJ", "CI", "DH", "EG", "FF", "GE", "HD", "IC", "JB", "KA", "LZ", "MY", "NX", "OW", "PV", "QU", "RT", "SS", "TR", "UQ", "VP", "WO", "XN", "YM", "ZL": LCordF = "K"
Case "AL", "BK", "CJ", "DI", "EH", "FG", "GF", "HE", "ID", "JC", "KB", "LA", "MZ", "NY", "OX", "PW", "QV", "RU", "ST", "TS", "UR", "VQ", "WP", "XO", "YN", "ZM": LCordF = "L"
Case "AM", "BL", "CK", "DJ", "EI", "FH", "GG", "HF", "IE", "JD", "KC", "LB", "MA", "NZ", "OY", "PX", "QW", "RV", "SU", "TT", "US", "VR", "WQ", "XP", "YO", "ZN": LCordF = "M"
Case "AN", "BM", "CL", "DK", "EJ", "FI", "GH", "HG", "IF", "JE", "KD", "LC", "MB", "NA", "OZ", "PY", "QX", "RW", "SV", "TU", "UT", "VS", "WR", "XQ", "YP", "ZO": LCordF = "N"
Case "AO", "BN", "CM", "DL", "EK", "FJ", "GI", "HH", "IG", "JF", "KE", "LD", "MC", "NB", "OA", "PZ", "QY", "RX", "SW", "TV", "UU", "VT", "WS", "XR", "YQ", "ZP": LCordF = "O"
Case "AP", "BO", "CN", "DM", "EL", "FK", "GJ", "HI", "IH", "JG", "KF", "LE", "MD", "NC", "OB", "PA", "QZ", "RY", "SX", "TW", "UV", "VU", "WT", "XS", "YR", "ZQ": LCordF = "P"
Case "AQ", "BP", "CO", "DN", "EM", "FL", "GK", "HJ", "II", "JH", "KG", "LF", "ME", "ND", "OC", "PB", "QA", "RZ", "SY", "TX", "UW", "VV", "WU", "XT", "YS", "ZR": LCordF = "Q"
Case "AR", "BQ", "CP", "DO", "EN", "FM", "GL", "HK", "IJ", "JI", "KH", "LG", "MF", "NE", "OD", "PC", "QB", "RA", "SZ", "TY", "UX", "VW", "WV", "XU", "YT", "ZS": LCordF = "R"
Case "AS", "BR", "CQ", "DP", "EO", "FN", "GM", "HL", "IK", "JJ", "KI", "LH", "MG", "NF", "OE", "PD", "QC", "RB", "SA", "TZ", "UY", "VX", "WW", "XV", "YU", "ZT": LCordF = "S"
Case "AT", "BS", "CR", "DQ", "EP", "FO", "GN", "HM", "IL", "JK", "KJ", "LI", "MH", "NG", "OF", "PE", "QD", "RC", "SB", "TA", "UZ", "VY", "WX", "XW", "YV", "ZU": LCordF = "T"
Case "AU", "BT", "CS", "DR", "EQ", "FP", "GO", "HN", "IM", "JL", "KK", "LJ", "MI", "NH", "OG", "PF", "QE", "RD", "SC", "TB", "UA", "VZ", "WY", "XX", "YW", "ZV": LCordF = "U"
Case "AV", "BU", "CT", "DS", "ER", "FQ", "GP", "HO", "IN", "JM", "KL", "LK", "MJ", "NI", "OH", "PG", "QF", "RE", "SD", "TC", "UB", "VA", "WZ", "XY", "YX", "ZV": LCordF = "V"
Case "AW", "BV", "CU", "DT", "ES", "FR", "GQ", "HP", "IO", "JN", "KM", "LL", "MK", "NJ", "OI", "PH", "QG", "RF", "SE", "TD", "UC", "VB", "WA", "XZ", "YY", "ZX": LCordF = "W"
Case "AX", "BW", "CV", "DU", "ET", "FS", "GR", "HQ", "IP", "JO", "KN", "LM", "ML", "NK", "OJ", "PI", "QH", "RG", "SF", "TE", "UD", "VC", "WB", "XA", "YZ", "ZY": LCordF = "X"
Case "AY", "BX", "CW", "DV", "EU", "FT", "GS", "HR", "IQ", "JP", "KO", "LN", "MM", "NL", "OK", "PJ", "QI", "RH", "SG", "TF", "UE", "VD", "WC", "XB", "YA", "ZZ": LCordF = "Y"
Case "AZ", "BY", "CX", "DW", "EV", "FU", "GT", "HS", "IR", "JQ", "KP", "LO", "MN", "NM", "OL", "PK", "QJ", "RI", "SH", "TG", "UF", "VE", "WD", "XC", "YB", "ZA": LCordF = "Z"
End Select
End Function
