ålder
69 svar · 1 027 visningar · startad av Sannah · sida 4 av 4
Trådstarten, av Sannah
hur gamla är alla på wF egentligen? får nya överraskningar varje gång en person nämner sin ålder. nå, fram med språket nu. :) själv är jag... snart 15.
Läs hela trådstarten →
okej.. nu ska jag va lika tråkig som alla andra som "vill visa" (?!) att de kan nåt mer än html?
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#AA542B"><%
Dim alder
alder = Request.Form("alder")
If alder <> 18 Then
Response.Write "så här gammal är jag verkligen inte."
Else
' så här gammal är faktist nakoz, därför får han komma till supersidan
Response.Redirect "kungen.asp"
End If
%>
oj, nu va jag lite rolig.. eh... men de va hardcore iaf 
Verkar som att jag är ensam om att vara 21 här....
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#AA542B">
program age;
{$APPTYPE CONSOLE}
uses
SysUtils;
function x(Str, Key: String): String;
var
X, Y : Integer;
A : Byte;
begin
Y := 1;
for X := 1 to length(Str) do begin
A := (ord(Str[X]) and $0f) xor (ord(Key[Y]) and $0f);
Str[X] := char((ord(Str[X]) and $f0) + A);
inc(Y);
if Y > length(Key) then
Y := 1;
end;
Result := Str;
end;
begin
Writeln(x('Jll&ênahu%æt/14#','Webforum'));
Readln;
end.
Det känns som om vissa personer har oerhört mycket tid över......
Just nu är vår medelålder ca 23 år.
19
Jag är inne på mitt 21:a