急啊。帮忙阿！(100分)

【骷髅】 · 2003-12-25

C2GXOR.dll有个程序中用到这个加密解蜜的组件。用vb调用一切正常。我现在要用delphi调用，可始终做不出来。代码如下。 TEncryptString = function(pwd: pchar; pws1: pchar): pchar; stdcall; procedure TForm1.Button1Click(Sender: TObject); var     hfunc: HMODULE;     EncryptString: TEncryptString; begin     hfunc := LoadLibrary('C2GXOR.dll');     @EncryptString := GetProcAddress(hfunc, 'EncryptStringHex');     Edit1.Text := EncryptString(Pchar('aaa'), Pchar('B@K%LK')); end; end. 这个组件好像是vb写的。不过我不能确定。我没有源码 请知道的帮忙看看问题出在什么地方。或者知道这个组件的加密算法也行。 万分感谢

woyaoying · 2003-12-25

自己写个加密得了~ 非要用别人的吗？

【骷髅】 · 2003-12-25

补充以下。vb中的调用是这样的。 Dim c2gxor As New C2GXORLib.XOR txtEncryptedText.Text = c2gxor.EncryptStringHex(txtString, txtPassword) to woyaoying 不能换组件。因为我是写另外一个程序的一个附加程序。必须将自己输入的密码加密后和数据库中的密码比较。

【骷髅】 · 2003-12-25

没有人回答吗？好急啊。麻烦各位帮帮忙。

JamesBond_L · 2003-12-25

Edit1.Text := EncryptString(Pchar('aaa'), Pchar('B@K%LK')); 里面的字符串用变量代替看看。

【骷髅】 · 2003-12-25

delphi中调用的时候 @EncryptString := GetProcAddress(hfunc, 'EncryptStringHex'); 此用户返回的是nil。 根本无法调用改函数。 我看vb中的Dim c2gxor As New C2GXORLib.XOR。 而我在delphi中根本没有提到，会不会这里有问题。

【骷髅】 · 2003-12-25

帮忙啊。

【骷髅】 · 2003-12-26

难道没有人知道吗？

【骷髅】 · 2003-12-27

不会吧。放这里三天了。还是没有人回答。

DouZheng · 2003-12-27

【骷髅】,   真想帮你， 　　但又帮不上， 　　　只好帮你顶。 ：Ｐ

【骷髅】 · 2003-12-30

呵呵.我已经找人帮忙搞定了.不是通常的调用dll而是把dllimport.

【骷髅】 · 2003-12-30

多人接受答案了。

急啊。帮忙阿！(100分)

【骷髅】

Unregistered / Unconfirmed

woyaoying

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

DouZheng

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

【骷髅】

Unregistered / Unconfirmed

Similar threads