![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) Obfuscate StringDemonstrates how to obfuscate and unobfuscate a string.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder; ... procedure TForm1.Button1Click(Sender: TObject); var sb: HCkStringBuilder; success: Boolean; s: PWideChar; sb2: HCkStringBuilder; s2: PWideChar; begin sb := CkStringBuilder_Create(); s := 'Hello World!'; CkStringBuilder_Append(sb,s); Memo1.Lines.Add(CkStringBuilder__getAsString(sb)); // Output is "Hello World!"; // Obfuscate the string. // This is NOT encryption. It's just a simple obfuscation. CkStringBuilder_Obfuscate(sb); Memo1.Lines.Add(CkStringBuilder__getAsString(sb)); // Output is 2GsgGhbSQVyG8Vb9 // ------------------------- // Unobfuscate. sb2 := CkStringBuilder_Create(); s2 := '2GsgGhbSQVyG8Vb9'; CkStringBuilder_Append(sb2,s2); CkStringBuilder_Unobfuscate(sb2); Memo1.Lines.Add(CkStringBuilder__getAsString(sb2)); // Output is "Hello World!"; CkStringBuilder_Dispose(sb); CkStringBuilder_Dispose(sb2); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.