No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
6 Posted Topics
 | Hello Friends, Any body help me to convert the code from Delphi to vb 6.0 const C1 = 43941; C2 = 16302; function BorlandEncrypt(const S: String; Key: Word): String; var I: byte; begin SetLength(Result,Length(S)); for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8)); Key …  |
| | Hello Friends, i m using the function to built DLL in delphi but when call it in vb 6.0 application i m not able to use this dll as reference. Please help me. Following code which i have used to built delphi DLL. ------------------------------------------------------------------------------ [code=visualbasic] library Project2; uses SysUtils, Classes, … |
| | Hello Friends, How can i made an DLL which is used in vb 6.0 as a reference. i have made an DLL which give the exact result in delphi console application but not add as a reference in vb 6.0 Thanks, |
| | Hello Friends, i want the value of 17732 shr 8 Thanks, |
| | Please convert this code to Delphi to VB 6.0 const C1 = 43941; C2 = 16302; function BorlandEncrypt(const S: String; Key: Word): String; var I: byte; begin SetLength(Result,Length(S)); for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8)); Key := (byte(Result[I]) + Key) * C1 … |
| | Hello Friends, Any body help me to convert the code delphi to vb6.0 ---------------------------------------------------------------- const C1 = 43941; C2 = 16302; function BorlandEncrypt(const S: String; Key: Word): String; var I: byte; begin SetLength(Result,Length(S)); for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8)); Key := … |