<%
'******************************
' KeyGeN.asp
'******************************
'Nom du fichier texte dans lequel sera erite la clée
Const g_KeyLocation = "C:\key.txt"
'Longueur de la clée générée
Const g_KeyLen = 512

On Error Resume Next

Call WriteKeyToFile(KeyGeN(g_KeyLen),g_KeyLocation)

if Err <> 0 Then
    Response.Write "ERROR GENERATING KEY." & "<P>"
    Response.Write Err.Number & "<BR>"
    Response.Write Err.Description & "<BR>"
Else
    Response.Write "KEY SUCCESSFULLY GENERATED."
End If

Sub WriteKeyToFile(MyKeyString,strFileName)
    Dim keyFile, fso
    set fso = Server.CreateObject("scripting.FileSystemObject")
    set keyFile = fso.CreateTextFile(strFileName, true)
    keyFile.WriteLine(MyKeyString)
    keyFile.Close
End Sub

Function KeyGeN(iKeyLength)
    Dim k, iCount, strMyKey
    ' Représente l'interval de caractère en ascci à utiliser pour générer la clée
    lowerbound = 35
    upperbound = 96
    Randomize ' Initialize random-number generator.
    for i = 1 to iKeyLength
        s = 255
        k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
        strMyKey = strMyKey & Chr(k) & ""
    next
    KeyGeN = strMyKey
End Function
%>