关于.Net和VBScript中随机数的问题

[KimSoft]

以前用ASP写的一个项目，实现对用户密码的加密如下，
Function GetEncryptString(sString)
Dim strTemp
Dim strStringLength

strTemp = Trim(sString)
strStringLength = Len(strTemp)

'用字符的长度作为随机种子
Randomize(strStringLength)

Dim x:x = Rnd(2) '测试
.....

GetEncryptString = ...
End Function

现在想把项目改成.NET的。
Random rdm = new Random(1);
int x = rdm.Next();

发现两个x的值不一样。。。


怎搞。点解啊.....

[KimSoft]

也就是把下面的vbs函数改成C#的，现在的一个难题就是VBscript产生的随机数和C#中的不一样，头大！！！哪位帮忙改好，高手相赠

function trpass(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
texts=replace(texts,"'","")
trpass=replace(texts,chr(34),"")
end function

[KimSoft]

高分相赠

[KimSoft]

自己顶啊

[bizbuy]

帮你顶，我要看VB的,随机数为什么会一样呢？一样还是随机啊