|
Codigos Fuente VB6 -
Codigos Fuente VB6
|
|
Written by BlackZeroX
|
|
Monday, 07 November 2011 10:00 |
el codigo esta Basado en la idea principal de KarCrack que a su ves se baso en el codigo de mi tutela para la de Extraccion de API de VB6 para crear lo siguiente (Modificado por un servidor para no usar las APIS en Base a un modulo o metodo HACK para accesar a posiciones de memoria sin APIS).
Requiere el Modulo mMemoryEx
EJEMPLO:
option explicit
Sub Main()
Const USER32 As String = "VTFS43"
Const MESSAGEBOXW As String = "NfttbhfCpyB"
Const MSG_PROMPT As String = "InfrAngeluX.sytes.net"
Const MSG_TITLE As String = "By BlackZeroX"
If mMemoryEx.Initialize Then
If unScrambleAPI(USER32, MESSAGEBOXW) = True Then
Call MessageBox(0, MSG_PROMPT, MSG_TITLE, 0)
End If
Else
MsgBox "Error"
End If
End Sub
|
|
Last Updated on Monday, 07 November 2011 10:34 |
|
|
Codigos Fuente VB6 -
Codigos Fuente VB6
|
|
Written by BlackZeroX
|
|
Monday, 07 November 2011 09:29 |
Version extendida del modulo mMemory de KarCrack para el manejo de memoria de manera mas libre en VB6.
Dichas extenciones comprenden desde crear memoria desde el mismo VB6 (sin llamar a APIS) como escribir en un bloque de memoria DADO.
Ejemplo:
Sub Main()
Dim sStr1 As String
Dim sStr2 As String
Dim lpStr As Long
sStr1 = "BlackZeroX"
sStr2 = "InfrAngeluX-Soft"
MsgBox sStr1 & vbCrLf & sStr2
lpStr = mMemoryEx.cloneString(VarPtr(sStr2), sStr1) ' <--------------------- clone sStr1.
MsgBox sStr1 & vbCrLf & sStr2
Call mMemoryEx.swapVarPtr(VarPtr(lpStr), VarPtr(sStr2)) ' // restauramos.
MsgBox sStr1 & vbCrLf & sStr2
Call mMemoryEx.releaseMemStr(lpStr) ' // liberamos la copia de sStr1 (release sStr1 clone)
' // Other example.
Dim sStr3 As String
Dim lpSafe As Long
lpSafe = mMemoryEx.allocMem((LenB(sStr1) + 4 + 2))
lpStr = (mMemoryEx.getMemData(lpSafe) + 4)
Call mMemoryEx.copyMemory((lpStr - 4), (StrPtr(sStr1) - 4), (LenB(sStr1) + 4 + 2))
Call mMemoryEx.swapVarPtr(VarPtr(sStr3), VarPtr(lpStr))
MsgBox "ejemplo 2: " & sStr3
Call mMemoryEx.swapVarPtr(VarPtr(sStr3), VarPtr(lpStr))
mMemoryEx.releaseMem (lpSafe) ' // liberamos la memoria reservada con allocMem()
MsgBox "ejemplo 2 Finish: " & sStr3
End Sub
|
|
Last Updated on Monday, 07 November 2011 10:33 |
|
Codigos Fuente VB6 -
Codigos Fuente VB6
|
|
Written by BlackZeroX
|
|
Saturday, 08 October 2011 21:08 |
|
.
Esta es una recreacion de la clase cSpectrumColor solo que en forma de funcion.
|
|
|
Codigos Fuente VB6 -
Codigos Fuente VB6
|
|
Written by BlackZeroX
|
|
Friday, 21 October 2011 20:24 |
Funciones para obtener Bytes, y rotar Bits en longitudes de 8,16,32 y 64 bits, y de bytes en bytes.
Este codigo fuente esta basdo en los de Raul100:
http://foro.elhacker.net/programacion_visual_basic/sources_code_rotbits_byte_to_byte-t342467.0.html
|
|
Last Updated on Sunday, 30 October 2011 05:26 |
|
Codigos Fuente VB6 -
Codigos Fuente VB6
|
|
Written by BlackZeroX
|
|
Saturday, 08 October 2011 19:47 |
|
El siguiente modulo de clase rectifica si un color pertece a un mismo espetro de color es decir compara analogamente el color con otro respecto a una tolerancia.
Esta clase surgui de un proyecto entre Spyke1 y un servidor, aunq ue termine realizando la comparacion de colores.
|
|
Last Updated on Saturday, 08 October 2011 20:00 |
|
|
|
|
<< Start < Prev 1 2 3 4 5 6 7 8 Next > End >>
|
|
Page 1 of 8 |
