Haseł STDIN szyfrujących w języku Perl

Question

Produkuję moduł Perla, który zapewnia interfejs OO dla interfejsu API innej firmy. Chcę przechwycić i przechowywać hasło użytkownika w zaszyfrowanym formacie, zanim zostanie przesłane do interfejsu API innej firmy. Moduł jest przeznaczony do uruchamiania tylko w systemach UNIX.

Utworzono następujący skrypt, który wykonuje funkcję przechwytywania - czy jest to poprawne w tym sensie, że przechowuje tylko zmienną hasła w zaszyfrowanym formacie? Obawiam się, że hasło może być dostępne w pamięci w innym miejscu (np. Pod $ _ chociaż $ _ jest undef).

NB. Używam STDIN zamiast @ARGV z założeniem, że system operacyjny nie zarejestruje wpisu lub nie poda hasła w nazwie procesu. Używam zastępczego regex zamiast chomp, aby wejście nie musiało być przechowywane w tymczasowej niezaszyfrowanej zmiennej. Zakładam również, że nie można być całkowicie bezpiecznym w tym sensie, że oprogramowanie do przechwytywania wejścia może nadal przechwytywać dane wejściowe użytkownika.

góry dzięki

use strict; 
use warnings; 
use Crypt::CBC; 
use 5.14.0; 

print 'Please enter your password: '; 
system('tty -echo'); 
my $key = Crypt::CBC->random_bytes(56); 
my $iv = Crypt::CBC->random_bytes(8); 
my $cipher = Crypt::CBC->new(-key => $key, 
          -cipher => 'Blowfish', 
          -salt => 1, 
          ); 
my $ciphertext = $cipher->encrypt(<STDIN> =~ s/\n$//r); 
system('tty echo'); 

Answer 1

To trudne.

Uruchom swój kod szyfrujący jako oddzielny proces, element podrzędny kodu głównego, który to proces odczytuje ze STDIN i zwraca zaszyfrowane hasło (i być może klucz). W ten sposób kod wykorzystujący twój moduł sam w sobie nigdy nie utrzyma w pamięci zwykłego tekstu.

Oczywiście, śledzenie i kontrola pamięci (oraz kontrola pamięci po śmierci procesowej) pomocnika dziecięcego ujawni jawny tekst. Te same techniki ujawnią klucz i tekst zaszyfrowany odczytany również z pomocnika dziecięcego. Jeśli jednak scenariusz, w którym chcesz się bronić, to przypadkowe zatrzymanie jawnego tekstu w procesie - w złożonym obiekcie lub zamknięciu lub nie-wiem-a-temp-var-był-przydzielony-tam - wtedy wykonuj pracę w dedykowanym, krótkotrwałym procesie.

Answer 2

$ strace perl -E '<STDIN>' 
.... scroll, scroll, scroll .... 
read(0, 
... type, type, type .... 
"secret\n", 4096)    = 7 
exit_group(0)       = ? 

Nie sądzę, że można zapobiec kogoś z odpowiednimi uprawnieniami dostępu z wystającym wewnątrz połączeń systemowych lub pamięci.

Answer 3

Wygląda na to, że wdrażasz Password Anti-pattern. To okropny pomysł - uczy użytkowników być wyłudzonymi. Proszę tego nie robić. Zamiast tego powinieneś spojrzeć na użycie numeru OAuth.