elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13
81  Programación / Programación Visual Basic / Re: Denme Ideas! en: 5 Octubre 2008, 22:18 pm
los ocx que utilize fueron activeskin y hookmenu los pueden descargar en recursosvisualbasic.com.ar xD
82  Programación / Programación Visual Basic / Re: Denme Ideas! en: 5 Octubre 2008, 14:07 pm
EON el skin que utilize me lo descargue de recursosvisualbasic.com.ar es el estilo mac no me acuerdo del nombre pero lo puedes descargar en este paquete http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/207-listado-de-36-skins-para-vb.htm ah y por suerte no me lo detecta el antivirus aunque quiero hacerte una preguntilla, como puedo hacer para listar los drivers....? Bueno gracias por los comentarios..
83  Programación / Programación Visual Basic / Denme Ideas! en: 5 Octubre 2008, 00:07 am
Bueno chicos no se si se acordaran que hace poco yo me puse a hacer un troyano sin saber nada de VB, pues si no tenia ni idea de como se utilizaba ni el control Winsock, pero como a mi me gusta aprender asi a lo loco me puse un reto aprender visual basic y crearun troyano..Pues si ya casi esta solo le faltan algunos detalles importantes pero creo que dentro de poco van a conocer a esta nueva creación que estoy llevando a cabo gracias a ustedes...Una comunidad que siempre ah sabido apollarme aunque a veces yo sea un poco molesto y haga muchas preguntas...Pero como todo asi soy yo me gusta aprender y tratar de llegar lo más lejo posible...Bueno aqui les dejo algunos screenhots de como esta quedando el proyecto hasta ahora....

INTERFAZ GRAFICA



OPCIONES



ICONO EN EL SYSTRAY CON OPCIONES



OPCIONES DE INTERNET REMOTAS



KEYLOGGER REMOTO (ONLINE Y OFFLINE)



FILEMANAGER PROPORCIONADO POR EON (ESPERO NO ESTAR INCUMPLIENDO NINGUN DERECHO DE AUTOR NI NADA DE ESO)



ENVIO DE TODO TIPO DE MENSAJES



MANEJO DE CONTACTOS DEL MSN



ENVIO DE BATCH



CHAT CON SERVIDOR



REMOTE SHELL TOTALMENTE FUNCIONAL



MANEJO DE CLIPBOARD REMOTO



JOINER BY EON



PEQUEÑO CRYPTER PERO HACE MARAVILLAS



MUCHISIMAS BROMAS



TIENE UN INOTES PARA GUARDAR SUS NOTAS



ESTADISTICAS DE CONEXION



Bueno en total con todas estas opciones el cliente tiene un tamaño de 656kb y el server de 184 kb pero como ustedes pueden ver me faltan 8 opciones que para mi son muy importantes y quiero ponerselas antes de colgar el troyano..Las opciones que me faltan y que no se como hacerlas son .....

-Webcam Capture
-Screem Capture
-Procces Manager
-Editor de Registro Remoto
-Procces Manager
-Windows Manager
-Ver Password Remotos
-Editor de Server

Bueno chicos si alguien quiere ayudarme con las opciones que me faltan o simplemente hacerme sugerencias de que podria cambiar o agregar solo escribanmelo o envienme un MP que yo me pondre les respondere tan pronto lea el mensaje...A y no se olviden de dejar comentarios para ver que le parace mi Troyano.....Tambien necesito un Nombre...Estoy abierto a sugerencias!!!
84  Programación / Programación Visual Basic / Ayuda dll en: 4 Octubre 2008, 18:50 pm
Hola amigos tengo una duda que les queria comentar haber si me pueden ayudar el caso es que yo tengo hecho un server, pero el mismo necesita de una dll para realizar una acción determinada, pero como ustedes ya saben los server no pueden venir con dll apartes porque o si no se darian cuenta las personas que lo vallan a abrir, entonces lo que yo necesito es que ustedes me ayuden para hacer que la dll se adjunte al proyecto y que cuando habran el server esta se extraiga en la ruta del sistema...Ah eso sin usar ningun joiner solo que sea con VB...Gracias de antemano..Luego les enseño como esta quedando!!.XDDDDD
85  Programación / Programación Visual Basic / cJPG en: 2 Octubre 2008, 19:46 pm
Hola amigos, tengo una duda soble el control de clase cJPG ya que ahora estoy hcaiendo el capture screem de mi troyano pero las imagenes son muy grandes y no tengo ni idea de como usar el control cJPEG para quitarle tamaño..Eh buscado en el foro y lo unico que veo de cJPEG son ejemplos que no me sirven asi que quisiera saber si me pueden explicar como se utiliza esta clase...Muchas Gracias..
86  Programación / Programación Visual Basic / Re: Problema al ejecutar mi troyano en otro pc en: 27 Septiembre 2008, 15:37 pm
Tio lo que podria hacer es utilizar una API en vez del winsock aqui te la dejo..

