Programming in Visual Basic .NET How to Search Records in MySQL Database

💻 Explore Free C# and VB.NET Source Code!

Get special perks and content—become a member today!

Exclusive Videos for Members:

📚 Boost Your Programming Skills with My VB.NET Courses!
👉 Enroll now and start coding!

🚀 Get premium source code for your projects! 💻

สมัครเรียนคอร์สออนไลน์ (เรียนได้ตลอดชีพ) ภาษา C# และ Visual Basic .NET
หลักสูตรสำหรับผู้เริ่มต้นเขียนโปรแกรม (คอร์สพื้นฐาน), หลักสูตรพัฒนา Modern Desktop App ไปจนถึงหลักสูตรขั้นสูง (คอร์ส Workshop สอนทำโปรเจกต์)

สนใจ สมัครโดยตรงกับอาจารย์ที่เพจ หรือ LINE

💬 พูดคุยกับผมที่...

📺 ติดตามช่อง YouTube

#iBasskung #อาจารย์เบส #สอนเขียนโปรแกรม #สอนทำโปรเจกต์ #ComputerProgramming

[abderrahimsolbi]

Possible to convert to C-Sharp ->

I am waiting for your reply


Public Function XOR_Encrypt(ByVal Input As String, ByVal pass As String) As String
Dim out As New System.Text.StringBuilder
Dim u As Integer
For i As Integer = 0 To Input.Length - 1
Dim tmp As String = Hex(Asc(Input(i)) Xor Asc(pass(u)))
If tmp.Length = 1 Then tmp = "0" & tmp
out.Append(tmp)
If u = pass.Length - 1 Then u = 0 Else u = u + 1
Next
Return out.ToString
End Function