Simple & Secure encryption
SO SIMPLE, SOOOOO STRONG... Just try to find a pattern in this encryption.... Try sending it a string containing all the same letters, are you amazed by the outcome??? (! KEEP IN MIND THAT ANYONE WITH A CONNECTION TO THE INTERNET HAS ACCESS TO THIS CODE. SO THE ENCRYPTION CAN BE CRACKED. IF WHAT YOU ARE ENCRYPTING IS VERY IMPORTANT, MAKE A MINOR CHANGE TO THE CODE TO AVOID PEOPLE CRACKING YOUR IMPORTANT INFO !)
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Dim s As String, i As Integer If Left(Text1, 3) = "DMK" Then Text1 = Right(Text1, Len(Text1) - 3) For i = 1 To Len(Text1) If i <= 100 Then s = s & Chr(Asc(Mid(Text1, i, 1)) - 128 Mod i) Else s = s & Chr(Asc(Mid(Text1, i, 1)) - 128 Mod i / 10) End If Next Else For i = 1 To Len(Text1) If i <= 100 Then s = s & Chr(Asc(Mid(Text1, i, 1)) + 128 Mod i) Else s = s & Chr(Asc(Mid(Text1, i, 1)) + 128 Mod i / 10) End If Next s = "DMK" & s End If Text1 = s
Original Comments (3)
Recovered from Wayback Machine