Foro de elhacker.net

for i = 0 to string.lenth
array[i] = string[i]
next
 

 
Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, ByVal Source As Any, ByVal Length As Long)
Private Declare Function VarPtrA Lib "msvbvm60.dll" Alias "VarPtr" (ByRef Ptr() As Any) As Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
 
Private Sub Form_Load()
Dim i           As Integer
Dim sVar        As String
Dim aStr()      As Integer
Dim iDims       As Long
 
    sVar = "Miguel Angel"
    iDims = charSplitToIntArray(StrPtr(sVar), aStr())
    For i = 0 To (iDims - 1)
        Debug.Print Chr(aStr(i))
    Next i
End Sub
 
Private Function charSplitToIntArray(ByVal PtrString As Long, ByRef aPtr() As Integer) As Long
Dim lLen      As Long
    lLen = lstrlenW(ByVal PtrString)
    ReDim aPtr(0 To (lLen - 1))
    CopyMemory ByVal VarPtr(aPtr(0)), ByVal PtrString, (lLen * 2)
    charSplitToIntArray = lLen - 1
End Function
 
 

 
Private Sub Form_Load()
Dim i           As Integer
Dim sVar        As String
Dim aStr()      As Integer
Dim iDims       As Long
 
    sVar = "Miguel Angel"
    iDims = charSplitToIntArray(StrPtr(sVar)+(7*2), aStr()) '// Retorno Angel...
    For i = 0 To (iDims - 1)
        Debug.Print Chr(aStr(i))
    Next i
End Sub
 
 

Option Explicit
 
Private Static Function String2Array(ByRef strText$, ByRef strOutPut$()) As Boolean
Dim bytStr() As Byte
Dim Q&, lngLen&
 
    lngLen = (LenB(strText) \ 2) - 1
 
    If lngLen And &H80000000 Then Exit Function
 
    '// Aquí el famoso "StronV"... xP
    bytStr = Strings.StrConv(strText, vbFromUnicode)
    ReDim strOutPut$(0 To lngLen)
 
    For Q = 0 To lngLen
        strOutPut(Q) = Strings.ChrW$(bytStr(Q))
    Next Q
 
    String2Array = True
End Function
 
Private Sub Form_Load()
Dim varItem
Dim strO$()
 
    If String2Array("Psyke1", strO) Then
        For Each varItem In strO
            Debug.Print varItem
        Next varItem
    End If
End Sub

P
s
y
k
e
1