Classic ASP
Sign Mexico Pedimento

Add a signature to a Mexico pedimento file.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' This is the contents before signing:

' 500|1|3621|4199800|400||
' 601|3621|4199800|400|IN|1||EKU9003173C9|EKU9003173C9FRNN09|1||
' 507|4199800|IM|2006-7888">
' 507|4199800|MS|2">
' 800|4199800|1">
' 801|M3621037.222|1|5|011|

' This is the contents after signing

' 500|1|3621|4199800|400||
' 601|3621|4199800|400|IN|1||EKU9003173C9|EKU9003173C9FRNN09|1||
' 507|4199800|IM|2006-7888">
' 507|4199800|MS|2">
' 800|4199800|1|fhP2Ker54D2+3+UZch23F0E72 .... 9qNSPIuAqpj524qLZbbA==|30001000000500003416|
' 801|M3621037.222|1|5|011|

' First create the text to be signed.
bCRLF = 1
set sb = Server.CreateObject("Chilkat.StringBuilder")
' Use CRLF line endings.
success = sb.AppendLine("500|1|3621|4199800|400||",bCRLF)
success = sb.AppendLine("601|3621|4199800|400|IN|1||EKU9003173C9|EKU9003173C9FRNN09|1||",bCRLF)
success = sb.AppendLine("507|4199800|IM|2006-7888">",bCRLF)
success = sb.AppendLine("507|4199800|MS|2">",bCRLF)

' Generate the MD5 hash of what we have so far..
md5_base64 = sb.GetHash("md5","base64","utf-8")
Response.Write "<pre>" & Server.HTMLEncode( "MD5 hash = " & md5_base64) & "</pre>"

' Complete the original file.
' After signing, we'll update the BASE64_SIGNATURE and CERT_SERIAL
success = sb.AppendLine("800|4199800|1|BASE64_SIGNATURE|CERT_SERIAL|",bCRLF)
success = sb.AppendLine("801|M3621037.222|1|5|011|",bCRLF)

' We're going to sign the MD5 hash using the private key.
set privKey = Server.CreateObject("Chilkat.PrivateKey")
success = privKey.LoadAnyFormatFile("qa_data/certs/mexico_test/Certificados_de_Prueba/Certificados_Pruebas/Personas Morales/EKU9003173C9_20230517223532/CSD_EKU9003173C9_20230517223903/CSD_Sucursal_1_EKU9003173C9_20230517_223850.key","12345678a")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( privKey.LastErrorText) & "</pre>"
    Response.End
End If

' Generate the ASN.1 to be signed.

' <sequence>
'     <sequence>
'         <oid>1.2.840.113549.2.5</oid>
'         <null/>
'     </sequence>
'     <octets>SwxHfaJhG+N3pPqay6UzVA==</octets>
' </sequence>

set xml = Server.CreateObject("Chilkat.Xml")
xml.Tag = "sequence"
xml.UpdateChildContent "sequence|oid","1.2.840.113549.2.5"
xml.UpdateChildContent "sequence|null",""
xml.UpdateChildContent "octets",md5_base64

set asn = Server.CreateObject("Chilkat.Asn")
success = asn.LoadAsnXml(xml.GetXml())
Response.Write "<pre>" & Server.HTMLEncode( "ASN.1 = " & asn.GetEncodedDer("base64")) & "</pre>"

' Sign with the private key.
set rsa = Server.CreateObject("Chilkat.Rsa")
success = rsa.UsePrivateKey(privKey)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

' Create the opaque signature.
set bdSig = Server.CreateObject("Chilkat.BinData")
success = bdSig.AppendEncoded(asn.GetEncodedDer("base64"),"base64")
success = rsa.SignRawBd(bdSig)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( rsa.LastErrorText) & "</pre>"
    Response.End
End If

' bd now contains the opaque signature, which embeds the ASN.1, which contains the MD5 hash.
' We're going to add this line:
' 800|4199800|1|BASE64_SIGNATURE|CERT_SERIAL_NUM|

set cert = Server.CreateObject("Chilkat.Cert")
success = cert.LoadFromFile("qa_data/certs/mexico_test/Certificados_de_Prueba/Certificados_Pruebas/Personas Morales/EKU9003173C9_20230517223532/CSD_EKU9003173C9_20230517223903/CSD_Sucursal_1_EKU9003173C9_20230517_223850.cer")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

serialHex = cert.SerialNumber
' The serial in hex form looks like this:   3330303031303030303030353030303033343136
' Decode to us-ascii.
set sbSerial = Server.CreateObject("Chilkat.StringBuilder")
success = sbSerial.DecodeAndAppend(serialHex,"hex","us-ascii")
Response.Write "<pre>" & Server.HTMLEncode( "serial number in us-ascii: " & sbSerial.GetAsString()) & "</pre>"

numReplaced = sb.Replace("CERT_SERIAL",sbSerial.GetAsString())
numReplaced = sb.Replace("BASE64_SIGNATURE",bdSig.GetEncoded("base64"))

Response.Write "<pre>" & Server.HTMLEncode( "------------------------------------") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Result:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( sb.GetAsString()) & "</pre>"

%>
</body>
</html>