У меня возникла проблема с куском кода в vb.net. В этом поток управления переходит в условие else, даже если значение в if равно правда.условие if истинно, но поток программы переходит в другую часть в vb
Я использовал это в качестве входных данных: WD-WXK0AC9T7316
код:
Private Function EncryptHDKey(ByVal Hd_no As String) As String
Dim EncryptedString As String = ""
For Each ch As Char In Hd_no
If ((ch >= "0" And ch <= "9") Or (ch >= "a" And ch <= "z") Or (ch >= "A" And ch <= "Z")) Then
If (Convert.ToChar((Convert.ToInt16(ch) + 4)) > "9" And ch <= "9") Then
EncryptedString = EncryptedString + Convert.ToChar((Convert.ToInt16(ch) + 3) - Convert.ToInt16("9"))
Else
If (Convert.ToChar((Convert.ToInt16(ch) + 4)) > "z" And ch <= "z") Then
EncryptedString = EncryptedString + Convert.ToChar(Microsoft.VisualBasic.Asc("a") + (Convert.ToInt16(ch) + 3) - Microsoft.VisualBasic.Asc("z"))
Else
If (Convert.ToChar(Convert.ToInt16(ch) + 4) > "Z" And ch <= "Z") Then
EncryptedString = EncryptedString + Convert.ToChar(Microsoft.VisualBasic.Asc("A") + (Convert.ToInt16(ch) + 3) - Microsoft.VisualBasic.Asc("Z"))
Else
EncryptedString = EncryptedString + Convert.ToChar(Convert.ToInt16(ch) + 4)
End If
End If
End If
Else
EncryptedString = EncryptedString + ch
End If
Next
Return (EncryptedString)
End Function
я не имею права скриншот еще которым загрузка, поэтому я загрузил снимок экрана в этом месте. www (dot) freeimagehosting (dot) net/y6ea3
Пожалуйста, внесите свой код. – varocarbas
Что если условие дает проблемы? –
Третий Если (Convert.ToChar (Convert.ToInt16 (ch) + 4)> "Z" И ch <= "Z") Тогда – user2617874