admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AAFM#32982 -- implementatie SSO2

Browse Source 
svn path=/Website/branches/v2015.1/; revision=25404
This commit is contained in:
Arthur Egberink
2015-06-05 13:36:35 +00:00
parent 9267307a9e
commit f321eb5473
45 changed files with 474 additions and 1104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
CUST/AAAR/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aaar/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAAR";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "780c865f-47d3-40c2-9990-33591dcb3eea", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AAAR/sso/SSOprodAAAR.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aaar.facilitor.nl/cust/aaar/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<BODY LANGUAGE="javascript" onload="return fnSubmit()">
Een moment aub.
<form action='<%=strASPUrl%>' method="post" name="form" ID="Form1">
<input type="hidden" name="returnurl" value="<%="https://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")%>" ID="Hidden1">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("https://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AADB/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aadb/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AADB";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "RTQOwnrZorWSnoQCAWXYSuSBUDSOKJjy", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

4
CUST/AADB/sso/SSOprodAADB.asp
View File

@@ -12,8 +12,8 @@
Dim strGUID, strCTID, strUserName, strKey, strASPUrl, strSharedKey
Dim strEncryptedCode, strControlEncryptedCode
'* variables *******************************************************
strASPUrl = "https://aadb.facilitor.nl/cust/AADB/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "RTQOwnrZorWSnoQCAWXYSuSBUDSOKJjy" 'Sharedkey - Should be the same at target side
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

19
CUST/AADO/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aado/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AADO";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "f52f7409-03ae-43f1-a920-96366edd2388", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AADO/sso/SSOprodAADO.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aado.facilitor.nl/cust/aado/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AADS/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aads/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AADS";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "750342", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

116
CUST/AADS/sso/SSO.asp
View File

@@ -1,116 +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://aads.facilitor.nl/cust/aads/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "750342" '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="<%="https://" & 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
'* substr to max 30 characters **********************************
strUserName = Mid(strUserName, 1, 30)
'* 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("https://" & 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>

25
CUST/AARW/sso/SSOprodAARW.txt → CUST/AADS/sso/SSOprodAADS.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aarw.facilitor.nl/cust/aarw/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "077116f7-963f-4eea-a271-43e4cf5adff1" 'Sharedkey - Should be the same at target side
strASPUrl = "https://aads.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
strSharedKey = "e2887d83-8cc3-4bcc-9424-1d1b0ba4fc32" '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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AAEN/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aaen/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAEN";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "830329", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

25
CUST/AAEN/sso/SSOprodAAEN.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aaen.facilitor.nl/cust/aaen/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "830329" 'Sharedkey - Should be the same at target side
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AAES/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aaes/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAES";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "b99b5309-a367-4c54-9e57-8862e7d5ba3b", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AAES/sso/SSOprodAAES.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aaes.facilitor.nl/cust/aaes/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AAEY/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aaey/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAEY";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "09933176-ef7f-496c-b4b6-a328facc3fe1", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AAEY/sso/SSOprodAAEY.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aaey.facilitor.nl/cust/aaey/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

204
CUST/AAEY/xsl/hsb.xsl
View File

