Mensajes

Se pronuncia, pero se sigue escribiendo igual

http://www.virustotal.com/file-scan/report.html?id=e464c07435efab5ff471c148789c7ddff12f2d530f69b0eab731e7c9416cd673-1293778805

[Karcrack]

Bueno, volviendo a la consulta de Karcrack y mi respuesta anterior, en lo que respecta a los conceptos de servidor y cliente puede que alguno entienda lo opuesto Es que cuando aparecieron los troyanos de conexión directa, el servidor era el que infecta la pc, abre los puertos y queda a la escucha, y cliente era el que tienen los "malos" y se conectaba al servidor. Con la aparición de los troyanos de conexión inversa el concepto sería inverso y coincidiría con el de cualquier servicio web, servidor es el propio servidor y cliente es el que infecta y se conecta (el que aplica a FLU), pero ... en la jerga nunca se han cambiado los conceptos de cliente/servidor para los troyanos, aún siendo de conexión directa o inversa, servidor es quien se aloja en la pc de la "víctima" y cliente es quién controla.

Solo una apreciación

Saludos

[los medios estatales acaban de anunciar el servicio de VoiP ilegal en el país]

Aunque suene a broma, la noticia no puede ser más cierta y triste a la vez. Cada vez más surrealista, los medios estatales acaban de anunciar el servicio de VoiP ilegal en el país. Qué difícil debe ser vivir en un país en el que las libertades tienen cerco y la tecnología sólo puede ser utilizada al servicio del Partido Comunista. El caso es que el gobierno chino ha prohibido las llamadas telefónicas por Internet ilegales a excepción de aquellas realizadas a través de las dos redes propiedad estatal, China Unicom y China Telecom. Skype pasa a ser ilegal en el país.

Ha sido el diario People's Daily, órgano oficial del Partido Comunista, el encargado de oficializar la noticia, afirmando que los servicios como Skype disponibles en el país, dejarían de funcionar. Esta nueva prohibición se une a los bloqueos y cierres que ya han tenido en el país otras webs como Facebook, Twitter, YouTube o la misma Google, quién cerró el año pasado tras fuertes presiones del gobierno.

Durante el día de ayer, Wang Chen, director adjunto del Departamento de Propaganda chino, dijo, jactándose de ello y en palabras que hoy resultan premonitorias:

"Durantes el mes de noviembre, 350 millones de informaciones nocivas, incluyendo textos, fotos y vídeos, se suprimieron de la red en China. Estamos llevando a cabo con las autoridades pertinentes una campaña para reprimir a los ilegales servicios de Voz sobre Protocolo de Internet de teléfono"

Desde Twitter, ya comienzan a haber las primeras réplicas a la nueva postura del Partido, donde varios usuarios han afirmado que ya no existe la opción de descargar Skype. Noticias como estas siempre son un jarro de agua fría para la sociedad y el desarrollo de las libertades. Ojalá lo vuelvan a instaurar pronto, aunque mucho me temo que no será así.

Fuente:http://bitelia.com/2010/12/china-declara-ilegal-a-skype

¿Te da algún error?
¿Tienes activado el escritorio remoto en la pc, y configurado un usuario y contraseña?
Saludos

En realidad si hay variables sin declarar, pero no me iba a molestar por eso, son solo la x ,el texto_nuevo y el tipo de retorno de la función , y si, creo que si no ha entendido el primer código ese menos

solo que tengo un concepto distinto y la mayoría de las veces intento que los usuarios aprendan algo por si mismo

Lo intenté, dime que has aprendido hoy y si entiendes la lógica del código

Código (vb) [Seleccionar] Expandir

Private Function Reemplazar_Aleatorio(Texto_orig As String, caracter_a_sustituir As String, pre As String, post As String)
Dim temp As String
Randomize

For x = 1 To Len(Texto_orig)
    If Mid(Texto_orig, x, 1) = caracter_a_sustituir Then
        temp = temp & pre & Int(Rnd * 6) & post
    Else
        temp = temp & Mid(Texto_orig, x, 1)
    End If
Next
Reemplazar_Aleatorio = temp
End Function

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
texto_nuevo = Reemplazar_Aleatorio("holax, comox andax", "x", "antes", "despues")
Debug.Print texto_nuevo
End Sub

Saludos

Código (vb,5,6,12) [Seleccionar] Expandir

Private Function Reemplazar_Aleatorio(Texto_orig As String, caracter_a_sustituir As String)

Randomize
For x = 1 To Len(Texto_orig)
If Mid(Texto_orig, x, 1) = caracter_a_sustituir Then
Texto_orig = Mid(Texto_orig, 1, x - 1) & "PT" & Int(Rnd * 6) & "PTC" & Right(Texto_orig, Len(Texto_orig) - x)
'que cambies el nombre de la variable Texto_orig
Else
'concatena pero sin cambios
End If
Next
Reemplazar_Aleatorio = Texto_orig
'obviamente tambien hay que cambiar la variable
End Function

[Texto_orig]

Lo único que tienes que hacer es utilizar otra variable temporal en lugar de sustituir la propia Texto_orig, es decir, solo tienes que sustituír en donde esta la igualdad
Bueno, y modificar el IF, para que en caso de no coincidir con un caracter sustituible lo acumule igual pero sin cambios

Saludos

Si queres no doy mas codes hechos :-/ , como vos digas.

Eso no es decisión mía sino tuya, si quieres dar códigos es cosa tuya, no es algo que vaya contra las reglas, solo que tengo un concepto distinto y la mayoría de las veces intento que los usuarios aprendan algo por si mismo
Sino luego pasa como antes, "y si quiero modificar esto?", "y si quiero agregar esto otro?", "y si ....", eso no es programar sino picar código.

Saludos