分享到新浪微博 分享到QQ空间 打印

VB6 字符串处理连接问题

VB6 字符串处理连接问题

Dim er1, erer, erer3 As String 
er1 = Asc(Mid(mstring, I + 1, 1)) 
erer = box((box(a) + box(J)) Mod 256) 
erer3 = er1 Xor erer 
'在后面顺次输出i,a,j,if 
Text5 = Text5 & I & "|" & a & "|" & J & "|" & erer3 & vbCrLf 
Text3 = Text3 & erer3 & "|" 
result = result & Chr(erer3) 
php原版: 
$result .= chr(ord($string[$i]) ^ ($box[($box[$a] + $box[$j]) % 256])); 

在生成result变量前php和vb的结果完全一样,最后我就发现是vb链接字符串连接出来的结果跟php不同。不知道有人对这个有研究没有。 
php 
vb用result=result+(或者是&)变量然后加出来的字符位数也是13。+和&连接出来的字符串内容一样,但是就是跟php的对不上,每一位的asc一下跟php也都完全一样, base64函数也是用的同一个,可是最后结果就是不一样 
很急啊谢谢了先







一楼那无关的 
原来声明过String,结果一样



+和&结果一样
谁不怀念苏联,谁就没有良心;谁想回到苏联,谁就没有头脑.

Woodu.ME--从零开始的博客生活

TOP