@@ -1,127 +1,115 @@
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:soap="http://www.w3.org/2003/05/soap-envelope">
<xsl:output method="xml" indent="yes" encoding="UTF-8"/>
<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxml="urn:schemas-microsoft-com:xslt" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<xsl:output method="xml" indent="yes" encoding="utf-8"/>
<xsl:decimal-format name="european" decimal-separator="." grouping-separator=","/>
<xsl:param name="mode"/>
<xsl:variable name="Rev">
<!-- Revision van deze hsb.xsl -->
<!-- Revision van deze cust.xsl -->
<xsl:value-of select="substring(translate('$Revision$', '$ ', ''), 10)"/>
</xsl:variable>
<xsl:template name="linebreaks">
<xsl:param name="string"/>
<xsl:template match="opdracht">
<xsl:choose>
<xsl:when test="contains($string, '&#xA;')">
<xsl:value-of select="substring-before($string, '&#xA;')"/>
<br/>
<xsl:call-template name="linebreaks">
<xsl:with-param name="string" select="substring-after($string, '&#xA;')"/>
</xsl:call-template>
<xsl:when test="@type='response'">
<!-- **************************************************************************** -->
<!-- ***** RESPONSE naar HSB nav. opdracht-insert/update -->
<!-- ***** => toevoegen envelop! -->
<!-- **************************************************************************** -->
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<facilitor>
<xsl:element name="opdracht">
<xsl:attribute name="key"><xsl:value-of select="@key"/></xsl:attribute>
<xsl:attribute name="type"><xsl:value-of select="@type"/></xsl:attribute>
<returncode><xsl:value-of select="returncode"/></returncode>
<returntekst><xsl:value-of select="returntekst"/></returntekst>
<datum><xsl:value-of select="datum"/></datum>
<externnr><xsl:value-of select="externnr"/></externnr>
</xsl:element>
</facilitor>
</soap:Body>
</soap:Envelope>
</xsl:when>
<xsl:otherwise>
<xsl:value-of select="$string"/>
<!-- **************************************************************************** -->
<!-- ***** INSERT/UPDATE door HSB -->
<!-- ***** => INSERT stdmelding, typeopdr + bedrijf "injecteren"! -->
<!-- ***** => UPDATE 1-op-1 door! -->
<!-- **************************************************************************** -->
<!-- remove element prefix -->
<xsl:element name="{local-name()}">
<!-- process attributes -->
<xsl:for-each select="@*">
<!-- remove attribute prefix and 'VO' from key-attribute! -->
<xsl:attribute name="{local-name()}">
<!--xsl:choose><xsl:when test="local-name()='key'"><xsl:value-of select="translate(., 'VO', '')"/></xsl:when><xsl:otherwise><xsl:value-of select="."/></xsl:otherwise></xsl:choose-->
<xsl:value-of select="."/>
</xsl:attribute>
</xsl:for-each>
<xsl:apply-templates/>
<!-- Als insert, dan ook de volgende extra velden "injecteren": -->
<!-- => stdmelding_key = 1231 = Aanvraag HSB-koeriersdienst (SA/Post&Pakketten) -->
<!-- => typeopdr_key = 1 = Workorder -->
<!-- => bedrijf_key = 4161 = HSB Worldwide Express BV -->
<xsl:if test="local-name()='opdracht' and @type='insert'">
<stdmelding_key>1231</stdmelding_key>
<typeopdr_key>1</typeopdr_key>
<bedrijf_key>4161</bedrijf_key>
</xsl:if>
</xsl:element>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template match="opdracht">
<!--xsl:element name="exc:AddOrders"-->
<exc:AddOrders xmlns:exc="http://exchange.ws.flowlogics.nl/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<exc:login>facilitor</exc:login>
<!--Gehasht wachtwoord-->
<exc:password>df78d84ec888953ade1b06ad23b5f85c2c8db3e1539160bb96d86a2d931efc842141295e1e2df06d38633db02910ab892d1dfbbdd6cf0ffb84d56951abeccc8d</exc:password>
<!--Meegestuurde AccountGUID-->
<exc:accountGuid>9CC1F5E3-7A41-4BF8-B37F-04FED53B8709</exc:accountGuid>
<xsl:element name="exc:orders">
<!--0..n UitwisselOrders-->
<xsl:element name="exc:UitwisselOrder">
<exc:acc_Id_Ontvanger>43</exc:acc_Id_Ontvanger>
<!--exc:AanmeldDatumTijd><xsl:value-of select="datum/jaar"/>-<xsl:value-of select="datum/maand"/>-<xsl:value-of select="datum/dag"/>T<xsl:value-of select="datum/tijd"/>:00</exc:AanmeldDatumTijd-->
<exc:AanmeldDatumTijd><xsl:value-of select="/facilitor/header/dateYear"/>-<xsl:value-of select="/facilitor/header/dateMonth"/>-<xsl:value-of select="/facilitor/header/dateDay"/>T<xsl:value-of select="substring(/facilitor/header/dateTime,12,8)"/></exc:AanmeldDatumTijd>
<exc:AangemeldDoor><xsl:value-of select="backoffice_contact/naam_friendly"/></exc:AangemeldDoor>
<exc:KlantNaam>EY</exc:KlantNaam>
<exc:Contactpersoon><xsl:value-of select="backoffice_contact/naam_friendly"/></exc:Contactpersoon>
<exc:Jobnummer><xsl:value-of select="melding/key"/>/<xsl:value-of select="bedrijfopdr_volgnr"/></exc:Jobnummer>
<exc:Gewicht>2.50</exc:Gewicht>
<!--Normaal gesproken verplicht, NULL meesturen-->
<exc:VolumeGewicht xsi:nil="true" />
<exc:Colli>1</exc:Colli>
<!--Normaal gesproken verplicht, NULL meesturen-->
<exc:WaardeZending xsi:nil="true" />
<exc:OphaalNaam>Facilitor B.V.</exc:OphaalNaam>
<exc:OphaalAdres>Gronausestraat</exc:OphaalAdres>
<exc:OphaalHuisnummer>710</exc:OphaalHuisnummer>
<exc:OphaalPostcode>7534 AM</exc:OphaalPostcode>
<exc:OphaalPlaats>Enschede</exc:OphaalPlaats>
<exc:OphaalLand>Nederland</exc:OphaalLand>
<exc:OphaalContact>Maarten van der Heide</exc:OphaalContact>
<exc:OphaalTelefoon>053-4800710</exc:OphaalTelefoon>
<exc:OphaalDatum>2015-03-25</exc:OphaalDatum>
<exc:OphaalTijdVan>2015-03-25T16:25:00</exc:OphaalTijdVan>
<exc:OphaalTijdTot>2015-03-25T16:35:00</exc:OphaalTijdTot>
<exc:AfleverNaam>Co &amp; Co Solutions</exc:AfleverNaam>
<exc:AfleverAdres>Teststraat</exc:AfleverAdres>
<exc:AfleverHuisnummer>999</exc:AfleverHuisnummer>
<exc:AfleverPostcode>9999ZZ</exc:AfleverPostcode>
<exc:AfleverPlaats>Testplaats</exc:AfleverPlaats>
<exc:AfleverLand>Testland</exc:AfleverLand>
<exc:AfleverContact>Dave Allemekinders</exc:AfleverContact>
<exc:AfleverTelefoon>010-2809195</exc:AfleverTelefoon>
<exc:AfleverDatum>2015-03-26</exc:AfleverDatum>
<exc:AfleverTijdVan>2015-03-26T17:00:00</exc:AfleverTijdVan>
<exc:AfleverTijdTot>2015-03-26T17:30:00</exc:AfleverTijdTot>
<exc:Opmerkingen><xsl:call-template name="linebreaks"><xsl:with-param name="string" select="melding/omschrijving"/></xsl:call-template></exc:Opmerkingen>
<!--Normaal gesproken verplicht, NULL meesturen-->
<exc:PODDatumTijd xsi:nil="true" />
<exc:Service>Overnight</exc:Service>
</xsl:element>
</xsl:element>
</exc:AddOrders>
<!--/xsl:element-->
<xsl:template match="facilitor">
<xsl:apply-templates select="opdracht"/>
</xsl:template>
<!-- Genereren XML-request (uitgaande "bon") op basis van opdracht-node -->
<xsl:template match="facilitor">
<xsl:apply-templates select="opdracht"/>
</xsl:template>
<!--xsl:template match="soap:Body">
<xsl:apply-templates select="facilitor"/>
</xsl:template>
<!-- Inpakken XML-request in SOAP envelope -->
<xsl:template match="SOAPEnvelope">
<!--soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:exc="http://exchange.ws.flowlogics.nl/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"-->
<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope">
<soap:Header/>
<soap:Body>
<xsl:copy-of select="./node()"/>
</soap:Body>
</soap:Envelope>
</xsl:template>
<!-- Uitpakken XML-response uit SOAP envelope -->
<xsl:template match="soap:Envelope">
<soapResult>
<xsl:copy-of select="soap:Body/node()"/>
</soapResult>
</xsl:template>
<!-- Decoderen XML-response (voor extensions anders dan cXML gebeurt hier niets mee) -->
<xsl:template match="AddOrdersResponse">
<Result>
<xsl:if test="substring(AddOrdersResult/OrderResult/ResultCode, 1, 1)!='2'"><xsl:value-of select="AddOrdersResult/OrderResult/ResultCode"/></xsl:if>
</Result>
</xsl:template>
<xsl:template match="soap:Envelope">
<xsl:apply-templates select="soap:Body"/>
</xsl:template-->
<!-- Root -->
<xsl:template match="/">
<!-- Door SendFile gebruikt voor genereren XML-request (uitgaande "bon") -->
<xsl:apply-templates select="facilitor"/>
<!-- Door SendSOAP gebruikt voor inpakken XML-request in SOAP envelope -->
<xsl:apply-templates select="SOAPEnvelope"/>
<!-- Door SendSOAP gebruikt voor uitpakken XML-response uit SOAP envelope -->
<xsl:apply-templates select="soap:Envelope"/>
<!-- Door SendFile gebruikt voor lezen van status uit gefaalde response (NB: <soapResult> is al door de decode gestript => MVH: Is dat echt zo???) -->
<xsl:apply-templates select="AddOrdersResponse"/>
</xsl:template>
<xsl:template match="*">
<xsl:choose>
<!-- Zonder prefix en facilitor-node, dan -->
<!-- als response: toevoegen envelop! -->
<!-- als insert: stdmelding, typeopdr + bedrijf "injecteren"! -->
<!-- als update: 1-op-1 door! -->
<xsl:when test="substring-before(name(),concat(':', local-name()))='' and local-name()='facilitor'">
<xsl:apply-templates select="facilitor"/>
</xsl:when>
<!--xsl:when test="local-name()='Envelope'">
<xsl:apply-templates select="soap:Envelope"/>
</xsl:when-->
<!-- Met prefix, dus insert/update: prefix weg + evt. velden "injecteren"! -->
<xsl:otherwise>
<!-- remove element prefix -->
<xsl:element name="{local-name()}">
<!-- process attributes -->
<xsl:for-each select="@*">
<!-- remove attribute prefix and 'VO' from key-attribute! -->
<xsl:attribute name="{local-name()}">
<!--xsl:choose><xsl:when test="local-name()='key'"><xsl:value-of select="translate(., 'VO', '')"/></xsl:when><xsl:otherwise><xsl:value-of select="."/></xsl:otherwise></xsl:choose-->
<xsl:value-of select="."/>
</xsl:attribute>
</xsl:for-each>
<xsl:apply-templates/>
<!-- Als insert, dan ook de volgende extra velden "injecteren": -->
<!-- => stdmelding_key = 1231 = Aanvraag HSB-koeriersdienst (SA/Post&Pakketten) -->
<!-- => typeopdr_key = 1 = Workorder -->
<!-- => bedrijf_key = 4161 = HSB Worldwide Express BV -->
<xsl:if test="local-name()='opdracht' and @type='insert'">
<stdmelding_key>1231</stdmelding_key>
<typeopdr_key>1</typeopdr_key>
<bedrijf_key>4161</bedrijf_key>
</xsl:if>
</xsl:element>
</xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>

