GERADOR DE CODIGOS VB6
bom pessoal eu queria saber quais são os códigos básicos para fazer so um alteração em um texto pra poder variar vou explicar
o texto original [Ô]exemplo texto original [Ô]
texto alterado [Ô]exemplo [txt-color=#e80000]alteração [/txt-color] original[Ô]
acho de entenderão! e eu quera saber caracteres diferentes que não são invalidos para vb6 tipo =ÂÂS^!@$@$
acho que todos do exemplo são inválidos mais eu quero mais o menos assim!
o texto original [Ô]exemplo texto original [Ô]
texto alterado [Ô]exemplo [txt-color=#e80000]alteração [/txt-color] original[Ô]
acho de entenderão! e eu quera saber caracteres diferentes que não são invalidos para vb6 tipo =ÂÂS^!@$@$
acho que todos do exemplo são inválidos mais eu quero mais o menos assim!
de onde virá este texto? de um arquivo .txt? de um textbox ou richtextbox?
Você pretende apenas substituir os caracteres inválidos, se sim porque vc deseja substituir estes caracteres ex: Â por A?
gera dentro de um textbox!
tudo estara dentro de um textbox, ou seja vc pretende escrever e corrigir ao perder o foco?
eu quero altera todas variaves e deixar o resto do código intacto se possÃvel com caracteres diferentes igual fale!
então ta meio dificil entender o que vc queria agora to começando a entender vc pretende corrigir o código do seu proprio programa, se for isso é algo meio estranho, uma vez que o vb não aceita caracteres diferentes.
vou te mandar um video do que eu to falando http://www.youtube.com/watch?feature=player_embedded&v=gnS4ZU7g51M
bom colega percebi que existe uma criptografia no código citado, desculpe, eu vi o video e pouco entendi, pelo contrário parece que vc pretende pegar um código de terceiros e descriptogafar, e infelizmente nisso não posso te ajudar.
desculpe se entendi errado, se sim acho melhor vc tentar explicar o que quer. veja bem sei o que quer fazer mas não sei o motivo.
desculpe se entendi errado, se sim acho melhor vc tentar explicar o que quer. veja bem sei o que quer fazer mas não sei o motivo.
cara vlw por isso vc entendeu erro fazer oque vc não entede nada 
mais mesmo assim obrigado 
mais mesmo assim obrigado
aquilo como cite foi so exemplo eu não quero nada do codigo dele vou da um exemplo mais claro
=====================================================================================================================================================
texto original
Public Function aquivo(ByVal data As String, ByVal texto As String) As String
On Error Resume Next
Dim aquivo2(0 To 255) As Integer, teste, exemplo As Long, final() As Byte
final = StrConv(texto, vbFromUnicode)
For teste = 0 To 255
exemplo = (exemplo + aquivo2(teste) + final(teste Mod Len(texto))) Mod 256
aquivo2(teste) = teste
Next teste
final() = StrConv(data, vbFromUnicode)
For teste = 0 To Len(data)
exemplo = (exemplo + aquivo2(exemplo) + 1) Mod 256
final(teste) = final(teste) Xor aquivo2(Temp + aquivo2((exemplo + aquivo2(exemplo)) Mod 254))
Next teste
aquivo = StrConv(final, vbUnicode)
End Function
===================================================================================================================================================
texto altero ( veja as mudanças) espero que entenda
Public Function aquivo(ByVal data As String, ByVal texto As String) As String
On Error Resume Next
Dim aquivo2(0 To 255) As Integer, teste, exemplo As Long, final() As Byte
final = StrConv(texto, vbFromUnicode)
For teste = 0 To 255
exemplo = (exemplo + aquivo2(teste) + final(teste Mod Len(texto))) Mod 256
aquivo2(teste) = teste
Next teste
final() = StrConv(data, vbFromUnicode)
For teste = 0 To Len(data)
exemplo = (exemplo + aquivo2(exemplo) + 1) Mod 256
final(teste) = final(teste) Xor aquivo2(Temp + aquivo2((exemplo + aquivo2(exemplo)) Mod 254))
Next teste
aquivo = StrConv(final, vbUnicode)
End Function
====================================================================================================================================================
=====================================================================================================================================================
texto original
Public Function aquivo(ByVal data As String, ByVal texto As String) As String
On Error Resume Next
Dim aquivo2(0 To 255) As Integer, teste, exemplo As Long, final() As Byte
final = StrConv(texto, vbFromUnicode)
For teste = 0 To 255
exemplo = (exemplo + aquivo2(teste) + final(teste Mod Len(texto))) Mod 256
aquivo2(teste) = teste
Next teste
final() = StrConv(data, vbFromUnicode)
For teste = 0 To Len(data)
exemplo = (exemplo + aquivo2(exemplo) + 1) Mod 256
final(teste) = final(teste) Xor aquivo2(Temp + aquivo2((exemplo + aquivo2(exemplo)) Mod 254))
Next teste
aquivo = StrConv(final, vbUnicode)
End Function
===================================================================================================================================================
texto altero ( veja as mudanças) espero que entenda
Public Function aquivo(ByVal data As String, ByVal texto As String) As String
On Error Resume Next
Dim aquivo2(0 To 255) As Integer, teste, exemplo As Long, final() As Byte
final = StrConv(texto, vbFromUnicode)
For teste = 0 To 255
exemplo = (exemplo + aquivo2(teste) + final(teste Mod Len(texto))) Mod 256
aquivo2(teste) = teste
Next teste
final() = StrConv(data, vbFromUnicode)
For teste = 0 To Len(data)
exemplo = (exemplo + aquivo2(exemplo) + 1) Mod 256
final(teste) = final(teste) Xor aquivo2(Temp + aquivo2((exemplo + aquivo2(exemplo)) Mod 254))
Next teste
aquivo = StrConv(final, vbUnicode)
End Function
====================================================================================================================================================
Faça seu login para responder