需要帮助将VB6转换为VB.NET [英] Need Help Converting VB6 to VB.NET

问题描述

Hello All，

我已经尝试了多个在线工具将VB6（bas）文件转换为

VB.NET文件，但没有运气。我希望有人可以帮我隐身

这个。我是.NET世界的新手，仍然学习所有的帮助将是

非常适合。

属性VB_Name =" Module1"

选项明确


昏暗通行证$

Dim Strg $


函数解密（ByVal H $）As String


Dim i As Integer，J $


传递$ =" THEFELDGROUP"


'' H $ =缓冲加密数据


H $ =中间$（H $，3，Val（左$（H $，2）））


''debuffer


Strg $ =""

for i = 1 To Len（H $）Step 2
J $ = Mid $（H $，i，2）

Strg $ = Strg $ + Chr $（Val（& H" + J $））

下一页


''Strg $现在包含加密字符串，你现在可以解密了。

''解密。


Call Crypt（传递$，Strg $）


''strg $ now现在被解密


decrypt = Strg $


结束功能


功能地穴（传递$，Strg $）

Dim a，b

Dim i As Integer


a = 1

对于i = 1到Len（Strg $）

b = Asc（Mid $（传递$，a，1））：a = a + 1：如果是Len（传递$）那么a =

1

Mid $（Strg $，i，1）= Chr $（Asc（Mid $（Strg $，i，1））Xor b）

下一页


结束功能

Hello All,
I have tried multiple online tools to convert an VB6 (bas) file to
VB.NET file and no luck. I was hoping that someone could help me covert
this. I am new to the .NET world and still learning all help would be
greatly apperciated.
Attribute VB_Name = "Module1"
Option Explicit

Dim pass$
Dim Strg$

Function decrypt(ByVal H$) As String

Dim i As Integer, J$

pass$ = "THEFELDGROUP"

''H$ = the buffered encrypted data

H$ = Mid$(H$, 3, Val(Left$(H$, 2)))

'' debuffer it

Strg$ = ""
For i = 1 To Len(H$) Step 2
J$ = Mid$(H$, i, 2)
Strg$ = Strg$ + Chr$(Val("&H" + J$))
Next

''Strg$ now contains the encrypted string, which you can now
''decrypt.

Call Crypt(pass$, Strg$)

''strg$ now is decrypted

decrypt = Strg$

End Function

Function Crypt(pass$, Strg$)
Dim a, b
Dim i As Integer

a = 1
For i = 1 To Len(Strg$)
b = Asc(Mid$(pass$, a, 1)): a = a + 1: If a Len(pass$) Then a =
1
Mid$(Strg$, i, 1) = Chr$(Asc(Mid$(Strg$, i, 1)) Xor b)
Next

End Function

推荐答案

Dim Strg

Dim Strg

函数解密（ByVal H

Function decrypt(ByVal H

）As String


Dim i As Integer，J

) As String

Dim i As Integer, J

这篇关于需要帮助将VB6转换为VB.NET的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！