[openca-cvsdev] CVS: openca-0.9/src/common/lib/javascript/ru_RU signForm.vbs,1.1,1.1.2.1

[<ope...@li...>]

Update of /cvsroot/openca/openca-0.9/src/common/lib/javascript/ru_RU
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8548/openca-0.9/src/common/lib/javascript/ru_RU

Modified Files:
      Tag: openca_0_9_2
	signForm.vbs 
Log Message:
fixed utf8 problem if signing with VBScript in IE


Author of changes:  michaelbell

Index: signForm.vbs
===================================================================
RCS file: /cvsroot/openca/openca-0.9/src/common/lib/javascript/ru_RU/Attic/signForm.vbs,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -d -r1.1 -r1.1.2.1
*** signForm.vbs	21 Jun 2005 13:14:15 -0000	1.1
--- signForm.vbs	21 Dec 2005 14:22:31 -0000	1.1.2.1
***************
*** 1,12 ****
  <!--'
! Function UnicodeToAscii(ByRef pstrUnicode)
!      Dim i, result
!      
!      result = ""
!      For i = 1 To Len(pstrUnicode)
!           result = result & ChrB(Asc(Mid(pstrUnicode, i, 1)))
!      Next
!          
!      UnicodeToAscii = result
  End Function
  
--- 1,44 ----
  <!--'
! 
! Function UTF16toUTF8ByteArray(strUTF16)
!     Dim i, UTF16, UTF8
!     Dim aryTmp, strTmp
!     For i=1 To Len(strUTF16)
!         UTF16 = AscW(Mid(strUTF16, i, 1))
!         aryTmp = ToUTF8(UTF16)
!         For Each strTmp In aryTmp
!             If Len(Hex(strTmp)) > 1 Then
!                 UTF8 = UTF8 & Hex(strTmp)
!             Else
!                 UTF8 = UTF8 & "0" & Hex(strTmp)
!             End If
!         Next
!     Next
! 
!     Dim CapicomUtil
!     Set CapicomUtil  = CreateObject("CAPICOM.Utilities")
!     UTF16toUTF8ByteArray = CapicomUtil.HexToBinary(UTF8)
! End Function
! 
! Function ToUTF8(ByVal UTF16)
!   ' Convert a 16bit UTF-16BE to 2 or 3 UTF-8 bytes
!   Dim BArray()
!   If UTF16 < &H80 Then
!      ReDim BArray(0)  ' one byte UTF-8
!      BArray(0) = UTF16  ' Use number as Is
!   Elseif UTF16 < &H800 Then
!      ReDim BArray(1)  ' two byte UTF-8
!      BArray(1) = &H80 + (UTF16 And &H3F)  ' Least Significant 6 bits
!      UTF16 = UTF16 \ &H40  ' Shift UTF16 number right 6 bits
!      BArray(0) = &HC0 + (UTF16 And &H1F)  ' Use 5 remaining bits
!   Else
!      ReDim BArray(2)  ' three byte UTF-8
!      BArray(2) = &H80 + (UTF16 And &H3F)  ' Least Significant 6 bits
!      UTF16 = UTF16 \ &H40  ' Shift UTF16 number right 6 bits
!      BArray(1) = &H80 + (UTF16 And &H3F)  ' Use next 6 bits
!      UTF16 = UTF16 \ &H40  ' Shift UTF16 number right 6 bits again
!      BArray(0) = &HE0 + (UTF16 And &HF)  ' Use 4 remaining bits
!   End If
!   ToUTF8 = BArray  ' Return UTF-8 bytes in an Array
  End Function
  
***************
*** 24,28 ****
  End If
  
! SignedData.Content = UnicodeToAscii(theForm.text.value)
  
  ' we cannot use normally because MsgBox can only handle up to 1024 characters
--- 56,60 ----
  End If
  
! SignedData.Content = UTF16toUTF8ByteArray(theForm.text.value)
  
  ' we cannot use normally because MsgBox can only handle up to 1024 characters