Supplement a practical java version of cross language encryption

The introduction of encryption algorithm This algorithm source code was originally written by Borland Delphi. The original author seems to be Allen Bauer. The code is as follows. const cMulKey = 52845; cAddKey = 11719;function Decrypt(const S: String; Key: Word): String; var I: byte; begin SetLength(Result, Length(S)); for I := 1 t ...

Posted on Fri, 17 Apr 2020 10:34:25 -0400 by ankycooper

delphi calls Baidu recognition

Although Baidu everyone has been scolding, but I found that in fact Baidu some things can still be used. Now that everyone is engaged in artificial intelligence, we can't fall behind in Delphi. No more nonsense, just code The first step is to obtain the AccessToken function GetAccessToken(const client_id, client_secret: string; HTTP: TNetHTT ...

Posted on Tue, 07 Apr 2020 10:21:17 -0400 by bigray

[delphi] WeChat official account controls WeChat payment development

[delphi] WeChat official account control development (three) WeChat payment 1, Wechat payment method implemented by control 2, Development points of wechat payment Delphi 1. How to realize SSL bidirectional authentication in wechat payment? 2. How to ensure that the signature is correct? 3. Because ...

Posted on Mon, 16 Mar 2020 05:14:50 -0400 by madolia

CrackMe160 learning notes 006

Preface According to the help button, this program requires us to eliminate the two buttons "OK" and "Cancel", showing the part covered by the button. Each button requires a different algorithm to verify, so there are two verification functions. The program after the break is shown ...

Posted on Mon, 27 Jan 2020 11:53:58 -0500 by wwfc_barmy_army

Deep understanding of delphi Programming message WINDOWS native window writing and message processing process

  By way of sdk Mode compilation windows Window program, understanding windows Message driven mechanism and delphi Message programming helps a lot. sdk Organization windows Steps of window program: 1,Yes TWndClass Object to assign; 2,Register with system wndclass object(RegisterClass); 3,CreateWindow Create window, get windo ...

Posted on Fri, 17 Jan 2020 06:00:25 -0500 by obay

Implementation of irregular form with Delphi

Recently, in order to be compatible with XP system (conservative market) and need to make special effects of products, we have to learn this "smart language" from scratch. Development environment: win10 Delphi 10.2 Version 25.0.26309.314 Product environment: minimum xp system Use Gdi+ 1.0 from http://www.bilsen.com/gdiplus/index.shtml ...

Posted on Fri, 03 Jan 2020 19:13:42 -0500 by hyabusa

Delphi basic (for loop)

1. Judge between 0 and 10, when cycle I=3, jump out of the current cycle, when I is equal to 8, exit the current cycle. 1 procedure Countand(); 2 var 3 I: Integer; 4 begin 5 for I := 0 to 10 do 6 begin 7 Writeln(I); 8 if I = 3 then 9 begin 10 Writeln('Skip the current'); 11 Continue; 12 ...

Posted on Sun, 08 Dec 2019 02:19:54 -0500 by keithwjones

Delphi basic (routine, routine return value)

I. routine: a unique name in Delphi. Routine is a form of encapsulating the code of a specific function: 1. Process 2. FunctionThe difference between a procedure and a function is whether there is a return valueFunction of routine 1. It can solve the problem of naming conflict 2. Improve code reuse rate 3. Improve code maintainabilityIII. ...

Posted on Tue, 03 Dec 2019 19:58:19 -0500 by Schlo_50

delphi uses Foxit Quick PDF Library to read and write pdf Text and pictures

Introduction: Debenu Quick PDF Library(PDF programming development tool) provides a comprehensive set of PDF API functions to help you process PDF files quickly and easily. From the basic operation of document properties to the creation of your own PDF viewer and pdf editor, this software meets all your needs. Quick PDF Library is a SDK for PD ...

Posted on Tue, 12 Nov 2019 13:58:12 -0500 by XenoPhage

How Delphi calls the member function of VC class

How does Delphi call the member function of VC class? For example, the following VC code: class ITestObj { public: int MyAdd(int a, int b) { return a + b; } void ShowMSG() { ::MessageBoxA(0, (LPCSTR)"Delphi call VC Member function of class", (LPCS ...

Posted on Fri, 01 Nov 2019 12:39:28 -0400 by gvp16