Vielen Dank !!!
Beiträge von magik
-
-
ich habe nur programmieren in C/C++ gelenrt und Basic Programmierung kenne ich mich ueberhaupt nicht aus
und das Progr... brauche ich dringend
-
Hi, ich hoffe mir kann jemand helfen ein Programm von Visual Basic in C/C++ umzusetzen
Hier ist das Programm:
Private Sub PolyCode_Click()
Dim i As Integer
Dim n As Byte
Dim b As String
Dim key(1 To 10) As Byte
TBCode = ""
If TBKey = "" Then TBKey = "a"
For i = 1 To Len(TBKey)
b = UCase(Mid(TBKey, i, 1))
key(i) = Asc(b) - 65
Next
For i = 1 To Len(TBQuelle)
b = UCase(Mid(TBQuelle, i, 1))
n = Asc(b)
If (n>64) And (n<92) Then
n = n+key((i-1) Mod Len (TBKey)+1)
If n>90 Then n = n-26
b= Chr(n)
End If
TBCode = TBCode & b
Next
End SubDas was: Danke
:confused::confused: