Source tạo Random Create Pass đơn giản của Autoit

[lehongphongvt]

Haiz! Tình hình là dạo này các tài khoản PP, AP, LR, Gmail, Yahoo của mình liên tục bị mấy anh đẹp trai có biệt danh hacker ghé thăm hoài _ _! Cứ mỗi lần ghé là lấy mất cái pass (tuy rằng đều bị mình lấy lại sao khi nhận dc tin bị hack)
Cứ mỗi lần thế thì phải nghĩ ra cái pass mới nản hết cả lòng. Vừa sợ quênm lại vừa sợ dễ quá dễ bị mò. Bực mình nên viết ra cái source tạo pass ngẫu nhiên và điền pass lun _ _!
Nay share lên cho anh em cái source ai thấy thích thì dùng. Không thì cũng thank cho ta cái khích lệ tinh thần nhé.

#include <Array.au3>
#include <File.au3>
Local $chat[10],$schar
$b = 0
$t = 0
Local $giay = 5
Local $a = "p.txt" ;cái này là tạo tập tin chứa nội dung pass ở cùng thư mục với tool


HotKeySet("{F1}","enter") ;Phím nóng để thực thi lện tạo vào điền pass
HotKeySet("{ESC}","thoat") ;Phím nóng để tắt chương trình
Func enter()
If FileOpen($a) = -1 Then ;kiểm tra file này đã có chưa Nếu chưa thì tạo file với nội dung mật khẩu ngẫu nhiên

While $giay <> 0
ToolTip("Sẽ tạo mật khẩu ngẩu nhiên trong: "&$giay&" giây nữa",500,20)
sleep(1000)
$giay -= 1
WEnd
create() <= gọi hàm tạo pass

Else ;ngược lại thì thực thi lệnh điền pass
$send = FileRead(FileOpen($a,0)) ;chép nội dung trong file p.txt vào biến $send
Send($send) ;Điền pass
EndIf
EndFunc
Func thoat()
Exit
EndFunc
Func create()
While $b < 10 ;ập vòng 10 lần
$chat[$t] = Chr(Random(Asc("a"), Asc("z"), 1)) ;lấy ngẫu nhiên 1 trong các ký tự từ a - z
$t += 1
$b += 1
WEnd
$schar = $chat[0]&$chat[1]&$chat[2]&$chat[3]&$chat[4]&$chat[5]&$chat[6]&$chat[7]&$chat[8]&$chat[9]
Local $sc = StringReplace($schar,$chat[Random(0,9,1)] ,$chat[Random(0,9,1)]&Random(1,99,1))
;Trích 1 ký tự ngẩu nhiên trong dãy pass vừa tạo để điền thêm số ngẫu nhiên từ 1-99


FileWrite(FileOpen($a,1),$sc) ;ghi nội dung pass ra file
FileClose($a)
EndFunc

While 1
If $giay <> 0 Then
ToolTip("Chương trình đã hoạt động!",500,20)
Else
ToolTip("Đã tạo mật khẩu." & @CRLF & "Vui lòng bấm F1 để điền mật khẩu",500,20)
EndIf
WEnd

 

[PL-Alligator]

Quay cái clip chơi đi mi, minh họa cho dễ hiểu :binhsua75:

 

[Huntress]

Cái này bảo mật hơn gõ tay ở chỗ nào hả cậu

 

[lehongphongvt]

Lười quay clip quá _ _!
Tự compile cái source ra exe chạy thử là bít liền ^^! Bấm F1 rồi mở notepad lên bấm F1 lần nữa sẽ thấy nó điền pass ^^!

 

[netconghung]

Lười quay clip quá _ _!
Tự compile cái source ra exe chạy thử là bít liền ^^! Bấm F1 rồi mở notepad lên bấm F1 lần nữa sẽ thấy nó điền pass ^^!

Cậu xem lại cái dòng 20 đi thấy nó báo lỗi ở cái ý
Mình xóa cái dòng ý đi thì xuất ra file nhưng khi điền pass nó chỉ đc có 1 pas thôi ah
tắt đi bật lại vẫn thấy cái pass ý " không biết mình có làm sai gì không nhỉ "
Gà it quá thấy trên google có hướng dẫn lên làm thử xem

 

[lehongphongvt]

Mình chạy có bị lỗi gì đâu bạn :|
Đây là code đợn giản thôi mà :| Vì thế nó chỉ có thể tạo dc 1 pass! Khi đã tạo pass ra rồi thì ko có tạo nữa :| Mún tạo nữa thì phải xóa file p.txt đi thì tool mới tạo ra 1 pass khác!

 

[sikyura]

Cậu thích pass ramdom thì ở trong Roboform có đấy, Chỗ Generate ý

 

[xfilepro]

O8KlRwNL

<-- Dùng Roboform tạo pass ko dễ hơn ah

 

[lehongphongvt]

Tự mình làm ra thì thik hơn thôi mà Sẵn học dc code một phần mềm cũng hay vậy

 

[nghiakvnvsdd]

Unikey cug~ có mà

 

[lehongphongvt]

Unikey cug~ có mà

Bạn dụng Unikey đi rồi cũng sẽ bị log mất cái pass thôi :m131: Vì mình đã từng thử rồi nhé :m021:

 

[DUNGYEUANH]

Làm biếng đọc hết quá, liếc qua tý thấy chỗ này
$schar = $chat[0]&$chat[1]&$chat[2]&$chat[3]&$chat[4]&$chat[5]&$chat[6]&$chat[7]&$chat[8]&$chat[9]
thay bằng hàm _ArrayToString hình như ngắn gọn hơn

 

[lehongphongvt]

Đã nói là dùng cách đơn giản mà pro!