El uso de esta API es realemten sencillo, son dos un modulo .bas y un class module, los agregas a tu proyecto
Luego de haberlos agregado, en la parte general del form donde van a trabajar con la API, agregas esto:

Código:
Dim WithEvents NombreDelSocket as CSocketMaster

donde dice, NombreDelSocket hay pueden poner lo que quieran, ejemplos (ws, WS, winsock, etc)...
Luego de hacer esto en el Form_Load de su formluario ponen esto:

Código:
Private sub Form_Load()
set NombreDelSocker = New CSocketMaster
End sub

donde NombreDelSocket, es el mismo nombre del socket que le pusieron en la parte general! Giñar.. ejemplo por si no lo entiendes.

Dim WithEvents ws as CSocketMaster
 
Private sub Form_Load()
set ws = New CSocketMaster
End sub


una cosa, en al que difiere esta "API" del winsock, es en el evento close.. por ejemplo con la ocx se usa asi:


Código:
NombreDelSocket.close

en cambio con la API debe ser asi:

Código:
NombreDelSocket.CloseSck

Pues, creo que esa es la unica cosita que difiere, para todo lo demas, es lo mismo que con la ocx, aqui te dejo la descarga de el modulo y el class, para que lo agregues a tu proyecto!

http://rs1.rapidshare.com/files/146951703/CSocketMaster.zip

Espero que te sirva! xD
87  Programación / Programación Visual Basic / Banderas! en: 26 Septiembre 2008, 18:00 pm
Hola de nuevo chicos, pues hoy tengo un problema con un code y queria comentarselo para ver si me pueden ayudar bueno la cosa es que por ahi por internet navegando me encontre con un source que cuando das clic en un cierto boton el mismo te agrega el pais y la bandera a el listview, eso era lo que yo estaba buscando hace ya un tiempo miren aqui el code del modulo!

Código:
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 Const LOCALE_SYSTEM_DEFAULT As Long = &H400
Private Const LOCALE_SENGCOUNTRY = &H1002

Public Function GetCountry() As String
Dim sName As String * 256, lBuffSize As Long

lBuffSize = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, ByVal sName, Len(sName))

GetCountry = Left(sName, lBuffSize - 1)

End Function

Public Function GetFlag(sCountry As String) As Integer

