Thử thách của bạn là đọc "mật khẩu" từ bàn phím / đầu vào tiêu chuẩn.

Thử thách :

• Đọc một chuỗi svô hình.
• Đối với mỗi ký tự trong s, in một ký tự c.
• Trong thời gian thực.

Quy tắc:

• Bạn phải in ctrong thời gian thực. Ngay khi người dùng nhập một ký tự, bạn phải hiển thị c.
• c phải là hằng số, tức là nó phải cùng một ký tự.
• ccó thể là bất kỳ ký tự hiển thị nào (nghĩa là nó không thể là dòng mới, dấu cách, tab hoặc không thể in được).
• ckhông thể dựa vào s, tức là cphải được xác định / hằng trước khi sđọc.
• c phải giống nhau mỗi khi chương trình được chạy.
• ccó thể là một trong những nhân vật snếu tình cờ, miễn là tuân theo tất cả các quy tắc khác.
• Không có ký tự nào scó thể xuất hiện trên màn hình, cngoại trừ (xem quy tắc trước đó).
• Bạn có thể sử dụng bất kỳ phương pháp nhập và xuất hợp lý nào miễn là tuân theo tất cả các quy tắc khác.
• Bạn có thể cho rằng chiều dài skhông bao giờ dài hơn chiều rộng cửa sổ thiết bị đầu cuối / đồ họa.
• Nếu sử dụng thiết bị đầu cuối, chương trình của bạn sẽ chấm dứt sau khi nhập dòng mới hoặc EOF.

Ví dụ :

Nếu sđã password01và cđang *, đầu ra sẽ trông giống như:

Người chiến thắng :

Trình ngắn nhất trong mỗi ngôn ngữ chiến thắng.

str , 5 byte

n=?,1

Do một lỗi, đây là 5 byte. Nó chỉ có 1 byte:

1

HTML, 20 byte

<input type=password

Thay thế: HTML + JavaScript, 51 byte

Mặc dù OP đã xác nhận rằng hợp lệ, đây là một giải pháp sử dụng JS cho những người theo chủ nghĩa thuần túy!

<input id=i oninput=i.value=i.value.replace(/./g,8)

Vim, 36 byte:

:im <C-v><CR> <C-v><esc>ZQ<CR>:au I<tab><tab> * let v:char=0<CR>i

Sử dụng này vim-key ký hiệu , do đó <C-v>là kiểm soát-v , <CR>là nhập, <esc>là chìa khóa thoát, và <tab>là chìa khóa tab.

c là '0'.

Đây là một hexdump để chứng minh số byte là chính xác:

00000000: 3a69 6d20 160a 2016 1b5a 510a 3a61 7520  :im .. ..ZQ.:au 
00000010: 4909 0920 2a20 6c65 7420 763a 6368 6172  I.. * let v:char
00000020: 3d30 0a69                                =0.i

Điều này hoạt động bằng cách chạy hai lệnh ex sau:

:imap <CR> <esc>ZQ
:autocmd InsertCharPre * let v:char=0

Cái đầu tiên có nghĩa là

:imap               " Anytime the following is pressed in insert mode:
      <CR>          "   (the 'enter' key)
           <esc>ZQ  " Then act as if the user instead pressed '<esc>ZQ' (close the buffer)

Và cái thứ hai có nghĩa là

:autocmd                                " Automatically as vim runs:
         InsertCharPre                  "   Any time the user is about to insert a char
                       *                "   In any type of file
                         let v:char=0   "     Then instead insert a '0' character

Ruby với Giày, 29 ký tự

Shoes.app{edit_line secret:1}

Đầu ra mẫu:

Aceto , 8 7 6 byte

