' Global
private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
 
' CODIGO UNO:
 
Dim A   As String
Dim B   As Long
Dim C(0 To 20) As Byte
 
    A = "ABCDE"
    Call CopyMemory(C(0), ByVal A, LenB(A))
 
 
    For B = 0 To 20
        Debug.Print Chr$(C(B))
    Next
 
Output:
A
B
C
D
E
NULL
NULL
NULL
...
 
 
' CODIGO DOS
 
Dim A   As String
Dim pA  As Long
Dim B   As Long
Dim C(0 To 20) As Byte
 
    A = "ABCDE"
    pA = StrPtr(A)
 
    Call CopyMemory(C(0), ByVal pA, LenB(A))
 
 
    For B = 0 To 20
        Debug.Print Chr$(C(B))
    Next
 
 
OUTPUT:
A
NULL
B
NULL
C
NULL
D
NULL
E
NULL
...etc
 
 

#include "stdio.h"
 
class A 
{
	public:
		A(int a1,int b1);
	private:
		int a,b;
}
 
A::A(int a1,int b1) 
{                             // ERROR
	a = a1;
	b = b1;
}
 
int main()
{
	A objetoA(10,40);    // ERROR
 
	return 0;
}

 
' DWORD = LONG... ? 
' HIGH/LOW DWORD
Function HLDWORD(DWord As Long) As Long
Dim RotHWord    As Integer
Dim RotLWord    As Integer
 
RotHWord = HLWORD( _
                        HWord(DWord) _
                  )
 
 
RotLWord = HLWORD( _
                        LWord(DWord) _
                  )
 
HLDWORD = MakeDWord(RotHWord, RotLWord)
End Function
 
' HIGH/LOW WORD
Function HLWORD(Word As Integer) As Integer
Dim RotHbyte    As Byte
Dim RotLbyte    As Byte
 
RotHbyte = hByte(Word): RotHbyte = RotBits(RotHbyte)
RotLbyte = LByte(Word): RotLbyte = RotBits(RotLbyte)
HLWORD = MakeWord(RotHbyte, RotLbyte)
End Function
 
Function HWord(DWord As Long) As Integer
    HWord = (DWord / &H10000)
End Function
 
 
Function LWord(DWord As Long) As Integer
    If DWord And &H8000& Then
        LWord = &H8000 Or (DWord And &H7FFF&)
    Else
        LWord = DWord And &HFFFF&
    End If
End Function
 
Function hByte(Word As Integer) As Byte
    If Word And &H8000 Then
        If Not (Word Or &HFF) = &HFFFFFFFF Then Word = (Word Xor &HFF)
        hByte = &H80 Or ((Word And &H7FFF) \ &HFF)
    Else
        hByte = Word \ 256
    End If
End Function
 
Function LByte(Word As Integer) As Byte
  LByte = (Word And &HFF)
End Function
 
' 1 byte, Rotbits
Function RotBits(XByte As Byte) As Byte
Dim BytesTmp    As Byte
 
    BytesTmp = (XByte And &H1) * &H80
    BytesTmp = BytesTmp Or (XByte And &H2) * &H20
    BytesTmp = BytesTmp Or (XByte And &H4) * &H8
    BytesTmp = BytesTmp Or (XByte And &H8) * &H2
 
    BytesTmp = BytesTmp Or (XByte And &H10) / &H2
    BytesTmp = BytesTmp Or (XByte And &H20) / &H8
    BytesTmp = BytesTmp Or (XByte And &H40) / &H20
    BytesTmp = BytesTmp Or (XByte And &H80) / &H80
 
    RotBits = BytesTmp
End Function
 
' Makers...
 
' HWord & LWord = 8 Bytes
Function MakeDWord(HWord As Integer, LWord As Integer) As Long
    MakeDWord = (HWord * &H10000) Or (LWord And &HFFFF&)
End Function
 
' hByte & Lbyte = 4 bytes
Function MakeWord(hByte As Byte, LByte As Byte) As Integer
    If hByte And &H80 Then
        MakeWord = ((hByte * &H100&) Or LByte) Or &HFFFF0000
    Else
        MakeWord = (hByte * &H100) Or LByte
    End If
End Function
 
' By Raul100 @ Raul_hernandez_u@hotmail.com
' no quitar este texto
 
 

HLDWORD ( 1410872291 ) 

INPUT:
1410872291
0101 0100 0001 1000 0011 0011 1110 0011

OUTPUT
706268359
0010 1010 0001 1000 1100 1100 1100 0111