19
CUST/AAFP/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aafp/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAFP";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "25bb61b4-d81d-4c88-88e4-0e2a0b279a45", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AAFP/sso/SSOprodAAFP.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aafp.facilitor.nl/cust/aafp/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://aafp.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
strSharedKey = "25bb61b4-d81d-4c88-88e4-0e2a0b279a45" '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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AAFR/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aafr/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAFR";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "d69b7834-647b-4b04-9510-e4d6a7c536d0", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

19
CUST/AAHU/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aahu/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAHU";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "a31f87cc-c7da-4579-8288-994309b9860f", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AAHU/sso/SSOprodAAHU.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aahu.facilitor.nl/cust/aahu/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://aahu.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
strSharedKey = "a31f87cc-c7da-4579-8288-994309b9860f" '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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AAIT/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aait/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAIT";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "698230", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

25
CUST/AAES/sso/SSOprodAAES.txt → CUST/AAIT/sso/SSOprodAAIT.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aaes.facilitor.nl/cust/aaes/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "b99b5309-a367-4c54-9e57-8862e7d5ba3b" 'Sharedkey - Should be the same at target side
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AALB/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aalb/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AALB";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "1d070bdd-9c6f-45a7-b654-93750ca25cb1", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

25
CUST/AALB/sso/SSOprodAALB.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aalb.facilitor.nl/cust/aalb/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://aalb.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
strSharedKey = "1d070bdd-9c6f-45a7-b654-93750ca25cb1" '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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,17 +62,15 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
Do While instr(strUserName, "\")>0
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
Loop
'* substr to max 30 characters **********************************
strUserName = Mid(strUserName, 1, 30)
'* crypt ********************************************************
'First coding phase
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
@@ -78,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

116
CUST/AALB/sso/SSOprodAALB.txt
View File

@@ -1,116 +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://aalb.facilitor.nl/cust/aalb/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "1d070bdd-9c6f-45a7-b654-93750ca25cb1" '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
'* substr to max 30 characters **********************************
strUserName = Mid(strUserName, 1, 30)
'* 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>

19
CUST/AANS/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aans/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AANS";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "0cbdd3ad-4428-469a-a5c3-9ab71f8626af", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AANS/sso/SSOprodAANS.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aans.facilitor.nl/cust/aans/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://aans.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
strSharedKey = "0cbdd3ad-4428-469a-a5c3-9ab71f8626af" '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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AAPM/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aapm/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAPM";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "a18c8520-e2e3-11e1-9b23-0800200c9a66", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

25
CUST/AAZC/sso/SSOprodAAZC.txt → CUST/AAPM/sso/SSOprodAAPM.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aazc.facilitor.nl/cust/aazc/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "daaf57c2-1139-4a4a-9d37-59130dc0a306" 'Sharedkey - Should be the same at target side
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AARW/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aarw/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AARW";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "077116f7-963f-4eea-a271-43e4cf5adff1", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AARW/sso/SSOprodAARW.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aarw.facilitor.nl/cust/aarw/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AASA/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aasa/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AASA";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "9dc09534-ca91-4132-a3eb-28f62c40a600", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AASA/sso/SSOprodAASA.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aasa.facilitor.nl/cust/aasa/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

25
CUST/AADO/sso/SSOprodAADO.txt → CUST/AASX/sso/SSOprodAASX.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aado.facilitor.nl/cust/aado/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "f52f7409-03ae-43f1-a920-96366edd2388" 'Sharedkey - Should be the same at target side
strASPUrl = "https://aasx.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
strSharedKey = "b7d0cd62-8e82-44a8-a3d4-73eae3be2b10" '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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

19
CUST/AAVL/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aanx/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAVL";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "2500f67e-f106-4dd2-827d-407171f24e18", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

25
CUST/AAVL/sso/SSOprodAAVL.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aavl.facilitor.nl/cust/aavl/sso.asp" 'HTTPS URL adres van ASP
strASPUrl = "https://aavl.facilitor.nl?sso=2" 'HTTPS URL adres van ASP
strSharedKey = "2500f67e-f106-4dd2-827d-407171f24e18" '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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,17 +62,15 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
Do While instr(strUserName, "\")>0
strUserName = Mid(strUserName, instr(strUserName, "\") + 1)
Loop
'* substr to max 30 characters **********************************
strUserName = Mid(strUserName, 1, 30)
'* crypt ********************************************************
'First coding phase
strKey = mid(strSharedKey & strGUID,1,Len(strUserName))
@@ -78,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

116
CUST/AAVL/sso/SSOprodAAVL.txt
View File

@@ -1,116 +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://aavl.facilitor.nl/cust/aavl/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "2500f67e-f106-4dd2-827d-407171f24e18" '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
'* substr to max 30 characters **********************************
strUserName = Mid(strUserName, 1, 30)
'* 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>

19
CUST/AAZC/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/aazc/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "AAZC";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "daaf57c2-1139-4a4a-9d37-59130dc0a306", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/AAZC/sso/SSOprodAAZC.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://aazc.facilitor.nl/cust/aazc/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

0
CUST/GULU/sso/.gitignore vendored
View File

119
CUST/GULU/sso/SSOprodGULU.asp Normal file
View File

@@ -0,0 +1,119 @@
<%@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>

19
CUST/NMMS/sso.asp
View File

@@ -1,19 +0,0 @@
<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: cust/nmms/sso.asp
Description: Single Sign On script
Parameters:
Context:
Note:
*/ %>
<%
Session("customerId") = "NMMS";
ANONYMOUS_Allowed = 1;
%>
<!-- #include file="../../appl/Shared/common.inc" -->
<!-- #include file="../../appl/shared/login.inc" -->
<%
SecureSSO({ strSharedKey: "df96620b-33e5-41bf-9414-e9e897479037", Timeout: 10}); //Sharedkey - Should be the same at customer side
%>

23
CUST/NMMS/sso/SSOprodNMMS.asp
View File

@@ -1,23 +1,28 @@
<%@language="VBScript"%>
<%
'*******************************************************************
'Script: SSO.asp
'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://nmms.facilitor.nl/cust/nmms/sso.asp" 'HTTPS URL adres van ASP
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>
@@ -31,7 +36,7 @@ function fnSubmit() {
<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">
<input type="hidden" name="returnurl" value="<%=zelf%>" ID="Hidden1">
<%
'* request action = requestid ***************************************
strGUID = Request.form("guid")
@@ -57,9 +62,9 @@ else
response.Status = 401
response.Flush
response.End
end if
end if
end if
end if
end if
end if
end if
' * Strip domain name
@@ -76,7 +81,7 @@ else
'* crypt Controlkey *********************************************
'First coding phase
strKey = mid(strSharedKey & strCTID,1,Len(strCTID))
strControlEncryptedCode = EnCrypt("http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME"))
strControlEncryptedCode = EnCrypt(zelf)
'Second coding phase
strKey = mid(strCTID,1,Len(strControlEncryptedCode))
strControlEncryptedCode = EnCrypt(strControlEncryptedCode)

114
CUST/NMMS/sso/SSOprodNMMS.txt
View File

@@ -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://nmms.facilitor.nl/cust/nmms/sso.asp" 'HTTPS URL adres van ASP
strSharedKey = "df96620b-33e5-41bf-9414-e9e897479037" '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>