,!`XpO

Giải trình:

Đọc một nhân vật (, ), phủ định nó ( !) và thoát một cách có điều kiện. In số 0 trên đầu ngăn xếp ( p) và quay lại từ đầu.

Chạy với -Fđể thấy hiệu quả ngay lập tức (vì xả nước)

Giải pháp đầu tiên của tôi dựa trên bài đăng hộp cát, với khoảng trắng được phép là ký tự thay thế và không cần thoát khi nhập (4 byte):

,'p>

C trên POSIX, 128 117 113 96 byte

^{-11 nhờ Quentin tìm kiếm trong suốt termios.h
-4 nhờ Quentin chỉ ra những sai lầm ngu ngốc của tôi
-17 vì Quentin là một phù thủy kỳ dị.}

c,t[15];f(){for(tcgetattr(1,t),t[3]&=~10,tcsetattr(1,0,t);(c=getchar())^10&&c^4;)printf(".");}

Điều này đặt STDIN vào chế độ thô / vô hình để nó có thể nhận được nhấn phím trong thời gian thực. Điều này cần 77 byte và tôi chắc chắn rằng tôi có thể đánh gôn nó một chút. Lưu ý rằng điều này không thiết lập lại STDIN khi thoát vì vậy nó sẽ làm rối thiết bị đầu cuối của bạn nếu bạn không làm như vậy bằng tay.

Đây là cách bạn có thể đặt lại STDIN:

void stdin_reset(void)
{
    struct termios t;
    get_stdin(&t);
    t.c_lflag |= ECHO;
    t.c_lflag |= ICANON;
    set_stdin(&t);
}

Đầu ra như được hiển thị trong GIF :-)

Mã máy x86 trên MS-DOS - 14 byte

Như thường lệ, đây là tệp COM đầy đủ, có thể chạy trên DosBox, cộng với hầu hết các biến thể DOS.

00000000  b4 08 b2 2a cd 21 80 f4  0a 3c 0d 75 f7 c3        |...*.!...<.u..|
0000000e

Nhận xét lắp ráp:

    org 100h

section .text

start:
    mov ah,8h       ; ah starts at 08h (read console, no echo)
    mov dl,'*'      ; write asterisks (we could have left whatever
                    ; startup value we have here, but given that dx=cs,
                    ; we have no guarantee to get a non-zero non-space
                    ; value)
lop:
    ; this loop runs twice per character read: the first time with
    ; ah = 08h (read console, no echo syscall), the second time with
    ; ah = 02h (write console); a xor is used to switch from one
    ; mode to the other
    int 21h         ; perform syscall
    xor ah,0ah      ; switch syscall 08h <=> 02h
    cmp al,0dh      ; check if we read a newline (if we wrote stuff
                    ; we are just checking the last value read, so
                    ; no harm done; at the first iteration al starts
                    ; at 0, so no risk here)
    jne lop         ; loop if it wasn't a newline
quit:
    ret             ; quit

Python 2 , 50 byte

from msvcrt import*
while'\r'!=getch():print'\b*',

^{Chỉ hoạt động trên windows}

AHK , 17 byte

InputBox,o,,,HIDE

Được xây dựng không thú vị.

Java 5-8, 125 122 131 124 byte

class X{public static void main(String[]a){new java.awt.Frame(){{add(new javax.swing.JPasswordField());setVisible(1>0);}};}}

Ung dung:

class X{
    public static void main(String[]a){
        new java.awt.Frame(){
            {
                add(new javax.swing.JPasswordField());
                setVisible(1>0);
            }
        };
    }
}

Kết quả:

Tín dụng:

-3 @MD XF (Chỉ ra sai lầm ngu ngốc của tôi với String[]args)

-7 @KritixiLithos (Chỉ ra public classlà có thể class)

Toán học 34 byte

 InputString["",FieldMasked->True];

Một dấu hoa thị xuất hiện, sau khi mỗi ký tự được nhập. Dấu ngoặc kép trống dành cho tiêu đề xuất hiện trong cửa sổ nhập liệu bật lên.

Việc ;ngăn chặn mật khẩu được in.

Vim, 58 50 52 50 byte

Đã thêm để đảm bảo nó xử lý không gian đúng cách.

Cảm ơn @DJMcMayhem vì một loạt các trợ giúp và ý tưởng

i:im 32 *Y94pVGg
kWcW<Space>
:im 
 ZQ
dG@"qi

Trong cú pháp khóa Vim điển hình dưới đây. Các ký tự được đánh dấu như với a ^là Ctrl+<char>, vì vậy ^Q=Ctrl+q

i:im ^V^V32 *^[Y94pVGg^A
kWcW<Space>^[
:im ^V
 ZQ
dG@"qi

Không có liên kết TIO, vì bạn cần nhập trực tiếp vào Vim (trái ngược với nhập trước như bình thường). Để chạy mã, bạn cần nhập mã vào Vim, sau đó bạn có thể nhập mật khẩu của mình và nhấn enter. Nó sẽ không làm bất cứ điều gì với mật khẩu. Nó thậm chí sẽ không biết nó là gì. Ngay khi bạn nhấn vào cửa sổ Vim sẽ:q!

Điều này hoạt động bằng cách ánh xạ tất cả ASCII có thể in sang *chế độ chèn và ánh xạ <CR>tới<ESC>:q!<CR>

FLTK, 47 ký tự

Function{}{}{Fl_Window{}{}{Fl_Input{}{type 5}}}

Chạy mẫu:

bash-4.4$ fluid -c password.fl

bash-4.4$ fltk-config --compile password.cxx 
g++ -I/usr/include/cairo -I/usr/include/glib-2.0 -I/usr/lib/x86_64-linux-gnu/glib-2.0/include -I/usr/include/pixman-1 -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/freetype2 -I/usr/include/cairo -I/usr/include/glib-2.0 -I/usr/lib/x86_64-linux-gnu/glib-2.0/include -I/usr/include/pixman-1 -I/usr/include/freetype2 -I/usr/include/libpng16 -g -O2 -fPIE -fstack-protector-strong -Wformat -Werror=format-security -fvisibility-inlines-hidden -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_THREAD_SAFE -D_REENTRANT -o 'password' 'password.cxx' -Wl,-Bsymbolic-functions -fPIE -pie -Wl,-z,relro -Wl,-z,now -Wl,--as-needed -lfltk -lX11

bash-4.4$ ./password 

Đầu ra mẫu:

Đang xử lý, 53 byte

String a="";void draw(){text(keyPressed?a+=0:a,9,9);}

Điều này nhận đầu vào thông qua nhấn phím từ một cửa sổ đồ họa. Ký tự mà nó chọn để thể hiện mật khẩu là 0. Lưu ý rằng do tốc độ khung hình cao, mỗi phím nhấn sẽ xuất hiện dưới dạng nhiều 0s (và cũng do thực tế rằng đây là keyPressedvà không keyTyped(không phải là boolean) hoặc keyrelease).

Bash , 54 byte

while read -eN1 c 2>&-;[[ ${c/$'\r'/} ]];do printf X;done

Đối với mục đích ghi bàn, $'\r'có thể được thay thế bằng một sự trở lại vận chuyển theo nghĩa đen.

Hãy thử trực tuyến! (không nhìn nhiều)

ZX81 BASIC, 54 byte

10 IF LEN INKEY$ THEN GOTO PI
30 IF NOT LEN INKEY$ THEN GOTO EXP PI
50 IF INKEY$>"Z" THEN STOP
70 PRINT "*";
90 GOTO PI

Trong ký tự ZX81, các ký tự có thể in được nằm trong không gian phạm vi Z, mặc dù thực tế bạn không thể nhập một khoảng trắng theo cách này là ký tự ngắt.

ZX Spectrum BASIC, 24 byte

10 PAUSE NOT PI: IF INKEY$>=" " THEN PRINT "*";:GOTO PI

Lưu ý rằng >=được tính là một từ khóa một byte trong Sinclair BASIC (codepoint 140 trong trường hợp này).

R, 29 byte

invisible(openssl::askpass())

Tích hợp sẵn xử lý các mục nhập mật khẩu. Mở một cửa sổ mới và thay thế đầu vào bằng dấu chấm. invisibleđược sử dụng để ngăn chặn việc in mật khẩu sang STDOUT.

Tcl / Tk, 18

gri [ent .e -sh *]

Phải được chạy trên vỏ tương tác (hoặc bật chữ viết tắt):

Vim, 15 tổ hợp phím

:cal inp<S-tab>'')|q<cr>

<S-tab>có nghĩa là shift + tab.

Rõ ràng, có một nội dung cho điều này mà tôi không biết. Vì tôi thực sự thích câu trả lời thủ công của mình và cách tiếp cận này hoàn toàn khác biệt, tôi nghĩ rằng tôi nên đăng một câu trả lời mới thay vì chỉnh sửa.

Điều này hoạt động bằng cách gọi inputsecrethàm, sau đó thoát ngay lập tức sau khi thoát.

Mã máy 6502 (C64), 22 21 byte

0e 08 20 9f ff 20 e4 ff f0 f8 c9 0d f0 01 a9 60 20 d2 ff 50 ed

Cách sử dụng :SYS 2062

Danh sách tháo gỡ được nhận xét (ACME), bạn có thể bỏ ghi chú ba dòng nhận xét đầu tiên để khởi chạy RUNkhi đã tải:

!cpu 6502
!to "password2.prg",cbm
;* = $0801                               ; BASIC starts at #2049
;!byte $0d,$08,$dc,$07,$9e,$20,$32,$30   ; BASIC to load $c000
;!byte $36,$32,$00,$00,$00               ; inserts BASIC line: 2012 SYS 2062

    GETIN  =  $FFE4
    SCNKEY =  $FF9F
    CHROUT =  $FFD2

* = $080e
keyScan:
    jsr SCNKEY  ; get key
    jsr GETIN   ; put key in A

    beq keyScan ; if no key pressed loop    

    cmp #13     ; check if RETURN was pressed
    beq $081b   ; if true go to operand of next instruction (#$60 = rts)

    lda #$60    ; load char $60 into accumulator
    jsr CHROUT  ; print it

    bvc keyScan ; loop

Bình luận:

• Tôi chưa tìm thấy bất cứ điều gì trong các tài liệu, nhưng dường như, sau cuộc gọi GETIN, các nhánh beq chỉ ở nơi không có phím bấm mới nào được ghi lại;
• Sử dụng # $ 60 làm char đầu ra, byte đó có thể được sử dụng lại làm hướng dẫn "rts" khi nhấn RETURN.

Forth (gforth) , 54 byte

: f begin key dup 4 - swap 13 - * while ." *" repeat ;

Giải trình

begin      \ enters the loop
    key    \ waits for a single character as input, places ascii code of character on stack
    dup    \ duplicates the key value on the stack
    4 -    \ subtracts 4 from the key value (shorter way of checking for not equals)
    swap   \ swaps the top two stack values
    13 -   \ subtract 13 from the key value
    *      \ multiply top two stack values (shorter version of "and")
while      \ if top of stack is true, enter loop body, else exit loop
    ." *"  \ output *
repeat     \ go back to beginning of loop

Python 3 + tkinter- 63 61 byte

from tkinter import*
t=Tk();Entry(show=1).pack();t.mainloop()

Hiển thị một 1ký tự cho mọi ký tự, kết thúc khi đóng cửa sổ (OP cho biết là được phép).

Groovy, 77 73 byte

{new java.awt.Frame(){{add(new javax.swing.JPasswordField());visible=1}}}

Đây là một đóng cửa ẩn danh, với 0 đầu vào cần thiết.

Ung dung:

{
    new java.awt.Frame() {
        {
            add(new javax.swing.JPasswordField())
            visible=1
        }
    }
}

Chỉnh sửa 1 (-4 byte): Thành phần # hiển thị có thể được truy cập trực tiếp, đọc thêm tại đây .

Micro , 35 byte

"":i{L46c:\
i~+:i
i10c=if(,a)}a
i:\

giải thích:

"": tôi tạo chuỗi trống mới 'i'
    {bắt đầu vòng lặp đầu vào
     L nhập một ký tự
      46c: \ display ascii char # 46 (.) (Nó được bật lên, để lại char đầu vào từ 'L'
           i ~ +: tôi đẩy tôi, lật tôi và char xung quanh, kết hợp chúng và lưu trữ nó với tôi
                i10c = if (, a)} a OK, rất nhiều điều xảy ra ở đây, nếu một NL nằm trong i, vòng lặp chấm dứt và i: \ cuối cùng sẽ hiển thị đầu vào

BF, 24 byte

++++++[->++++++<],[>.<,]

Hoạt động với bf.doleczek.pl . Bạn có thể gửi char không cho chương trình bằng Ctrl + Z.

Giải pháp thay thế:

BF, 1 byte

,

Đây là một giải pháp rất hay nói. Thiết bị đầu cuối của tôi rộng 0 ký tự , vì vậy vui lòng không nhập bất kỳ mật khẩu nào dài hơn thế.

PowerShell, 12 byte

Read-Host -a

Điều này đọc đầu vào từ máy chủ lưu trữ và, với cờ -a coi nó là mật khẩu / mật khẩu. Trong ISE, nó hiện lên một hộp thông báo có hành vi tương tự vì ISE không cho phép chụp phím.

PS C:\Windows\system32> Read-Host -a
************

QBasic, 48 byte

DO
a$=INPUT$(1)
IF ASC(a$)=13THEN END
?"*";
LOOP

INPUT$(1)đọc ký tự tiếp theo từ đầu vào bàn phím. (Điều này có thể bao gồm những thứ như tab, backspace và thoát, nhưng vì OP không nói gì về những điều mà tôi cho rằng chúng ta không phải lo lắng về chúng.) Nếu ký tự là \r(ASCII 13), hãy chấm dứt chương trình; mặt khác, in *mà không có một dòng mới. Lặp lại quảng cáo vô hạn.

Perl + Bash, 30 byte

print"*"while$|=1+`read -sn 1`

clà *, sử dụng readtừ bash, vì vậy không phải là một giải pháp Perl thuần túy.

Brainfuck, 21 byte

-[+>,[<->+[<.>[-]]]<]

Cuối cùng, tôi hứa. Không có đầu vào = -1, kết thúc đầu vào = 0

Làm thế nào nó hoạt động

-[  Enters the loop
  +>, Get input
     [<->+ If not end of input it create the ÿ character and check if the input is not -1
          [<.>[-]]] If there was input, print the ÿ character. 
                    <] Exit the loop if end of input

QBIC , 44 byte

{X=inkey$~X<>@`|~X=chr$(13)|_X\Y=Y+@*`_C?Y

Giải trình

{            DO
X=inkey$     Read a char, set it to X$
             Note that INKEY$ doesn't wait for keypress, but simply sends out "" if no key was pressed.
~X<>@`|      IF X$ has a value THEN
~X=chr$(13)| IF that value is ENTER
_X           THEN END
\            ELSE
Y=Y+@*`      append a literal * to Y$
_C           Clear the screen
?Y           Display Y$ (having 1 * for each char entered)
             The IF's and the DO-loop are auto-closed at EOF{            DO