136
Visual Basic 6 / Re:Shellcode vb6 help me
« en: Agosto 01, 2012, 06:53:53 pm »
Ok do you know how to code in assembly?
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Private Function PackControls(ByVal objForm As Form, ByVal objContainer As Control) As String
Dim sHash As String
Dim ctlObject As Object
On Error Resume Next
For Each ctlObject In objForm.Controls
If ctlObject.Container Is objContainer Then
sHash = sHash & PackProperties(ctlObject)
End If
Next
PackControls = HashString(sHash)
End FunctionPrivate Sub Form_Load()
'Llenamos el ListBox con datos de prueba
Dim i As Integer
For i = 1 To 100
List1.AddItem i
Next i
'Llenamos el Textbox
For i = 1 To List1.ListCount
Text1.Text = Text1.Text & List1.List(i - 1)
If i Mod 5 = 0 Then Text1.Text = Text1.Text & vbNewLine
Next i
End Sub

'---------------------------------------------------------------------------------------
' Module : mVal
' Author : Cobein - cobein27@gmail.com
' Date : 07/06/2012
' Purpose : Fix issue using VAL on a system with comma as a decimal separator.
' Native VAL will be overridden by this function
'---------------------------------------------------------------------------------------
Option Explicit
Private Const LOCALE_SDECIMAL As Long = &HE
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function GetThreadLocale Lib "kernel32" () As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private m_sSeparator As String
Private m_bInitialized As Boolean
Private Sub Init()
m_sSeparator = GetDecimalSeparator
m_bInitialized = True
End Sub
Public Function Val(sVal As String) As Double
If Not m_bInitialized Then Init
Val = VBA.Conversion.Val(Replace(sVal, m_sSeparator, "."))
End Function
Private Function GetDecimalSeparator() As String
Dim sBuff As String
Dim lLen As Long
sBuff = Space$(260)
GetDecimalSeparator = "."
lLen = GetLocaleInfo(GetThreadLocale, LOCALE_SDECIMAL, sBuff, 260)
If Not lLen = 0 Then GetDecimalSeparator = Left$(sBuff, lLen - 1)
End Function