1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Source Share source code Autoit giấu file bằng Password

Thảo luận trong 'Chia sẻ mã nguồn' bắt đầu bởi hichay1, 10/3/20.

  1. hichay1

    hichay1 Thành viên mới
    • 1/6

    Tham gia ngày:
    10/3/20
    Bài viết:
    8
    Đã được thích:
    0
    Các dạng file mà code có thể giấu
    Code có thể giấu tất cả các loại file từ bé (1KB) đến lớn (1GB). Nhưng tùy thuộc vào dung lượng từng file mà code sau khi compile sẽ nặng bao nhiêu nha các bạn.

    Sau đây mình sẽ liệt kê một số file đặc trưng mà chúng ta thường hay sử dụng.

    • Ảnh : png,jpg,bmp,…
    • File mã nguồn : txt,php,html,…
    • Âm thanh,video : mp3,mp4,wav,flac,…
    • File khác : dll,bat,exe,…
    • Và còn nhiều định dạng file khác nữa
    Code

    Mã (AutoIt):
    $file = "test.jpg" ;file
    $pass = "mật khẩu để mở " ; mật khẩu để mở
    _khoa() ; chạy hàm _khoa()
    Func _khoa()
    While 1
      $password =  InputBox("Mời Nhập Password để mở file", "Vui lòng nhập password để mở file "&$file&" :", "", "*")
      If $password = $pass Then
          DirCreate(@ScriptDir&"\File")
          FileInstall("Các bạn chèn đường dẫn vào đây nhé",@ScriptDir&"\File\"&$file) ; địa chỉ file
          MsgBox(64,"Thông báo","File "&$file&" đã được mở" )
              Exit
      ElseIf @error = 1 Then
              Exit
              #comments-start ; yêu cầu pass phải điền pass và pass phải lớn hơn 2(n) kí tự
      ElseIf $password = "" Then
              MsgBox(48,"Thông báo","Vui lòng điền password")
      ElseIf $password < 3 Then
              MsgBox(48,"Thông báo","Vui lòng điền password lớn hơn 2 kí tự")
              #Comments-end
              Else
            MsgBox(16, "Thông báo", "Sai password ! Vui lòng thử lại ")
          EndIf
          WEnd
        EndFunc
     
  2. #Rainy# Hoàng Vũ IT

    #Rainy# Hoàng Vũ IT Hoàng Vũ IT
    • 28/34

    Tham gia ngày:
    21/11/16
    Bài viết:
    327
    Đã được thích:
    90
    Nơi ở:
    Quận 12 TP. Hồ Chí Minh
    Của bạn quá sơ sài + không mã hoá gì cả. Bạn có thể giấu 1 file text mình sẽ lấy file text đó cho bạn xem. Chương trình đầu tay của bạn thì được nhưng đem đi dấu file thì nó rất là thô sơ bạn nhé.
     
    hichay1 thích bài này.
  3. hichay1

    hichay1 Thành viên mới
    • 1/6

    Tham gia ngày:
    10/3/20
    Bài viết:
    8
    Đã được thích:
    0
    Mình cũng chỉ là vọc vạch như những người lúc đầu thôi từ từ sẽ học nhiều cái chuyên sâu vào hơn . Cảm ơn bạn đã góp ý
     

Chia sẻ trang này

Đang tải...