ruadangyeu nói:
ha ha ha...
Sao bạn có thể cư sử như một người không trung thực như vậy được nhỉfile này thì mình đã up lên 1 chủ đề khác 1 lần rồi nhưng lần đó mình không đặt mật khẩu. Đó là ở chủ đề mã hóa dữ liệu nhạy cảm
Còn ở đây mình đã đặt mật khẩu dài tới hơn 20 ký tự có cả chữ số, ký tự đặc biệt rồi.
Bạn thử down về và đánh mật khẩu của mình vào xem có vào được không
Chú em đừng có liếm láp cho qua chuyện.
Bài trước của chú em như sau:
====================
Function mahoa(thongdiep As String, n As Integer) As String
Dim charnum As Integer
Dim thongdiepma As String
Dim lentd As Integer
lentd = Len(thongdiep)
For i = 1 To lentd
charnum = (Asc(Mid$(thongdiep, i, 1)) + n) Mod (256)
thongdiepma = thongdiepma + Chr$(charnum)
Next
mahoa = thongdiepma
End Function
=====================
Còn file của chú em mới gửi như sau:
=====================
Function mahoa(thongdiep As String, n As Integer) As String
Dim charnum As Integer
Dim thongdiepma As String
Dim lentd As Integer
lentd = Len(thongdiep)
For i = 1 To lentd
charnum = (Asc(Mid$(thongdiep, i, 1)) + n) Mod (256)
thongdiepma = thongdiepma + Chr$(charnum)
Next
mahoa = thongdiepma
End Function
Function dichmahoa(thongdiep As String, n As Integer) As String
Dim charnum As Integer
Dim thongdiepma As String
Dim lentd As Integer
lentd = Len(thongdiep)
For i = 1 To lentd
charnum = (Asc(Mid$(thongdiep, i, 1)) - n) Mod (256)
thongdiepma = thongdiepma + Chr$(charnum)
Next
dichmahoa = thongdiepma
End Function
=====================
Cái "Function dichmahoa" chú em đưa lên lần nào chưa?
Ở đời mình ghét nhất là cãi chày cãi cối. Biết phục thiện thì mình rất quí.
Nhưng cái kiểu lầy của chú em là bó tay rồi.