Sprawdzenie listy procesów [JAVA]

Funkcja sprawdzająca listę procesów:

public static void ProcessList() {
Process p = null;
try {
p = new ProcessBuilder("tasklist").start();
InputStream is = p.getInputStream();
BufferedReader br = new BufferedReader(new InputStreamReader(is));
String line;
while ((line = br.readLine()) != null) {
System.out.println(line);
}
} catch (IOException ex) {
ex.printStackTrace();
System.out.println(ex.getMessage());
}
}

W taki sam sposób można uruchomić inne programy zmieniając

p = new ProcessBuilder("tasklist").start();

na:

p = new ProcessBuilder("help").start();

Więcej szczegółów na tej stronie.

Kodowanie ciągu znaków [DELPHI]

Funkcja:

function koduj(tekst: string; password: string; flag_code: boolean):string; // funkcja z trzema parametrami zwracająca string
var i, len_pass: integer;
tmp_str: string;
byte_in, byte_out, byte_pass: byte; //deklaracja zmiennych
begin
len_pass := Length(password); //długość klucza
for i:=1 to Length(tekst) do //pętla "obiegająca" kodowany tekst
begin
byte_in := Ord(tekst[i]); //pobranie kolejnej litery kodowanego tekstu i zamiana na bajt
byte_pass := Ord(password[i mod len_pass]); //pobranie kolejnej litery klucza i zamiana na bajt
if flag_code then //sprawdzenie flagi (czy ma być kodowanie czy dekodowanie)
byte_out := (byte_in + byte_pass) mod 256 //zakodowanie bajtu tekstu bajtem klucza i podzielenie tego modulo przez 256
else
byte_out := (256 + (byte_in - byte_pass)) mod 256; //rozkodowanie bajtu tekstu zakodowanego bajtem klucza...
tmp_str:= tmp_str + Chr(byte_out); //doklejenie roz/zakodowanego bajtu do zmiennej tymczasowej tmp_str (z zamianą zmiennej byte na char)
end;
result := tmp_str; //wyprowadzenie rezultatu funkcji
end;

Użycie funkcji:

Dekoduj:

edit1.Text:=koduj(edit2.Text,'haslo_do_szyfrowania',false);

Koduj:

edit2.Text:=koduj(edit1.Text,'haslo_do_szyfrowania',true);