Select Case (sCountry)
    Case "Andorra":
        GetFlag = 1
    Case "United Arab Emirates":
        GetFlag = 2
    Case "Afghanistan":
        GetFlag = 3
    Case "Antigua and Barbuda":
        GetFlag = 4
    Case "Anguilla":
        GetFlag = 5
    Case "Albania":
        GetFlag = 6
    Case "Armenia":
        GetFlag = 7
    Case "Netherlands Antilles":
        GetFlag = 8
    Case "Angola":
        GetFlag = 9
    Case "Argentina":
        GetFlag = 10
    Case "American Samoa":
        GetFlag = 11
    Case "Austria":
        GetFlag = 12
    Case "Australia":
        GetFlag = 13
    Case "Aruba":
        GetFlag = 14
    Case "Åland Islands":
        GetFlag = 15
    Case "Azerbaijan":
        GetFlag = 16
    Case "Bosnia":
        GetFlag = 17
    Case "Herzegovina":
        GetFlag = 17
    Case "Barbados":
        GetFlag = 18
    Case "Bangladesh":
        GetFlag = 19
    Case "Belgium":
        GetFlag = 20
    Case "Burkina Faso":
        GetFlag = 21
    Case "Bulgaria":
        GetFlag = 22
    Case "Bahrain":
        GetFlag = 23
    Case "Burundi":
        GetFlag = 24
    Case "Benin":
        GetFlag = 25
    Case "Bermuda":
        GetFlag = 26
    Case "Brunei Darussalam":
        GetFlag = 27
    Case "Bolivia":
        GetFlag = 28
    Case "Brazil":
        GetFlag = 29
    Case "Bahamas":
        GetFlag = 30
    Case "Bhutan":
        GetFlag = 31
    Case "Bouvet Island":
        GetFlag = 32
    Case "Botswana":
        GetFlag = 33
    Case "Belarus":
        GetFlag = 34
    Case "Belize":
        GetFlag = 35
    Case "Canada":
        GetFlag = 36
    Case "Cocos (Keeling) Islands":
        GetFlag = 37
    Case "Congo, the Democratic Republic of the":
        GetFlag = 38
    Case "Central African Republic":
        GetFlag = 39
    Case "Congo":
        GetFlag = 40
    Case "Switzerland":
        GetFlag = 41
    Case "Côte d'Ivoire":
        GetFlag = 42
    Case "Cook Islands":
        GetFlag = 43
    Case "Chile":
        GetFlag = 44
    Case "Cameroon":
        GetFlag = 45
    Case "China":
        GetFlag = 46
    Case "Colombia":
        GetFlag = 47
    Case "Costa Rica":
        GetFlag = 48
    Case "Cuba":
        GetFlag = 49
    Case "Cape Verde":
        GetFlag = 50
    Case "Christmas Island":
        GetFlag = 51
    Case "Cyprus":
        GetFlag = 52
    Case "Czech Republic":
        GetFlag = 53
    Case "Germany":
        GetFlag = 54
    Case "Djibouti":
        GetFlag = 55
    Case "Denmark":
        GetFlag = 56
    Case "Dominica":
        GetFlag = 57
    Case "Dominican Republic":
        GetFlag = 58
    Case "Algeria":
        GetFlag = 59
    Case "Ecuador":
        GetFlag = 60
    Case "Estonia":
        GetFlag = 61
    Case "Egypt":
        GetFlag = 62
    Case "Western Sahara":
        GetFlag = 63
    Case "Eritrea":
        GetFlag = 64
    Case "Spain":
        GetFlag = 65
    Case "Ethiopia":
        GetFlag = 66
    Case "Finland":
        GetFlag = 67
    Case "Fiji":
        GetFlag = 68
    Case "Falkland Islands (Malvinas)":
        GetFlag = 69
    Case "Micronesia, Federated States of":
        GetFlag = 70
    Case "Faroe Islands":
        GetFlag = 71
    Case "France":
        GetFlag = 72
    Case "Gabon":
        GetFlag = 73
    Case "United Kingdom":
        GetFlag = 74
    Case "Grenada":
        GetFlag = 75
    Case "Georgia":
        GetFlag = 76
    Case "Guernsey":
        GetFlag = 77
    Case "Ghana":
        GetFlag = 78
    Case "Gibraltar":
        GetFlag = 79
    Case "Greenland":
        GetFlag = 80
    Case "Gambia":
        GetFlag = 81
    Case "Guinea":
        GetFlag = 82
    Case "Guadeloupe":
        GetFlag = 83
    Case "Equatorial Guinea":
        GetFlag = 84
    Case "Greece":
        GetFlag = 85
    Case "South Georgia and the South Sandwich Islands":
        GetFlag = 86
    Case "Guatemala":
        GetFlag = 87
    Case "Guam":
        GetFlag = 88
    Case "Guinea-Bissau":
        GetFlag = 89
    Case "Guyana":
        GetFlag = 90
    Case "Hong Kong":
        GetFlag = 91
    Case "Heard Island and McDonald Islands":
        GetFlag = 92
    Case "Honduras":
        GetFlag = 93
    Case "Croatia":
        GetFlag = 94
    Case "Haiti":
        GetFlag = 95
    Case "Hungary":
        GetFlag = 96
    Case "Indonesia":
        GetFlag = 97
    Case "Ireland":
        GetFlag = 98
    Case "Israel":
        GetFlag = 99
    Case "Isle of Man":
        GetFlag = 100
    Case "India":
        GetFlag = 101
    Case "British Indian Ocean Territory":
        GetFlag = 102
    Case "Iraq":
        GetFlag = 103
    Case "Iran, Islamic Republic of"
        GetFlag = 104
    Case "Iceland":
        GetFlag = 105
    Case "Italy":
        GetFlag = 106
    Case "Jersey":
        GetFlag = 107
    Case "Jamaica":
        GetFlag = 108
    Case "Jordan":
        GetFlag = 109
    Case "Japan":
        GetFlag = 110
    Case "Kenya":
        GetFlag = 111
    Case "Kyrgyzstan":
        GetFlag = 112
    Case "Cambodia":
        GetFlag = 113
    Case "Kiribati":
        GetFlag = 114
    Case "Comoros":
        GetFlag = 115
    Case "Saint Kitts and Nevis":
        GetFlag = 116
    Case "Korea, Democratic People's Republic of":
        GetFlag = 117
    Case "Korea, Republic of":
        GetFlag = 118
    Case "Kuwait":
        GetFlag = 119
    Case "Cayman Islands":
        GetFlag = 120
    Case "Kazakhstan":
        GetFlag = 121
    Case "Lao People's Democratic Republic":
        GetFlag = 122
    Case "Lebanon":
        GetFlag = 123
    Case "Saint Lucia":
        GetFlag = 124
    Case "Liechtenstein":
        GetFlag = 125
    Case "Sri Lanka":
        GetFlag = 126
    Case "Liberia":
        GetFlag = 127
    Case "Lesotho":
        GetFlag = 128
    Case "Lithuania":
        GetFlag = 129
    Case "Luxembourg":
        GetFlag = 130
    Case "Latvia":
        GetFlag = 131
    Case "Libyan Arab Jamahiriya":
        GetFlag = 132
    Case "Morocco":
        GetFlag = 133
    Case "Monaco":
        GetFlag = 134
    Case "Moldova, Republic of":
        GetFlag = 135
    Case "Montenegro":
        GetFlag = 136
    Case "Madagascar":
        GetFlag = 137
    Case "Marshall Islands":
        GetFlag = 138
    Case "Macedonia, the former Yugoslav Republic of":
        GetFlag = 139
    Case "Mali":
        GetFlag = 140
    Case "Myanmar":
        GetFlag = 141
    Case "Mongolia":
        GetFlag = 142
    Case "Macao":
        GetFlag = 143
    Case "Northern Mariana Islands":
        GetFlag = 144
    Case "Martinique":
        GetFlag = 145
    Case "Mauritania":
        GetFlag = 146
    Case "Montserrat":
        GetFlag = 147
    Case "Malta":
        GetFlag = 148
    Case "Mauritius":
        GetFlag = 149
    Case "Maldives":
        GetFlag = 150
    Case "Malawi":
        GetFlag = 151
    Case "Mexico":
        GetFlag = 152
    Case "Malaysia":
        GetFlag = 153
    Case "Mozambique":
        GetFlag = 154
    Case "Namibia":
        GetFlag = 155
    Case "New Caledonia":
        GetFlag = 156
    Case "Niger":
        GetFlag = 157
    Case "Norfolk Island":
        GetFlag = 158
    Case "Nigeria":
        GetFlag = 159
    Case "Nicaragua":
        GetFlag = 160
    Case "Netherlands":
        GetFlag = 162
    Case "Norway":
        GetFlag = 162
    Case "Nepal":
        GetFlag = 163
    Case "Nauru":
        GetFlag = 164
    Case "Niue":
        GetFlag = 165
    Case "New Zealand":
        GetFlag = 166
    Case "Oman":
        GetFlag = 167
    Case "Panama":
        GetFlag = 168
    Case "Peru":
        GetFlag = 169
    Case "French Polynesia":
        GetFlag = 170
    Case "Papua New Guinea":
        GetFlag = 171
    Case "Philippines":
        GetFlag = 172
    Case "Pakistan":
        GetFlag = 173
    Case "Poland":
        GetFlag = 174
    Case "Saint Pierre":
        GetFlag = 175
    Case "Miquelon":
        GetFlag = 175
    Case "Pitcairn":
        GetFlag = 176
    Case "Puerto Rico":
        GetFlag = 178
    Case "Palestinian Territory, Occupied":
        GetFlag = 178
    Case "Portugal":
        GetFlag = 179
    Case "Palau":
        GetFlag = 180
    Case "Paraguay":
        GetFlag = 181
    Case "Qatar":
        GetFlag = 182
    Case "Réunion":
        GetFlag = 183
    Case "Romania":
        GetFlag = 184
    Case "Serbia":
        GetFlag = 185
    Case "Russian Federation":
        GetFlag = 186
    Case "Rwanda":
        GetFlag = 187
    Case "Saudi Arabia":
        GetFlag = 188
    Case "Solomon Islands":
        GetFlag = 189
    Case "Seychelles":
        GetFlag = 190
    Case "Sudan":
        GetFlag = 191
    Case "Sweden":
        GetFlag = 192
    Case "Singapore":
        GetFlag = 193
    Case "Saint Helena":
        GetFlag = 194
    Case "Slovenia":
        GetFlag = 195
    Case "Svalbard":
        GetFlag = 196
    Case "Jan Mayen":
        GetFlag = 197
    Case "Slovakia":
        GetFlag = 198
    Case "Sierra Leone":
        GetFlag = 199
    Case "San Marino":
        GetFlag = 200
    Case "Senegal":
        GetFlag = 201
    Case "Somalia":
        GetFlag = 202
    Case "Suriname":
        GetFlag = 203
    Case "Sao Tome and Principe":
        GetFlag = 204
    Case "El Salvador":
        GetFlag = 205
    Case "Syrian Arab Republic":
        GetFlag = 206
    Case "Swaziland":
        GetFlag = 207
    Case "Turks":
        GetFlag = 208
    Case "Caicos Islands":
        GetFlag = 209
    Case "Chad":
        GetFlag = 210
    Case "French Southern Territories":
        GetFlag = 211
    Case "Togo":
        GetFlag = 212
    Case "Thailand":
        GetFlag = 213
    Case "Tajikistan":
        GetFlag = 214
    Case "Tokelau":
        GetFlag = 215
    Case "Timor-Leste":
        GetFlag = 216
    Case "Turkmenistan":
        GetFlag = 217
    Case "Tunisia":
        GetFlag = 218
    Case "Tonga":
        GetFlag = 219
    Case "Turkey":
        GetFlag = 220
    Case "Trinidad and Tobago":
        GetFlag = 221
    Case "Tuvalu":
        GetFlag = 222
    Case "Taiwan, Province of China":
        GetFlag = 223
    Case "Tanzania, United Republic of":
        GetFlag = 224
    Case "Ukraine":
        GetFlag = 225
    Case "Uganda":
        GetFlag = 226
    Case "United States Minor Outlying Islands":
        GetFlag = 227
    Case "United States":
        GetFlag = 228
    Case "Uruguay":
        GetFlag = 229
    Case "Uzbekistan":
        GetFlag = 230
    Case "Saint Vincent and the Grenadines":
        GetFlag = 231
    Case "Venezuela":
        GetFlag = 232
    Case "Virgin Islands, British":
        GetFlag = 233
    Case "Virgin Islands, U.S.":
        GetFlag = 234
    Case "Viet Nam":
        GetFlag = 235
    Case "Vanuatu":
        GetFlag = 236
    Case "Wallis and Futuna":
        GetFlag = 237
    Case "Samoa":
        GetFlag = 238
    Case "Yemen":
        GetFlag = 239
    Case "Mayotte":
        GetFlag = 240
    Case "South Africa":
        GetFlag = 241
    Case "Zambia":
        GetFlag = 242
    Case "Zimbabwe":
        GetFlag = 243
    
