Mensajes

Esto va en .net

Usando ramdom podiras hacerlo.

das un rango y que el resultado sea un indice para un array donde estarian las respuestas.

es lo que se me ocurre. saludos

[@MCKSys Argentina & @Karcrack]

@MCKSys Argentina  & @Karcrack jajaja me pillaron. las dos formas las conocía, me gano la pereza "=flojera"    gracias compas.

[@Psyke1]

Estaría guay que pusieras comentado el código en ensamblador.

DoEvents!

@Psyke1 sabes que soy novato en la programación ¬¬ :S
No se mucho de ASM.  por eso dice traducción. el OP-code no es creado por mi.

Pero cuando tenga los conocimientos lo haré. saludos

Creo que tienes que cambiar unas cosas en la maquina. pero para que sea mejor usa replace. 

Bueno andaba probando unas cosas y me traduje este cifrado.

Código (vb) [Seleccionar] Expandir

' =================================================================
' =================================================================
' => Autor: Pink
' => RC4 ASM en linea
' => Gracias Ward(Version Autoit)
' => Fecha : 01|04|2013
' => Uso: misbytes()=RC4ASM(bytesacifrar(),"clave")
' =================================================================
' =================================================================


Option Explicit

Private Declare Function CallWindowProcW Lib "USER32" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Public Function RC4ASM(datos() As Byte, pass As String) As Byte()
Dim passbyte() As Byte
Dim B_RC4() As Byte
Dim Str_OP  As String
Dim i As Long

Str_OP = "C81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF8"
Str_OP = Str_OP & "88435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"
passbyte = StrConv(pass, vbFromUnicode)

ReDim B_RC4((Len(Str_OP) / 2) - 1)
For i = 1 To Len(Str_OP) - 1 Step 2
B_RC4(Int(i / 2)) = CByte("&h" & Mid(Str_OP, i, 2))
Next

CallWindowProcW VarPtr(B_RC4(0)), VarPtr(datos(0)), UBound(datos) + 1, VarPtr(passbyte(0)), 0

RC4ASM = datos()

End Function

Saludos

creo que esto servirá.

http://www.codeproject.com/Articles/32643/GMap-NET-Great-Maps-for-Windows-Forms-and-Presenta

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim cadena As String
'Dim retorno(8) As String
cadena = "# 2 "". aaaldu s2"" 256 STEAM_ID_LAN 3 07:56 16 0 181.14.170.179:27005"

MsgBox (Mid(cadena, 2, InStr(cadena, """") - 2))

End Sub


obvio hay mejor forma que esa solo es una idea.

[Instr,left,split,right,mid.]

Instr,left,split,right,mid.  


saludos

[x64Core]

x64Core no recuerda su tema.

http://foro.elhacker.net/asm/tutorial_configurar_radasm_masmfasmnasmtasm-t345502.0.html

Notepad++
gedit
Scintilla

Edito:
Yo uso el de FASM es Simple y Eficaz "Recién comenzando"
"Y mejor" el que se adapte mejor a tus necesidades.

Esos Métodos son muy viejos. 

aunque igual eso no es muy detectado.

hay muchas formas mira.

Código (vb) [Seleccionar] Expandir

' Autor ..........: Pink
'Nombre......... : Alternativa a LOF | FileLen
'Gracias JackNKush  Por la sugerencia

Private Declare Function GetCompressedFileSizeA Lib "kernel32" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long
Private Sub Form_Load()
Dim Size As String, myfile As String
myfile = "C:\Users\Pink\Desktop\1.exe"
Size = CStr(GetCompressedFileSizeA(myfile, ByVal 0&))
MsgBox (Size)
End Sub

Código (vb) [Seleccionar] Expandir

' Autor ..........: Pink
'Nombre......... : Alternativa a LOF | FileLen
Const GENERIC_READ = &H80000000
Const FILE_SHARE_READ = &H1
Const OPEN_EXISTING = 3
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function GetFileSizeEx Lib "kernel32" (ByVal hFile As Long, lpFileSize As Currency) As Boolean
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Form_load()
Dim file As String, hFile As String, nSize As Currency
file = "C:\Users\Pink\Desktop\1.exe"
hFile = CreateFile(file, GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, ByVal 0&, ByVal 0&)
GetFileSizeEx hFile, nSize
CloseHandle hFile
size = nSize * 10000
MsgBox (size)
End Sub

Código (vb) [Seleccionar] Expandir

' ===========================================================================================================================
' ===========================================================================================================================
' => Autor: M3
' => Reemplazo a App.Path & "\" & App.EXEName & ".exe"
' => Base en sMypath de Slek Indetectables.net
' => Detecciones : 0 | 37   ([url]http://scanner.udtools.net/reporte.php?id=o7v7_POqF[/url])
' => Flecha : 18|05|2012
' ===========================================================================================================================
' ===========================================================================================================================
Declare Function GetModuleFileNameA Lib "kernel32" (ByVal hModule As Integer, ByVal lpFileName As String, ByVal nSize As Integer) As Integer


Public Function sMyPathEx() As String

Dim i             As Long
Dim sParams()     As String


ReDim sParams(0)
For i = 0 To Len(sMyPathEx)
sParams(0) = String$(256, " ")
sMyPathEx = GetModuleFileNameA(i, sParams(0), 256)
sMyPathEx = sParams(i)
Next i

End Function



saludos