- Public Function Crypte(TxT As String, Optional Label As Label, Optional Text As String, Optional Line As Boolean)
- For s = 1 To Len(TxT)
- 'a la place de Form1 vous pouvez mettre le nom de votre forme
- valeur = Form1.bar.Value
- DoEvents
- If Line = True Then
- Label.Caption = Text & vbCrLf & Mid(valeur, 1, 2) & "%"
- Else
- Label.Caption = Text & Mid(valeur, 1, 2) & "%"
- End If
- Crypte = Crypte & Chr(Asc(Mid(TxT, s, 1)) Xor (255 - (s Mod 255)) Xor 154)
- Form1.bar.Value = (s * 100) / Len(TxT)
- DoEvents
- Next s
- End Function
Public Function Crypte(TxT As String, Optional Label As Label, Optional Text As String, Optional Line As Boolean)
For s = 1 To Len(TxT)
'a la place de Form1 vous pouvez mettre le nom de votre forme
valeur = Form1.bar.Value
DoEvents
If Line = True Then
Label.Caption = Text & vbCrLf & Mid(valeur, 1, 2) & "%"
Else
Label.Caption = Text & Mid(valeur, 1, 2) & "%"
End If
Crypte = Crypte & Chr(Asc(Mid(TxT, s, 1)) Xor (255 - (s Mod 255)) Xor 154)
Form1.bar.Value = (s * 100) / Len(TxT)
DoEvents
Next s
End Function