End Select
        
End Function





Y en el form principal hay un Form con un listview llamado lsFlags, tambien hay un boton que cuando das clic te agrega al listview el pais local y la bandera..

el code de este!

Código:
Private Sub mnuGetFlag_Click()
    lsFlags.ListItems.Add , , GetCountry, , GetFlag(GetCountry)
End Sub

Pero eh aqui el problema ya que no se como hacer para implementarle esto a mi troyano...Como es que podria hacer para que en el DataArribal cuando alguien se conecte solo me agregue la bandera en el item # 1 en este caso al lado del nombre de la victima..
Ah se me olvidaba en el Form1 hay un imagelist1 que es el que contiene todas las banderas..Bueno amigos espero que me ayuden...Gracias!!!! :laugh:
88  Programación / Programación Visual Basic / Enviar textos SERVER --> Cliente en: 23 Septiembre 2008, 18:13 pm
Hola amigos hoy estaba investigando por ahi y me encontre un code muy util para los troyanos ya que este lo que hace es sacar las contraseñas del registro..En este caso el msn y del no-ip y te las pone en un textbox...bueno el caso es que yo ya eh agregao todos los modulos y tal que lleva el soft y lo probe en el server y si me manda las contraseñas a unos textbox creados en el server...Pero aqui esta mi duda...¿como puedo hacer para que despues que las contraseñas del server remoto las ponga en el textbox me las envie a un textbox que yo tengo en mi cliente... Y como seria el codigo para enviar los datos (text) y para que cuano los reciba los ponga en el text box del cliente...Bueno eso es todo por ahora espero que me ayuden Gracias de antemano!!!!!!
89  Programación / Programación Visual Basic / Re: Duda redimensionando! en: 22 Septiembre 2008, 02:06 am
Gracias tio tu como siempre ayudandome con mis dudillas...Gracias de verdad!
90  Programación / Programación Visual Basic / Duda redimensionando! en: 22 Septiembre 2008, 01:30 am
Hola amigos miren tengo un problema ya que mi Trojan es parecido en el diseño y tal al bifrost pero como siempre hay un problema ya que mi trojan norman sin maximizar ni nada esta bien y es normal asi como sale en esta imagen!


Pero lo que pasa cuando la maximizo es esto!


Y yo no quiero que quede asi sino como esta en esta imagen!



Como podria hacerlo ?
Páginas: 1 2 3 4 5 6 7 8 [9] 10 11 12 13
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines