Foro de elhacker.net

Private Sub Msgbox_aleatorio()
    Randomize
    Msgbox Int(Rnd * 6), Int(Rnd * 6), Int(Rnd * 6),Int(Rnd * 6)
End Sub
 

Private Sub Msgbox_aleatorio()
    Dim X(3) as integer
    Randomize
    For y = 0 To 3
        X(y) = Int(Rnd * 6)
    Next
    msgbox X(0),X(1),X(2),X(3)
End Sub

sBuscar = "x"
    Randomize
    sPoner = Str(Int(Rnd * 6)) 
 
 

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) & Int(Rnd * 6) & Right(Texto_orig, Len(Texto_orig) - x)
    End If
Next
Reemplazar_Aleatorio = Texto_orig
End Function
 
Private Sub Form_Load()
texto_nuevo = Reemplazar_Aleatorio("holax, comox andax", "x")
Debug.Print texto_nuevo
End Sub

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)
    End If
Next
Reemplazar_Aleatorio = Texto_orig
End Function

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

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

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

Option Explicit
 
Private Function RndReplace(ByVal sText As String, ByVal sChar As String, ByVal sFirstWord As String, ByVal sEndWord As String) As String
Dim sActualChar                                             As String * 1
Dim lTextLen                                                As Long
Dim Q                                                       As Long
 
    lTextLen = Len(sText)
    If lTextLen > 2 Then
        Call Randomize(Timer)
        For Q = 1 To lTextLen
            sActualChar = Strings.Mid$(sText, Q, 1)
            RndReplace = RndReplace & IIf((sActualChar = sChar), (sFirstWord & CStr(CInt(Rnd * 6)) & sEndWord), sActualChar)
        Next Q
    End If
End Function
 
Private Sub Form_Load()
    ' ¡Vivan las ranas! :D
    Debug.Print RndReplace("holax, comox andax", "x", "ANTES", "DESPUÉS")
End Sub