<html>
<meta http-equiv="Refresh" content="2">
<!--
Platzieren Sie diesen Code auf einer ASP-Seite und führen Sie ihn aus!
->
<Code>
Zufällige Dateinamenerstellung
<%
Funktionsgenerator (Länge)
dim i, tempS, v
dim c(39)
tempS = ""
c(1) = „a“: c(2) = „b“: c(3) = „c“: c(4) = „d“: c(5) = „e“: c(6) = „f“: c(7) = „g“
c(8) = „h“: c(9) = „i“: c(10) = „j“: c(11) = „k“: c(12) = „l“: c(13) = „m“: c(14) = „n“
c(15) = „o“: c(16) = „p“: c(17) = „q“: c(18) = „r“: c(19) = „s“: c(20) = „t“: c(21) = „u“
c(22) = „v“: c(23) = „w“: c(24) = „x“: c(25) = „y“: c(26) = „z“: c(27) = „1“: c(28) = „2“
c(29) = „3“: c(30) = „4“: c(31) = „5“: c(32) = „6“: c(33) = „7“: c(34) = „8“: c(35) = „9“
c(36) = „-“: c(37) = „_“: c(38) = „@“: c(39) = „!“
Wenn isNumeric(Length) = False Then
Response.Write „Ein numerischer Datentyp wurde dieser Funktion nicht übermittelt.“
Exit-Funktion
Ende wenn
Für i = 1 bis Länge
Randomisieren
v = Int((39 * Rnd) + 1)
tempS = tempS & c(v)
Nächste
Generator = tempS
Funktion beenden
Für i = 1 bis 20
Randomisieren
x = Int((20 * Rnd) + 1) + 10
Response.Write Generator(x) & „<br>“ & vbnewline
Nächste
%>
</code>