Censura as primeira letras

[BrunoHP 0]

Boa tarde Pessoal do F.I.,

 

 

Alguém poderia me ajudar como fazer para censurar as primeiras letras?

 

Ex: Testando texto

 

Resultado: xxxtando xxxto

 

 

Desde já obrigado!

 

[wilnet 92]

Olá BrunoHP, blza!

 

Tenho esse script, veja se consegue adapta-lo.

<script type='text/javascript'>//<![CDATA[ 
var VanillaRunOnDomReady = function() {
document.getElementById('email').onchange=function() {
    email = this.value;
    
    var posArr = email.indexOf('@');
    
    var hidden = '';
    
    for(i=1;i<posArr;i++)
        hidden += '*';
    
    var mask = email.slice(0,0) + hidden + email.substr(email.indexOf('@')-3);
    
    document.getElementById('email_mask').value = mask;
}
}

var alreadyrunflag = 0;

if (document.addEventListener)
    document.addEventListener("DOMContentLoaded", function(){
        alreadyrunflag=1; 
        VanillaRunOnDomReady();
    }, false);
else if (document.all && !window.opera) {
    document.write('<script type="text/javascript" id="contentloadtag" defer="defer" src="javascript:void(0)"><\/script>');
    var contentloadtag = document.getElementById("contentloadtag")
    contentloadtag.onreadystatechange=function(){
        if (this.readyState=="complete"){
            alreadyrunflag=1;
            VanillaRunOnDomReady();
        }
    }
}

window.onload = function(){
  setTimeout("if (!alreadyrunflag){VanillaRunOnDomReady}", 0);
}//]]>  

</script>

<input type="text" id="email" size="30" />
<input type="text" id="email_mask" size="30" />

Por enquanto é isso.

 

Espero ter ajudado,

 

vlw

[xanburzum 169]

olha estas funções que uso

 

Varias funções , tais como , na descrição:
Replace_Bad_Words - Uma função para substituir removendo Bad strings.
Rep_Chars - remove caracteres indesejados de strings (html, especial, reservado) para o armazenamento de dados.
Fix_Chars - substitui caracteres de fixação feita por Rep_Chars. Correções de caracteres para exibir html.
Sentence_Continue - Formata uma string para um certo tamanho, se demasiado longo e, em seguida, adiciona um ... ao final do mesmo.
Count_Words - Conta o número de palavras em uma strings.
Make_Word_Wrap - Wraps o número de caracteres permitidos, acrescentando um espaço para romper excessivamente palavras longas .

Function Replace_Bad_Words(Data As String) As String


    If Data = "" Then Exit Function
    '-------------------------------------

    'Dirt Words----------------------
    Bad_Word = Array("ass", "bitch", "biatch", "blowjob", "bukkake", "bullshit", "cunt", "cum", "dicked", "dickhead" _
             & "dickweed", "dildo", "fuck", "gangbang", "goddamnit", "handjob", "jackoff", "motherfucker", "motherfucking" _
             & "pissed", "pisses", "---o", "pussy", "pussified", "shit", "titties", "twat")
    '--------------------------------
    
    'Replace Bad Words-----------------
    For Bad = 0 To UBound(Bad_Word)
    Data = Replace(Data, Bad_Word(Bad), String(Len(Bad_Word(Bad)), "*"), , , vbTextCompare)
    Next Bad
    '----------------------------------


    Replace_Bad_Words = Data
    '--------------------------

End Function

Function Rep_Chars(Data As String) As String

    'Replace caracters to allow in database, one to one ratio---
    Data = Replace(Data, Chr(60), Chr(251))
    Data = Replace(Data, Chr(62), Chr(252))
    Data = Replace(Data, Chr(34), Chr(253))
    Data = Replace(Data, Chr(39), Chr(254))
    Data = Replace(Data, Chr(13), Chr(255))
    '-----------------------------------------------------------


    Rep_Chars = Data
    '-----------------

End Function

Function Fix_Chars(Data As String) As String


    Data = Replace(Data, Chr(251), "<")
    Data = Replace(Data, Chr(252), ">")
    Data = Replace(Data, Chr(253), """)
    Data = Replace(Data, Chr(254), "'")
    Data = Replace(Data, Chr(255), "<br>")
    '----------------------------------------------------


    Fix_Chars = Data
    '-----------------

End Function

Function Sentence_Continue(Data As String, chrlength As Integer) As String

    If Len(Data) > chrlength Then
    Sentence_Continue = Mid(Data, 1, chrlength) & "..."
    Else
    Sentence_Continue = Data
    End If
    '-----------------------------------------------
    
End Function

Function Count_Words(Data As String) As Integer


    Words = Split(Data, " ")
    Count_Words = Int(UBound(Words) + 1)
    '---------------------------------

End Function

Function Make_Word_Wrap(Data_String As String, Word_Size_Allowed As Integer)


    Counter = 0
    Fixed_Word = ""
    '----------------------------------------


    If Data_String = "" Then Exit Function
    '--------------------------------------------
    

    If Len(Data_String) < Word_Size_Allowed Then
    Make_Word_Wrap = Data_String
    Exit Function
    End If
    '----------------------------------------------------------------

 
    DataOf = Split(Data_String, " ")
    '------------------------------------------------------
    

    For Breakdown = LBound(DataOf) To UBound(DataOf)
    

    If Len(DataOf(Breakdown)) > Word_Size_Allowed Then

    For breakword = 1 To Len(DataOf(Breakdown))
    
    Counter = Counter + 1
    
    'Replace characters that are too long with spaces-------------
    If Counter > Word_Size_Allowed Then
    Fixed_Word = Fixed_Word & " " & Mid(DataOf(Breakdown), breakword, 1)
    Counter = 1
    Else
    Fixed_Word = Fixed_Word & Mid(DataOf(Breakdown), breakword, 1)
    End If
    '-------------------------------------------------------------
    
    Next breakword
    '

    'Set new values and reset word-----------------
    DataOf(Breakdown) = Fixed_Word
    Fixed_Word = ""
    '----------------------------------------------

    End If
    '------------------------------------------------
    
    Next Breakdown
    
    
    For Rebuild = LBound(DataOf) To UBound(DataOf)
    New_String = New_String & DataOf(Rebuild) & " "
    Next Rebuild
    New_String = Mid(New_String, 1, Len(New_String) - 1)
    '-----------------------------------------
    
    Make_Word_Wrap = New_String

End Function
%>