幫助將一些經典的ASP代碼轉換為C＃（.net 3.5）

Question

我在努力轉換為C＃的.asp文件中有這段代碼，...有人可以幫助我嗎？

Function EncodeCPT(ByVal sPinCode, ByVal iOfferCode, ByVal sShortKey, ByVal sLongKey)
    Dim vob(2), encodeModulo(256), decodeX, ocode
    decodeX = " abcdefghijklmnopqrstuvwxyz0123456789!$%()*+,-.@;<=>?[]^_{|}~"
    if len(iOfferCode) = 5 then
        ocode = iOfferCode Mod 10000
    else
        ocode = iOfferCode
    end if
    vob(1) = ocode Mod 100
    vob(0) = Int((ocode-vob(1)) / 100)
    For i = 1 To 256
        encodeModulo(i) = 0
    Next
    For i = 0 To 60
        encodeModulo(asc(mid(decodeX, i + 1, 1))) = i
    Next
    'append offer code to key
    sPinCode = lcase(sPinCode) & iOfferCode
    If Len(sPinCode) < 20 Then
        sPinCode = Left(sPinCode & " couponsincproduction", 20)
    End If
    'encode
    Dim i, q, j, k, sCPT, s1, s2, s3
    i = 0
    q = 0
    j = Len(sPinCode)
    k = Len(sShortKey)
    sCPT = ""
    For i = 1 To j
        s1 = encodeModulo(asc( mid(sPinCode, i, 1)) )
        s2 = 2 * encodeModulo( asc( mid(sShortKey, 1 + ((i - 1) Mod k), 1) ) )
        s3 = vob(i Mod 2)
        q = (q + s1 + s2 + s3) Mod 61
        sCPT = sCPT & mid(sLongKey, q + 1, 1)
    Next
    EncodeCPT = sCPT
End Function

Answer 1

您在這里擁有的似乎是非常標准的VBScript代碼。

也許您可以看一些C＃教程以獲取基礎知識，或者可以選擇VB.NET而不是C＃。

語法與VBScript幾乎相同，但是請記住，.NET框架是面向對象的，因此某些功能部件不是以相同的方式實現的。

例如，如果要獲取字符串的長度，則將使用myString.Length而不是Len（myString）。

這里有一些C＃和VB.NET教程供您查看。

http://www.csharp-station.com/Tutorial.aspx

http://www.csharpkey.com/csharp/Lesson01.htm

http://www.programmersheaven.com/2/VB-NET-School

http://www.homeandlearn.co.uk/net/vbnet.html