Mensajes

Estaría padre que ASM tuviera subforo.. pero como hay tan poquitos posts del tema, no vale la pena..

Si pero inspiraria a gente a aprender eeste lenguaje yo creo que dibieran poner uno por lo menos de prueba  .

Hola!
¿Me podrian decir donde puedo publicar los codigos de ASM y que esten en lugar correcto?

Gracias

En programación general.

Hola!
¿Me podrian decir donde puedo publicar los codigos de ASM y que esten en lugar correcto?

Gracias

No tenia idea que se tomaran como srcript.

Alguien me pudiera ayudar a configurarlo que no puedo 

no sabias?? si no me equivoco en una clase no me acuerdo ahora cual que posteo cobein por aca tenia codigo en ASM no se si era algo de graficos o algo asi ,pero estoy seguro que si.

saludos.

Seba tu solamente sabias  . Seba y sabes algunaq manera sin programas apartes?

Bueno , luego de buscaar por 10000 millones de parte encontre la forma de meter code en asm en un proyecto en VB les dejo un link donde lo explican mejor.

http://vbfibre.persistentrealities.com/index.php?category=0&item=5&t=asm

pos yo por ahora solo quiero ser colaborador 

Yo con ser user me comformo 

[vb]

Ciertamente la ignorancia es atrevida:

Krackwar cita del 24/Mayo/2008 00:27: "no se pueden generar .exe"
Por supuesto que se pueden generar. Por ello mismo VB es un compilador, puedes generar exe's nativos.

En vb no se pueden generar .exe

Finalmente me disculpo nuevamente por lo de "estúpido". Veo que en algunas culturas se usa esa palabra como ofensa, cuando en realidad es un adjetivo que significa "necio o falto de inteligencia".

La estupidez merecería figurar entre las virtudes humanas; pero he aquí que, como tantas otras, alguien la colocó en la lista de los defectos, y ahí se quedó.

Viene del latín stúpeo, stupere, stúpui, que significa sentir estupor, quedar maravillado. Fueron los mismos romanos los que asignaron valor despectivo a esta palabra, porque fueron ellos los que consideraron que no era bueno, en general, dar ocasión a los que nos rodean de conocer nuestros sentimientos.

Te doy la razón en distintas culturas significan cosas distintas.Aprende el origen de las palabras y su significado real.Yo nunca dije que era una ofensa solo dije que no le dijieras a nadie estupido  .

Las demas son faltas de ortografia que poca importancia les veo ya que no estoy haciendo ningun trabajo formal ni nada del estilo escribiendo en un foro.

hola ley pos yo soy ediporey mas conosido enla red por colcrt y mi correo es col.crt@hotmail.com no me borren plz

No publiquen sus mail's no les aria maal leer las reglas.

[A nadie le he dicho estúpido]

1 Pido disculpas por activar post viejos.
2. A nadie le he dicho estúpido, pero si alguien se sintió airecito en las orejas, me disculpo.
3 Krackwar tiene razón, no soy capáz de crear un .COM decente

Saludos a todos

Recomendación: Nunca discutas con un necio.... ni con un estúpido, tendrás que bajarte a su nivel y luego con su mayor experiencia te ganará.

Como abia dicho un user la ignoracia es atrevida

Yo personalmente e publicado un moton de veces codigos de como subir y bajar arhivos.. a demas te explicado personalmente como enviar de 4 en 4 KB a ti vivachapas.... Pero weno, volvere a dejar un source de envio de archivos con VB:

CLIENTE:

Código [Seleccionar] Expandir

Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
ws.LocalPort = 2848
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data

If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\Prueba2.txt" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If

If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If

SERVER:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "127.0.0.1", 2848
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data

If Left(data, 8) = "SendFile" Then
Open "C:\Prueba.txt" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1

ws.SendData Send
End If

End Sub

Tb e puesto un source completo de un file manager en VB:
http://foro.elhacker.net/index.php/topic,160912.0.html

Y si kereis ponerle iconos al file manager, pues dos metodos a falta de uno:
http://foro.elhacker.net/index.php/topic,165169.0.html

Y mi explicacion de como enviar un archivo de 4 en 4 KB o como te de la gana:
http://foro.elhacker.net/index.php/topic,160099.0.html

Solo era cuestion de buscar un poco...

este troyano seria de conexion inverso o directa?

Ninguna de las dos por que no es un troyano