Delphi代码转VB.net!!

rjjjr 2008-05-13 06:25:37
怎么把下面的代码转成VB.net??

var
strCMD : string;
begin
strCMD := char($AA) + char($04) +
char($01) + char($F4) +
char($00) + char($00) +
char($FF) + char($FF);
end;
...全文
114 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
liu_binq63 2008-05-19
  • 打赏
  • 举报
回复
Dim strCMD As String

strCMD = ChrW(&HAA) + ChrW(&H4) + ChrW(&H1) + ChrW(&HF4) + ChrW(&H0) + ChrW(&H0) + ChrW(&HFF) + ChrW(&HFF)
liu_binq63 2008-05-19
  • 打赏
  • 举报
回复
要用chrw才行。
你给的这些代码,都不是标准的字符,比如说: &H4,&H1,&H0,这些都是不显示的字符,用chr得到的肯定是问号。
bfblang 2008-05-17
  • 打赏
  • 举报
回复
Dim strCMD As String = Chr(&HAA) & Chr(&H4) & Chr(&H1) & Chr(&HF4) & Chr(&H0) & Chr(&H0) & Chr(&HFF) & Chr(&HFF)
尽量不要用+号。
firein 2008-05-13
  • 打赏
  • 举报
回复
哎呀 好怀念Delphi啊
rjjjr 2008-05-13
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 lzmtw 的回复:]
VB.NET code Dim strCMD As String

strCMD = Chr(&HAA) + Chr(&H4) + _
Chr(&H1) + Chr(&HF4) + _
Chr(&H0) + Chr(&H0) + _
Chr(&HFF) + Chr(&HFF)
[/Quote]

调出来 strCMD="" ?????????????
水如烟 2008-05-13
  • 打赏
  • 举报
回复
        Dim strCMD As String

strCMD = Chr(&HAA) + Chr(&H4) + _
Chr(&H1) + Chr(&HF4) + _
Chr(&H0) + Chr(&H0) + _
Chr(&HFF) + Chr(&HFF)
同学们都觉得太贵了,那我就降低点。 '调用示例 Debug.Print(stringToHex(des_crypt("MinqfDesTest", "mimi9924", 1))) '加密 Debug.Print(des_crypt("MinqfDesTest", hexToString("3F2DFAAC155A9D5A"), 0)) '解密 这两天要做个VB程序访问PHP的Web服务,传输内容用DES加密算法加密。做的时候发现VB.net带的DES加密算法和我PHP里的不一样,PHP已经是成型产品,不能修改,于是就把PHP里的加密算法翻译了一遍。一天一夜,真不容易。主要问题出在PHP里在做位运算的时候截断数据,搞的我VB.net里费了好大劲。 PHP的算法来自这个网站: http://www.tero.co.uk/des/code.php 修改的时候偷了个懒,2个参数省略了。有同学要用的话自己去加,也没什么难度了。 他提供了PHP、Perl、Javascript三个版本。我在修改的时候主要是用他的PHP版本测试的,PHP版的没问题,其他两版本稍作修改(应该没有PHP中截断数据的问题)应该也没问题的。 Delphi的同学可以找找这个加密算法也有Delphi版的。 费了很大精力搞这东西,佛祖的真经也要用紫金钵盂换的,发到CSDN上,供同学们使用。 觉得贵的同学请飘过,第一天晚上搞到4点,第二天一天,晚上又到2点,才调试完毕。所以,觉得贵的自己翻译去。 时间仓促,有可能还会有问题,如果有同学找到问题,请提出来,不胜感激。

16,555

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