Wow, Nakoz, hardcore-programmer! §jr
HTML, vad är det för spejsat elit-språk? :OO
------------------
"Jag vill ju vara så där tuff och originell som alla andra"
69 svar · 987 visningar · startad av Sannah · sida 4 av 4
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. \------------------ www.sannah.f2s.com \------------------ \[Redigerat av Sannah den 18 apr 2001\]
Läs frågan i sin helhet →Wow, Nakoz, hardcore-programmer! §jr
HTML, vad är det för spejsat elit-språk? :OO
------------------
"Jag vill ju vara så där tuff och originell som alla andra"
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 :e
------------------
void[]
stash/$gu&-public(querystring)/n int{}bind "2" "say i own!" :)
<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......
------------------
"På min tid hade vi inga stenar. Vi fick gå ner till bäcken och tvätta våra
kläder genom att banka dem med huvudet."
Sällar mig till den exklusiva skaran av +40 :h
/webb
------------------
Vem ska du göra glad imorgon?
Får väl höja lite då - 38
/ m a r t i n - känner mig ung och gammal
------------------
martin.iconmedialab.se
martin@iconmedialab.se
Jag är inne på mitt 21:a :e
------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho