Hallo freunde, ich habe ein paar Programm schnipsel gefunden, die aber nur sehr wenig bis garnicht protokolliert sind.
Kann mir bitte eine Beschreibung zu diesen sachen geben? Wäre euch sehr dankbar, da ich es ja auch verstehen will warum was so funzt.
<pre>
Option Explicit
Public Function EncodeString(ByVal strToEncode As String, ByVal strPassword As String) As String
</pre>
<pre>
For i = 1 To UBound(cfc)
cfc(i) = Asc(Right(strPassword, Len(strPassword) - i + 1))
Next i
</pre>
Was bedeutet eine Funktion wie diese
<pre>
Private Function VirtPos(i As Long, a() As Integer) As Integer
.
.
.
End Function
Private Function addToIndex(i As Integer, j As Integer) As Integer
.
.
.
End Function
Private Function GetOfIndex(i As Integer, j As Integer) As Integer
.
.
.
End Function
</pre>
Vielen Dank im Voraus
Greez ProSoft @lias Professional Software
Kann mir bitte eine Beschreibung zu diesen sachen geben? Wäre euch sehr dankbar, da ich es ja auch verstehen will warum was so funzt.
<pre>
Option Explicit
Public Function EncodeString(ByVal strToEncode As String, ByVal strPassword As String) As String
</pre>
<pre>
For i = 1 To UBound(cfc)
cfc(i) = Asc(Right(strPassword, Len(strPassword) - i + 1))
Next i
</pre>
Was bedeutet eine Funktion wie diese
<pre>
Private Function VirtPos(i As Long, a() As Integer) As Integer
.
.
.
End Function
Private Function addToIndex(i As Integer, j As Integer) As Integer
.
.
.
End Function
Private Function GetOfIndex(i As Integer, j As Integer) As Integer
.
.
.
End Function
</pre>
Vielen Dank im Voraus
Greez ProSoft @lias Professional Software