1:
2:

Bei einem verheerenden Zugunglück in Florida verlieren zahllose Menschen ihr Leben. Die Ursache scheint ein defekter Mikrochip zu sein. Wenig später geschieht aus demselben Grund eine weitere Katastrophe in Florida. Unvorhersehbare Computer-Abstürze gefährden Menschenleben und den Status der amerikanischen Computerbranche. 
Erika Conklin, eine ehemalige Hackerin, arbeitet für das FBI und untersucht die Vorfälle. Alles deutet auf Sabotage hin. Gemeinsam mit Brent McClaine, einem Spezialagenten des FBI, macht sie sich auf die Suche nach den Tätern. Für Erika und Brent beginnt ein Wettlauf mit der Zeit, denn der nächste Computer-Absturz steht unmittelbar bevor ...                    

1:
2:
3:
4:
5:
6:
7:

Procedure EnDeCrypt(Var InString: String);
Var x: Byte;
Begin
  RandSeed := Length(InString);
  FOR x := 1 To Length(InString) Do
    InString[x] := Chr(Ord(InString[x]) Xor (Random(128) Or 128));
End;                    

1:

for i:=IfThen(1>Ord(Chr(2)),32,IfThen(4=5,7,12)) downto IfThen(Ord('Z')<Ord(UpperCase(Copy('Hallo',2,1))[1]),Random(432),Ord(#6)) do ShowMessage('fusjggiznawzgreuhefidhghaldo'[i]);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

Also, A ist die folgende Matrix:

4 9 3 7 2
0 7 8 6 4
0 0 1 1 6
0 0 0 6 9
0 0 0 0 4

Mein Alter vor einem Jahr = Summe der Eigenwerte von A.                    

1:
2:

Ax=nx  <=>  Ax-nx=0  <=>  Ax-nEx=0  <=>  x(A-nE)=0
E: Einheitsmatrix.                    

1:

rang A = rang (A,x)                    

1:
2:
3:
4:
5:
6:
7:

 mov  ax,42
 shr  ax,2
 or   ax,0A
 push ax
 mov  ax,13
 pop  bx
 xor  ax,bx                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function ver(text, key:String) :String; //Verschlüsselt den "text" mit dem Schlüssel "key"
var s,s2:String;
    i:integer;
begin
s2:= '';
keyint:=0;
for i:=1 to length(Text) do begin //vom ersten bis zum letzten Buchstaben des Textes...
  s:=Char(byte( Ord(Text[i])+(Ord(keychar(key))))); //Verwandel den Buchstaben Nummer "i" in eine Zahl, addiere die Zahl des Schlüssels, verwandel das ganze zurück in einen Buchstaben (der Befehl Char() wird fast immer mit char(byte(65)) benutzt. warum auch immer...(65 ist übrigens 'a'))
  s2:=s2+s; //füge den neuen Buchstaben an "s2" an
end;
ver:=s2; //liefere "s2" zurück
s2:='';
end;                    

1:

mir zu teuer mein alter zu verraten   :D  :twisted:  :mrgreen:                    

1:
2:
3:
4:
5:
6:

procedure Test: integer;
var i: integer;
begin
  i := 'Hallo';
  sqrt('Hallo') = 5;
end;