Excel VBA - Data Encryption and Decryption| Very Simple Method
💡 Source Code
Public Function CONVTXT(ByVal txt As String) As String
Dim tl As Integer, ntl As Integer, i As Integer, ntxt As String
tl = Len(txt)
ntl = tl
For i = 1 To tl
If i ◀= tl / 2 Then
ntxt = ntxt & Mid(txt, ntl, 1) & Mid(txt, i, 1)
ntl = ntl - 1
End If
Next i
If tl Mod 2 = 0 Then CONVTXT = ntxt Else: CONVTXT = ntxt & Mid(txt, Int(tl / 2) + 1, 1)
End Function
Public Function CONVTXTBACK(ByVal txt As String) As String
Dim lt As Integer, nlt1 As Integer, nlt2 As Integer, i As Integer, ntxt1 As String, ntxt2 As String
lt = Len(txt)
nlt1 = lt - 1
nlt2 = lt - 2
For i = 1 To lt
If lt Mod 2 = 0 Then
If i Mod 2 = 0 Then
ntxt1 = ntxt1 + Mid(txt, i, 1)
Else:
ntxt2 = ntxt2 + Mid(txt, nlt1, 1)
nlt1 = nlt1 - 2
End If
Else:
If i Mod 2 = 0 Then ntxt1 = ntxt1 + Mid(txt, i, 1)
If nlt2 ▶= 1 Then
ntxt2 = ntxt2 & Mid(txt, nlt2, 1)
nlt2 = nlt2 - 2
End If
End If
Next i
If lt Mod 2 ▶ 0 Then ntxt1 = ntxt1 & Right(txt, 1)
CONVTXTBACK = ntxt1 & ntxt2
End Function
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = CONVTXT(TextBox1.Value)
ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = CONVTXT(TextBox2.Value)
End Sub
------------------------------------------------------------------------------------------
Buy a Cofee ☕ for theworldofalgorithms: https://ko-fi.com/theworldofalgorithms
🥰Thank you for the donation. I am deeply grateful for your help!🥰
------------------------------------------------------------------------------------------
#excel
#msexcel
#msexceltutorial
#msexcelcourse
#vba
#vbatutorial
#excelvba
#fulltutorial
#excelvbatutorial
#microsoftexceltutorial
#tutorial
#exceltutorial
#advancedexcel
#advancedexceltraining
#algorithm
#algorithms
#programming
#program
#script
#vbamacro
#vbamacros
#usingmacro
#veryuseful
#useful
#veryusefulmacro
#freeeducation
#freeprogramming
#freelancer
#excelfreelancer
#vbafreelancer
#freelanceservices
#form
#userform
#exceluserform
#vbauserform
#excelvbauserform
#vbaform
#label
#excellabel
#vbalabel
#excelvbalabel
#commandbutton
#vbacommandbutton
#data
#dataencryption
#datadecryption
#encryptionanddecryption
#encryption
#decryption
#dataprotection
#security
#datasecurity
#verysimplemethod