Mensajes

Me parece que va a ser un poco difícil porque el MSN Kick (si es el de MadAntrax al que te refieres) está programado en VB y no es compatible con la xbox. Además, no creo que el trabajo con el MSN en la xbox sea como en windows xD

Saludos

Gracias pisagatos, mañana le echaré una mirada que ahora tengo un poco de sueño

Gracias Salu2.

Ya bueno, pero la idea era a hotmail porque obtengo la lista de correo desde el MSN del usuario infectado utilizando la API del messenger. Si es gmail y lo tiene agregado lo enviara pero sino, si es hotmail, irá al spam :S

Gracias
Salu2.

El problema es que el propósito del código es que el e-mail llegue a la bandeja de entrada de hotmail. El objetivo es una simple reproducción de un worm (eso ya lo tengo todo hecho...) pero necesito saber si se puede hacer que lleguen...

Bueno, gracias! Voy a ver si encuentro algo y si es así, lo publico.

Salu2.

Hola. Bueno, tengo una pequeña duda, estuve buscando ya por el foro pero no había ninguna solución que funcionase correctamente y eran posts antiguos...

Lo que estoy tratando de hacer es enviar un e-mail desde PHP con la función mail. El e-mail se envía y llega pero llega al correo no deseado. El código que utilizo es:

Código (php) [Seleccionar] Expandir

<?

$asunto = $_POST[asunto];
$mensaje = $_POST[mensaje];
$adonde = $_POST[adonde];
$dequien = $_POST[dequien];

$cabecera='MIME-Version: 1.0'."\r\n";
$cabecera.='Content-type: text/html; charset=iso-8859-1' . "\r\n";
$cabecera.="TO: ".$adonde."\r\n";
$cabecera.="FROM: ".$dequien."\r\n";

mail($adonde,$asunto,$mensaje,$cabecera);

?>

(Le paso las variables con un programa VB 6.0)

El e-mail que envía el mensaje existe pero aun así llegan al spam.

¿Se puede solucionar?

Salu2 y gracias!

La proxima vez que me conecte se los dare, no esta al maximo pero las funciones basicas y las ideas las tiene y sobre todo que lo hice yo a base de tutoriales y malas noches, usa funciones de "mi cerebro" y algunas Apis de Windows.
Estoy pendiente con ustedes...

Mmmmm no agas tantas propaganda, si kieres postear un codigo dices: aki dejo un codigo y lo pegas no estan tan dificil. Mmmm es mi forma de verlo nada personal...

Lo mismo opino yo...

Por cierto CL1O... ¿"vienbenido"? Me parece que se te ha ido el dedo 2 veces xD

Salu2.

Muchas gracias Seykron. Voy a probarlo y ya te cuento.

Gracias también por la explicación de las strings/matrices de bytes. De ahora en adelante intentaré usar matrices 

Salu2 y gracias!

Ya he encontrado el problema. No es problema del código de apertura del archivo, es problema de la función de cifrado que le cuesta muchísimo... (Recorrer 60.000 caracteres no debe ser rápido xD). Alguna idea para otro "algoritmo" ? 
Os dejo el código que utilizo:

cifrar:

Código (vb) [Seleccionar] Expandir


Function enc(ByVal S As String, ByVal P As String) As String
Dim I As Long, R As String
Dim C1 As Integer, C2 As Integer
R = ""
If Len(P) > 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I > Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 + C2 + 64
If C1 > 255 Then C1 = C1 - 256
R = R + Chr(C1)
Next I
Else
R = S
End If
enc = R

End Function


descifrar:

Código (vb) [Seleccionar] Expandir


Function des(ByVal S As String, ByVal P As String) As String
Dim I As Long, R As String
Dim C1 As Integer, C2 As Integer
R = ""
If Len(P) > 0 Then
For I = 1 To Len(S)
C1 = Asc(Mid(S, I, 1))
If I > Len(P) Then
C2 = Asc(Mid(P, I Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, I, 1))
End If
C1 = C1 - C2 - 64
If Sgn(C1) = -1 Then C1 = 256 + C1
R = R + Chr(C1)
Next I
Else
R = S
End If
des = R
End Function


¿Cómo hacer un "codificado" más rápido?

Salu2.

PD: El código de cifrado no es mio, lo encontré en Internet, lo revisé y vi que me servía para lo que quería hacer...

[EDITO:]

Gracias! Lo pruebo y os cuento...

Salu2.

EDITO: He probado el code pero no he logrado hacerlo funcionar correctamente. Más información acerca de lo que hago, una vez abierto y cargado el archivo en una variable lo que hago es pasarla por una función que digamos "la cifra" y lo uso de la siguiente forma:

Código (vb) [Seleccionar] Expandir


Dim btData() As Byte
Dim sData$

Open archivo For Binary As #1

ReDim btData(LOF(1)) As Byte

Get #1,  1, btData


sData = StrConv(btData, vbUnicode)
sData=enc(sData)      ' "enc" es la función...

Close #1


Pero se ve que se queda en un bucle infinito... :S ¿Que es lo que pasa? ¿Será problema de la función?

Salu2.

Hola!

Estoy haciendo un programa y en un momento dado necesito acceder y abrir un archivo en modo binario, el inconveniente es que tarda un gran tiempo y bastantes recursos en abrirlo... La cosa es saber... ¿Como podría optimizarlo? El code que uso es el siguiente:

Código (vb) [Seleccionar] Expandir


Dim var As String * 60000
data = ""
var = ""
Open archivo For Binary As #1
Do While Not EOF(1)

Get #1, , var

data = data & var
data = Trim(data)

Loop
Close #1


¿Se puede optimizar? ¿Se puede hacer de otro método más rápido?

Salu2.
Gracias