FCLT#38509 Oude sso-bestandjes bij alle klanten weg
svn path=/Website/branches/v2018.1/; revision=39126
This commit is contained in:
Jos Groot Lipman
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aaar.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "780c865f-47d3-40c2-9990-33591dcb3eea" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aadb.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "95bf06b0-eba7-4dee-acaa-6496e152e8c4" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aado.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "f52f7409-03ae-43f1-a920-96366edd2388" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
0
CUST/AADS/sso/.gitignore
vendored
0
CUST/AADS/sso/.gitignore
vendored
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aaen.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "a8592ce8-2301-4a01-8aba-5c23cc8005af" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aaes.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "b99b5309-a367-4c54-9e57-8862e7d5ba3b" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aaey.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "09933176-ef7f-496c-b4b6-a328facc3fe1" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "http://aafr.facilitor.nl/cust/aafr/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "d69b7834-647b-4b04-9510-e4d6a7c536d0" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "http://aafr.facilitor.nl/cust/aafr/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "d69b7834-647b-4b04-9510-e4d6a7c536d0" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aagn.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "PijCxwhywdAgVkdehpyErYffgwXQwWfZ" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "http://aait.facilitor.nl/cust/aait/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "698230" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aait.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "3b7f56e1-1097-4c0f-bdb3-130a974d9df2" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aapm.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "9b877358-7b10-4bfe-ba6a-1b1d866c0e79" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aarw.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "077116f7-963f-4eea-a271-43e4cf5adff1" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aasa.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "9dc09534-ca91-4132-a3eb-28f62c40a600" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aasi.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "wAwZPTXUaseuWoiVqhaJgOSaxJGBQyJe" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://aazc.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "daaf57c2-1139-4a4a-9d37-59130dc0a306" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/alli/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "ALLI";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "CAX5933F24QW99A6Q9MXXMBXX3A00023", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: ALLI.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://alli.facilitor.nl/?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "CAX5933F24QW99A6Q9MXXMBXX3A00023" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/arai/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "ARAI";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "CAA5944F24994A47776410A123A1BE6D", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: ARAI.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://arai.facilitor.nl/cust/arai/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "CAA5944F24994A47776410A123A1BE6D" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/arbo/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "ARBO";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "3302654", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://blcc.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "BRnBxjtXlVZkREQNTpzFlQDXccLTrdQM" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Modtime: 16-08-10 12:46 $
|
||||
File: cust/denb/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "DENB";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "B6A59C0824334A4BB26410A5D5A13C6D", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Modtime: 0 $
|
||||
File: cust/gdzw/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "GDZW";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "6022153132", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,171 +0,0 @@
|
||||
<%@ Language=JavaScript %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
|
||||
Dit bestand maakt het mogelijk voor gebruikers van Facilitor SaaS
|
||||
om via Single Sign-On toegang te krijgen.
|
||||
*/ %>
|
||||
<%Response.Expires=0;%>
|
||||
<html>
|
||||
<%
|
||||
|
||||
/**
|
||||
*
|
||||
* Base64 encode / decode
|
||||
* http://www.webtoolkit.info/
|
||||
*
|
||||
**/
|
||||
var Base64 = {
|
||||
|
||||
// private property
|
||||
_keyStr : "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=",
|
||||
|
||||
// public method for encoding
|
||||
encode : function (input) {
|
||||
var output = "";
|
||||
var chr1, chr2, chr3, enc1, enc2, enc3, enc4;
|
||||
var i = 0;
|
||||
|
||||
input = Base64._utf8_encode(input);
|
||||
|
||||
while (i < input.length) {
|
||||
|
||||
chr1 = input.charCodeAt(i++);
|
||||
chr2 = input.charCodeAt(i++);
|
||||
chr3 = input.charCodeAt(i++);
|
||||
|
||||
enc1 = chr1 >> 2;
|
||||
enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
|
||||
enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
|
||||
enc4 = chr3 & 63;
|
||||
|
||||
if (isNaN(chr2)) {
|
||||
enc3 = enc4 = 64;
|
||||
} else if (isNaN(chr3)) {
|
||||
enc4 = 64;
|
||||
}
|
||||
|
||||
output = output +
|
||||
this._keyStr.charAt(enc1) + this._keyStr.charAt(enc2) +
|
||||
this._keyStr.charAt(enc3) + this._keyStr.charAt(enc4);
|
||||
|
||||
}
|
||||
|
||||
return output;
|
||||
},
|
||||
|
||||
// public method for decoding
|
||||
decode : function (input) {
|
||||
var output = "";
|
||||
var chr1, chr2, chr3;
|
||||
var enc1, enc2, enc3, enc4;
|
||||
var i = 0;
|
||||
|
||||
input = input.replace(/[^A-Za-z0-9\+\/\=]/g, "");
|
||||
|
||||
while (i < input.length) {
|
||||
|
||||
enc1 = this._keyStr.indexOf(input.charAt(i++));
|
||||
enc2 = this._keyStr.indexOf(input.charAt(i++));
|
||||
enc3 = this._keyStr.indexOf(input.charAt(i++));
|
||||
enc4 = this._keyStr.indexOf(input.charAt(i++));
|
||||
|
||||
chr1 = (enc1 << 2) | (enc2 >> 4);
|
||||
chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
|
||||
chr3 = ((enc3 & 3) << 6) | enc4;
|
||||
|
||||
output = output + String.fromCharCode(chr1);
|
||||
|
||||
if (enc3 != 64) {
|
||||
output = output + String.fromCharCode(chr2);
|
||||
}
|
||||
if (enc4 != 64) {
|
||||
output = output + String.fromCharCode(chr3);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
output = Base64._utf8_decode(output);
|
||||
|
||||
return output;
|
||||
|
||||
},
|
||||
|
||||
// private method for UTF-8 encoding
|
||||
_utf8_encode : function (string) {
|
||||
string = string.replace(/\r\n/g,"\n");
|
||||
var utftext = "";
|
||||
|
||||
for (var n = 0; n < string.length; n++) {
|
||||
|
||||
var c = string.charCodeAt(n);
|
||||
|
||||
if (c < 128) {
|
||||
utftext += String.fromCharCode(c);
|
||||
}
|
||||
else if((c > 127) && (c < 2048)) {
|
||||
utftext += String.fromCharCode((c >> 6) | 192);
|
||||
utftext += String.fromCharCode((c & 63) | 128);
|
||||
}
|
||||
else {
|
||||
utftext += String.fromCharCode((c >> 12) | 224);
|
||||
utftext += String.fromCharCode(((c >> 6) & 63) | 128);
|
||||
utftext += String.fromCharCode((c & 63) | 128);
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
return utftext;
|
||||
},
|
||||
|
||||
// private method for UTF-8 decoding
|
||||
_utf8_decode : function (utftext) {
|
||||
var string = "";
|
||||
var i = 0;
|
||||
var c = c1 = c2 = 0;
|
||||
|
||||
while ( i < utftext.length ) {
|
||||
|
||||
c = utftext.charCodeAt(i);
|
||||
|
||||
if (c < 128) {
|
||||
string += String.fromCharCode(c);
|
||||
i++;
|
||||
}
|
||||
else if((c > 191) && (c < 224)) {
|
||||
c2 = utftext.charCodeAt(i+1);
|
||||
string += String.fromCharCode(((c & 31) << 6) | (c2 & 63));
|
||||
i += 2;
|
||||
}
|
||||
else {
|
||||
c2 = utftext.charCodeAt(i+1);
|
||||
c3 = utftext.charCodeAt(i+2);
|
||||
string += String.fromCharCode(((c & 15) << 12) | ((c2 & 63) << 6) | (c3 & 63));
|
||||
i += 3;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
return string;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
var user = '' + Request.ServerVariables("REMOTE_USER");
|
||||
if (user =='' || user=='undefined') {
|
||||
user = '' + Request.ServerVariables("HTTP_USER");
|
||||
if (user =='' || user=='undefined') {
|
||||
user =='';
|
||||
}
|
||||
}
|
||||
%>
|
||||
|
||||
<head>
|
||||
</head>
|
||||
<body onload="document.all.facilitor.submit();">
|
||||
<form name="facilitor" action="https://gdzw.facilitor.nl/default.asp?fac_id=gdzw" method=post>
|
||||
<input type="hidden" name="UID" value="<%=Base64.encode(user)%>">
|
||||
</form>
|
||||
</body>
|
||||
</html>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/goud/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "GOUD";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "E8A81E1F3E5B449D80FB90171F8B9EEE", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://gulu.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "33ea3850-9758-426a-a835-ee614e756bf4" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/hout/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "HOUT";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "3724", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://ivet.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "KvafadfLwerkkesrRRVsdSZeZXXQxxQs" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/ling/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "LING";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "8122393053", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,110 +0,0 @@
|
||||
<?php
|
||||
/*******************************************************************
|
||||
Script: SSO-prod.php
|
||||
|
||||
$Revision$
|
||||
$Id$
|
||||
|
||||
|
||||
Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
Voor Lingewaard - PRODUCTIE
|
||||
Auteur: Peter Koerhuis (originele ASP-versie door Thorwald Beeris)
|
||||
/*******************************************************************/
|
||||
/* declare *********************************************************/
|
||||
$strGUID; $strCTID; $strUserName; $strKey ;
|
||||
$strEncryptedCode = ''; $strControlEncryptedCode = '';
|
||||
/* variables *******************************************************/
|
||||
$strASPUrl = "https://ling.facilitor.nl/cust/LING/sso.asp"; // HTTPS URL adres van ASP
|
||||
$strSharedKey = "8122393053"; //Sharedkey - Should be the same at target side
|
||||
/*******************************************************************/
|
||||
?>
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<?php echo $strASPUrl; ?>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<?php echo 'http://'.$_SERVER["HTTP_HOST"].$_SERVER["SCRIPT_NAME"]; ?>" ID="Hidden1">
|
||||
<?php
|
||||
/* request action = requestid ***************************************/
|
||||
$strGUID = isset($_REQUEST["guid"]) ? $_REQUEST["guid"] : "";
|
||||
$strCTID = isset($_REQUEST["ctid"]) ? $_REQUEST["ctid"] : "";
|
||||
$strJumpTo = isset($_REQUEST["jumpTo"]) ? $_REQUEST["jumpTo"] : "";
|
||||
|
||||
if ($strGUID == "" || $strCTID == "") {
|
||||
/* first flow: requestid ****************************************/
|
||||
?>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<?php echo $strJumpTo; ?>" ID="jumpTo">
|
||||
<?php
|
||||
} else {
|
||||
/* second flow: create code *************************************/
|
||||
|
||||
// TODO: Plak hier de code die de username achterhaalt (met of zonder domein)
|
||||
// NB: Dit script wordt weliswaar twee keer aangeroepen, maar dat gebeurt
|
||||
// beide keren vanaf de PC van de klant, dus beide keren moet op
|
||||
// basis van IP de user te achterhalen zijn.
|
||||
// Om de SSO te testen zet ik hier de user hard op APAAN.
|
||||
$strUserName = 'LINGEWAARD\APAAN';
|
||||
|
||||
// Strip domain name
|
||||
while ( strpos($strUserName, "\\") > 0 ) {
|
||||
$strUserName = substr( $strUserName, strpos($strUserName, "\\") + 1 );
|
||||
}
|
||||
/* crypt ********************************************************/
|
||||
//First coding phase
|
||||
$strKey = substr( $strSharedKey.$strGUID, 0, strlen($strUserName) );
|
||||
$strEncryptedCode = EnCrypt($strUserName);
|
||||
//Second coding phase
|
||||
$strKey = substr( $strGUID, 0, strlen($strEncryptedCode) );
|
||||
$strEncryptedCode = EnCrypt($strEncryptedCode);
|
||||
/* crypt Controlkey *********************************************/
|
||||
//First coding phase
|
||||
$strKey = substr( $strSharedKey.$strCTID, 0, strlen($strCTID) );
|
||||
$strControlEncryptedCode = EnCrypt("http://".$_SERVER["HTTP_HOST"].$_SERVER["SCRIPT_NAME"] );
|
||||
//Second coding phase
|
||||
$strKey = substr( $strCTID, 0, strlen($strControlEncryptedCode) );
|
||||
$strControlEncryptedCode = EnCrypt($strControlEncryptedCode);
|
||||
?>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<?php echo ConvertToAsc($strEncryptedCode); ?>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<?php echo ConvertToAsc($strControlEncryptedCode); ?>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<?php echo strlen($strUserName); ?>" ID="Hidden6">
|
||||
<?php
|
||||
}
|
||||
/* Functions ********************************************************/
|
||||
function EnCrypt($strCryptThis) {
|
||||
global $strKey;
|
||||
$strChar; $iKeyChar; $iStringChar; $i;
|
||||
$strEncrypted = "";
|
||||
|
||||
for ($i=0; $i < strlen($strCryptThis); $i++ ) {
|
||||
$iKeyChar = ord( substr( $strKey, $i, 1) );
|
||||
$iStringChar = ord( substr( $strCryptThis, $i, 1) );
|
||||
$iCryptChar = $iKeyChar ^ $iStringChar;
|
||||
$strEncrypted .= chr($iCryptChar);
|
||||
}
|
||||
return $strEncrypted;
|
||||
}
|
||||
function ConvertToAsc($strAsc) {
|
||||
$iCount; $strTemp;
|
||||
$res = "";
|
||||
for ($iCount = 0; $iCount < strlen($strAsc); $iCount++ ) {
|
||||
$strTemp = ord( substr( $strAsc, $iCount, 1) );
|
||||
$res .= strlen($strTemp).$strTemp;
|
||||
}
|
||||
|
||||
return $res;
|
||||
}
|
||||
/*********************************************************************/
|
||||
?>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,109 +0,0 @@
|
||||
<?php
|
||||
/*******************************************************************
|
||||
Script: SSO.php
|
||||
|
||||
$Revision$
|
||||
$Id$
|
||||
|
||||
|
||||
Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
Auteur: Peter Koerhuis (originele ASP-versie door Thorwald Beeris)
|
||||
/*******************************************************************/
|
||||
/* declare *********************************************************/
|
||||
$strGUID; $strCTID; $strUserName; $strKey ;
|
||||
$strEncryptedCode = ''; $strControlEncryptedCode = '';
|
||||
/* variables *******************************************************/
|
||||
$strASPUrl = "https://ling-a.facilitor.nl/cust/LING/sso.asp"; // HTTPS URL adres van ASP
|
||||
$strSharedKey = "8122393053"; //Sharedkey - Should be the same at target side
|
||||
/*******************************************************************/
|
||||
?>
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<?php echo $strASPUrl; ?>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<?php echo 'http://'.$_SERVER["HTTP_HOST"].$_SERVER["SCRIPT_NAME"]; ?>" ID="Hidden1">
|
||||
<?php
|
||||
/* request action = requestid ***************************************/
|
||||
$strGUID = isset($_REQUEST["guid"]) ? $_REQUEST["guid"] : "";
|
||||
$strCTID = isset($_REQUEST["ctid"]) ? $_REQUEST["ctid"] : "";
|
||||
$strJumpTo = isset($_REQUEST["jumpTo"]) ? $_REQUEST["jumpTo"] : "";
|
||||
|
||||
if ($strGUID == "" || $strCTID == "") {
|
||||
/* first flow: requestid ****************************************/
|
||||
?>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<?php echo $strJumpTo; ?>" ID="jumpTo">
|
||||
<?php
|
||||
} else {
|
||||
/* second flow: create code *************************************/
|
||||
|
||||
// TODO: Plak hier de code die de username achterhaalt (met of zonder domein)
|
||||
// NB: Dit script wordt weliswaar twee keer aangeroepen, maar dat gebeurt
|
||||
// beide keren vanaf de PC van de klant, dus beide keren moet op
|
||||
// basis van IP de user te achterhalen zijn.
|
||||
// Om de SSO te testen zet ik hier de user hard op APAAN.
|
||||
$strUserName = 'LINGEWAARD\APAAN';
|
||||
|
||||
// Strip domain name
|
||||
while ( strpos($strUserName, "\\") > 0 ) {
|
||||
$strUserName = substr( $strUserName, strpos($strUserName, "\\") + 1 );
|
||||
}
|
||||
/* crypt ********************************************************/
|
||||
//First coding phase
|
||||
$strKey = substr( $strSharedKey.$strGUID, 0, strlen($strUserName) );
|
||||
$strEncryptedCode = EnCrypt($strUserName);
|
||||
//Second coding phase
|
||||
$strKey = substr( $strGUID, 0, strlen($strEncryptedCode) );
|
||||
$strEncryptedCode = EnCrypt($strEncryptedCode);
|
||||
/* crypt Controlkey *********************************************/
|
||||
//First coding phase
|
||||
$strKey = substr( $strSharedKey.$strCTID, 0, strlen($strCTID) );
|
||||
$strControlEncryptedCode = EnCrypt("http://".$_SERVER["HTTP_HOST"].$_SERVER["SCRIPT_NAME"] );
|
||||
//Second coding phase
|
||||
$strKey = substr( $strCTID, 0, strlen($strControlEncryptedCode) );
|
||||
$strControlEncryptedCode = EnCrypt($strControlEncryptedCode);
|
||||
?>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<?php echo ConvertToAsc($strEncryptedCode); ?>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<?php echo ConvertToAsc($strControlEncryptedCode); ?>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<?php echo strlen($strUserName); ?>" ID="Hidden6">
|
||||
<?php
|
||||
}
|
||||
/* Functions ********************************************************/
|
||||
function EnCrypt($strCryptThis) {
|
||||
global $strKey;
|
||||
$strChar; $iKeyChar; $iStringChar; $i;
|
||||
$strEncrypted = "";
|
||||
|
||||
for ($i=0; $i < strlen($strCryptThis); $i++ ) {
|
||||
$iKeyChar = ord( substr( $strKey, $i, 1) );
|
||||
$iStringChar = ord( substr( $strCryptThis, $i, 1) );
|
||||
$iCryptChar = $iKeyChar ^ $iStringChar;
|
||||
$strEncrypted .= chr($iCryptChar);
|
||||
}
|
||||
return $strEncrypted;
|
||||
}
|
||||
function ConvertToAsc($strAsc) {
|
||||
$iCount; $strTemp;
|
||||
$res = "";
|
||||
for ($iCount = 0; $iCount < strlen($strAsc); $iCount++ ) {
|
||||
$strTemp = ord( substr( $strAsc, $iCount, 1) );
|
||||
$res .= strlen($strTemp).$strTemp;
|
||||
}
|
||||
|
||||
return $res;
|
||||
}
|
||||
/*********************************************************************/
|
||||
?>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/mayf/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "MAYF";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "vvCnODNvhTDhRGbcWNNceDscJwaPmSbN", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Modtime: 16-08-10 13:12 $
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://mayf.facilitor.nl/cust/mayf/sso.asp" 'URL adres van ASP
|
||||
strSharedKey = "vvCnODNvhTDhRGbcWNNceDscJwaPmSbN" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,3 +0,0 @@
|
||||
<html>
|
||||
Druk <a href="sso.asp">hier</a> om SSO te testen.
|
||||
</html>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodMNNL.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://mnnl-a.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "bqx8cWZzrPyXrQW8sxWqDGCh" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodMNNL.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://mnnl.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "bqx8cWZzrPyXrQW8sxWqDGCh" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://nmms.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "df96620b-33e5-41bf-9414-e9e897479037" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,113 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Modtime: 18-03-09 14:51 $
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor FACILITOR SaaS
|
||||
'
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://nybu.facilitor.nl/?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "zaVFQZGktrzMFSEkSuUHbJqJgHnAHSFP" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPCHA.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pcha.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "zF1V04ErlDCpbcA39opf0SEWyrF49fBf" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/pchd/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "PCHD";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "FZoyqIFpICdOhmkN", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOaccpPCHD.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchd-a.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "FZoyqIFpICdOhmkN" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPCHD.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchd.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "FZoyqIFpICdOhmkN" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchd.facilitorlabs.nl/cust/pchd/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "FZoyqIFpICdOhmkN" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/pchh/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "PCHH";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "LwdbWLIBtHuJCpMT", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOaccpPCHH.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchh-a.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "LwdbWLIBtHuJCpMT" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPCHH.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchh.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "LwdbWLIBtHuJCpMT" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/pchp/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "PCHP";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "plXZhkVOpFrpdetV", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOaccpPCHP.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchp-a.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "plXZhkVOpFrpdetV" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPCHP.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchp.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "plXZhkVOpFrpdetV" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/pchs/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "PCHS";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "qOszNKMglENlvcMr", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPCHS.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchs.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "qOszNKMglENlvcMr" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPCHW.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchw.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "09A9e0kKjhPhQLMgF3cn7LL3RT-IMlwn" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/pchy/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "PCHY";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "YNeNwuOVoBvLIHew", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPCHY.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pchy.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "YNeNwuOVoBvLIHew" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/pnbr/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "PNBR";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "b8044f2d-49de-4a28-91e6-560a061b7ccd", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pnbr-a.facilitor.nl/cust/pnbr/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "b8044f2d-49de-4a28-91e6-560a061b7ccd" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,120 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSOprodPNBR.asp
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pnbr.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "b8044f2d-49de-4a28-91e6-560a061b7ccd" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/pris/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "PRIS";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "vvCnODNvhTDhRGbcWNNceDscJwaPmSbN", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Modtime: 16-08-10 13:12 $
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://pris.facilitor.nl/cust/pris/sso.asp" 'URL adres van ASP
|
||||
strSharedKey = "vvCnODNvhTDhRGbcWNNceDscJwaPmSbN" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,3 +0,0 @@
|
||||
<html>
|
||||
Druk <a href="sso.asp">hier</a> om SSO te testen.
|
||||
</html>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://rabo.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "vDzWDwhzBtGkMPVkLjyOoRVJdhhxdgpr" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/renk/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "RENK";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "F761713E5BCC4F1F854A331C53F03C15", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://sggr.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "netSNpSeRykAyynZdvbdWhqXvDpPJQNZ" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/skaf/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "SKAF";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "2275330", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SKAF.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "http://skaf.facilitor.nl/cust/skaf/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "2275330" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,3 +0,0 @@
|
||||
<html>
|
||||
Druk <a href="sso.asp">hier</a> om SSO te testen.
|
||||
</html>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/sutf/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "SUTF";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "PLYXMB17249QCCM37764444123A1BYOB", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://sutf.facilitor.nl/cust/sutf/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "PLYXMB17249QCCM37764444123A1BYOB" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,110 +0,0 @@
|
||||
<?php
|
||||
/*******************************************************************
|
||||
Script: SSO-prod.php
|
||||
|
||||
$Revision$
|
||||
$Id$
|
||||
|
||||
|
||||
Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
Voor SUTFENE - PRODUCTIE
|
||||
Auteur: Peter Koerhuis (originele ASP-versie door Thorwald Beeris)
|
||||
/*******************************************************************/
|
||||
/* declare *********************************************************/
|
||||
$strGUID; $strCTID; $strUserName; $strKey ;
|
||||
$strEncryptedCode = ''; $strControlEncryptedCode = '';
|
||||
/* variables *******************************************************/
|
||||
$strASPUrl = "https://sutf.facilitor.nl/cust/SUTF/sso.asp"; // HTTPS URL adres van ASP
|
||||
$strSharedKey = "3298519"; //Sharedkey - Should be the same at target side
|
||||
/*******************************************************************/
|
||||
?>
|
||||
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<?php echo $strASPUrl; ?>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<?php echo 'http://'.$_SERVER["HTTP_HOST"].$_SERVER["SCRIPT_NAME"]; ?>" ID="Hidden1">
|
||||
<?php
|
||||
/* request action = requestid ***************************************/
|
||||
$strGUID = isset($_REQUEST["guid"]) ? $_REQUEST["guid"] : "";
|
||||
$strCTID = isset($_REQUEST["ctid"]) ? $_REQUEST["ctid"] : "";
|
||||
$strJumpTo = isset($_REQUEST["jumpTo"]) ? $_REQUEST["jumpTo"] : "";
|
||||
|
||||
if ($strGUID == "" || $strCTID == "") {
|
||||
/* first flow: requestid ****************************************/
|
||||
?>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<?php echo $strJumpTo; ?>" ID="jumpTo">
|
||||
<?php
|
||||
} else {
|
||||
/* second flow: create code *************************************/
|
||||
|
||||
// TODO: Plak hier de code die de username achterhaalt (met of zonder domein)
|
||||
// NB: Dit script wordt weliswaar twee keer aangeroepen, maar dat gebeurt
|
||||
// beide keren vanaf de PC van de klant, dus beide keren moet op
|
||||
// basis van IP de user te achterhalen zijn.
|
||||
// Om de SSO te testen zet ik hier de user hard op TPIJNAPPEL.
|
||||
$strUserName = 'SUTFENE\TPIJNAPPEL';
|
||||
|
||||
// Strip domain name
|
||||
while ( strpos($strUserName, "\\") > 0 ) {
|
||||
$strUserName = substr( $strUserName, strpos($strUserName, "\\") + 1 );
|
||||
}
|
||||
/* crypt ********************************************************/
|
||||
//First coding phase
|
||||
$strKey = substr( $strSharedKey.$strGUID, 0, strlen($strUserName) );
|
||||
$strEncryptedCode = EnCrypt($strUserName);
|
||||
//Second coding phase
|
||||
$strKey = substr( $strGUID, 0, strlen($strEncryptedCode) );
|
||||
$strEncryptedCode = EnCrypt($strEncryptedCode);
|
||||
/* crypt Controlkey *********************************************/
|
||||
//First coding phase
|
||||
$strKey = substr( $strSharedKey.$strCTID, 0, strlen($strCTID) );
|
||||
$strControlEncryptedCode = EnCrypt("http://".$_SERVER["HTTP_HOST"].$_SERVER["SCRIPT_NAME"] );
|
||||
//Second coding phase
|
||||
$strKey = substr( $strCTID, 0, strlen($strControlEncryptedCode) );
|
||||
$strControlEncryptedCode = EnCrypt($strControlEncryptedCode);
|
||||
?>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<?php echo ConvertToAsc($strEncryptedCode); ?>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<?php echo ConvertToAsc($strControlEncryptedCode); ?>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<?php echo strlen($strUserName); ?>" ID="Hidden6">
|
||||
<?php
|
||||
}
|
||||
/* Functions ********************************************************/
|
||||
function EnCrypt($strCryptThis) {
|
||||
global $strKey;
|
||||
$strChar; $iKeyChar; $iStringChar; $i;
|
||||
$strEncrypted = "";
|
||||
|
||||
for ($i=0; $i < strlen($strCryptThis); $i++ ) {
|
||||
$iKeyChar = ord( substr( $strKey, $i, 1) );
|
||||
$iStringChar = ord( substr( $strCryptThis, $i, 1) );
|
||||
$iCryptChar = $iKeyChar ^ $iStringChar;
|
||||
$strEncrypted .= chr($iCryptChar);
|
||||
}
|
||||
return $strEncrypted;
|
||||
}
|
||||
function ConvertToAsc($strAsc) {
|
||||
$iCount; $strTemp;
|
||||
$res = "";
|
||||
for ($iCount = 0; $iCount < strlen($strAsc); $iCount++ ) {
|
||||
$strTemp = ord( substr( $strAsc, $iCount, 1) );
|
||||
$res .= strlen($strTemp).$strTemp;
|
||||
}
|
||||
|
||||
return $res;
|
||||
}
|
||||
/*********************************************************************/
|
||||
?>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,3 +0,0 @@
|
||||
<html>
|
||||
Druk <a href="sso.asp">hier</a> om SSO te testen.
|
||||
</html>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/uwva/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "UWVA";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "1541", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://kemp.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "fuloViTuHJvQFtQIVYgXVwfXWXfVkzqK" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/wehk/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "WEHK";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../appl/shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "2436510918", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,114 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'Auteur: Thorwald Beeris
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://wehk.facilitor.nl/cust/WEHK/sso.asp" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "2436510918" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%="http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,3 +0,0 @@
|
||||
<html>
|
||||
Druk <a href="sso.asp">hier</a> om SSO te testen.
|
||||
</html>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://welk.facilitor.nl?sso=1" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "GTAvoxLrNVJOaDQsHSqRHShkDVBTpQsn" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
@@ -1,19 +0,0 @@
|
||||
<%@ language = "JavaScript" %>
|
||||
<% /*
|
||||
$Revision$
|
||||
$Id$
|
||||
File: cust/wtca/sso.asp
|
||||
Description: Single Sign On script
|
||||
Parameters:
|
||||
Context:
|
||||
Note:
|
||||
*/ %>
|
||||
<%
|
||||
Session("customerId") = "WTCA";
|
||||
ANONYMOUS_Allowed = 1;
|
||||
%>
|
||||
<!-- #include file="../../appl/Shared/common.inc" -->
|
||||
<!-- #include file="../../shared/login.inc" -->
|
||||
<%
|
||||
SecureSSO({ strSharedKey: "1483085", Timeout: 10}); //Sharedkey - Should be the same at customer side
|
||||
%>
|
||||
@@ -1,119 +0,0 @@
|
||||
<%@language="VBScript"%>
|
||||
<%
|
||||
'*******************************************************************
|
||||
'Script: SSO.ASP
|
||||
'
|
||||
' $Revision$
|
||||
' $Id$
|
||||
'
|
||||
'Doel: SSO bewerkstelligen voor ASP providers - deel 1 van 2
|
||||
'*******************************************************************
|
||||
'* declare *********************************************************
|
||||
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
|
||||
Dim strEncryptedCode, strControlEncryptedCode
|
||||
'* variables *******************************************************
|
||||
strASPUrl = "https://zkhm.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
|
||||
strSharedKey = "BVpmdZvoDbpBWHrtBkiCUcmjBxsAtOtk" 'Sharedkey - Should be the same at target side
|
||||
'*******************************************************************
|
||||
response.Buffer=true
|
||||
Dim proto, zelf
|
||||
If Request.ServerVariables("SERVER_PORT") = 443 Then
|
||||
proto = "https://"
|
||||
Else
|
||||
proto = "http://"
|
||||
End If
|
||||
zelf = proto & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
|
||||
%>
|
||||
<HTML>
|
||||
<HEAD>
|
||||
<SCRIPT LANGUAGE="JavaScript">
|
||||
function fnSubmit() {
|
||||
window.document.form.submit();
|
||||
return;
|
||||
}
|
||||
</SCRIPT>
|
||||
</HEAD>
|
||||
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
|
||||
Een moment aub.
|
||||
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
|
||||
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
|
||||
<%
|
||||
'* request action = requestid ***************************************
|
||||
strGUID = Request.form("guid")
|
||||
strCTID = Request.form("ctid")
|
||||
if strGUID = "" or strCTID = "" then
|
||||
'* first flow: requestid ****************************************
|
||||
%>
|
||||
<input type="hidden" name="action" value="requestid" ID="Hidden2">
|
||||
<input type="hidden" name="jumpTo" value="<%=Request.Querystring("jumpTo")%>" ID="jumpTo">
|
||||
<%
|
||||
else
|
||||
'* second flow: create code *************************************
|
||||
strUserName = Request.ServerVariables("LOGON_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("REMOTE_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_USER")
|
||||
if strUserName = "" then
|
||||
strUserName = Request.ServerVariables("HTTP_LOGIN")
|
||||
if strUserName = "" then
|
||||
'Forse user to authenticate
|
||||
response.Clear
|
||||
response.Status = 401
|
||||
response.Flush
|
||||
response.End
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
end if
|
||||
|
||||
' * Strip domain name
|
||||
Do While instr(strUserName, "\")>0
|
||||
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
|
||||
Loop
|
||||
'* crypt ********************************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
|
||||
strEncryptedCode = EnCrypt(strUserName)
|
||||
'Second coding phase
|
||||
strKey = mid(strGUID,1,Len(strEncryptedCode))
|
||||
strEncryptedCode = EnCrypt(strEncryptedCode)
|
||||
'* crypt Controlkey *********************************************
|
||||
'First coding phase
|
||||
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
|
||||
strControlEncryptedCode = EnCrypt(zelf)
|
||||
'Second coding phase
|
||||
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
|
||||
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)
|
||||
%>
|
||||
<input type="hidden" name="action" value="processcode" ID="Hidden3">
|
||||
<input type="hidden" name="code" value="<%=ConvertToAsc(strEncryptedCode)%>" ID="Hidden4">
|
||||
<input type="hidden" name="ctcode" value="<%=ConvertToAsc(strControlEncryptedCode)%>" ID="Hidden5">
|
||||
<input type="hidden" name="ltcode" value="<%=len(strUserName)%>" ID="Hidden6">
|
||||
<%
|
||||
end if
|
||||
'* Functions ********************************************************
|
||||
Function EnCrypt(strCryptThis)
|
||||
Dim strChar, iKeyChar, iStringChar, i
|
||||
for i = 1 to Len(strCryptThis)
|
||||
iKeyChar = Asc(mid(strKey,i,1))
|
||||
iStringChar = Asc(mid(strCryptThis,i,1))
|
||||
iCryptChar = iKeyChar Xor iStringChar
|
||||
strEncrypted = strEncrypted & Chr(iCryptChar)
|
||||
next
|
||||
EnCrypt = strEncrypted
|
||||
End Function
|
||||
Function ConvertToAsc(strAsc)
|
||||
Dim iCount
|
||||
Dim strTemp
|
||||
ConvertToAsc = ""
|
||||
for iCount = 1 to len(strAsc)
|
||||
strTemp = (asc(mid(strAsc,iCount,1)))
|
||||
ConvertToAsc = ConvertToAsc & len(strTemp) & strTemp
|
||||
next
|
||||
End Function
|
||||
'*********************************************************************
|
||||
%>
|
||||
</form>
|
||||
</BODY>
|
||||
</HTML>
|
||||
Reference in New Issue
Block a user