ASP ile SHA1 (Hash) değeri üretmek

**hayatbilgisayar** · 27.04.2007 04:05

Garanti Bankası sanal POS için yeni 3D sistemine geçti, bizim de dünyamız şaştı

Herşeyi hallettik, ama formdan SHA1 değeri üretmeyi başaramadık, durum şu şekilde;
Formda

<form name="pay_form" action="https://ccpos.garanti.com.tr/servlet/gar3Dgate" method="post" >
<input type="hidden" name="clientid" value="123456">
<input type="hidden" name="oid" value="zr1mwak">
<input type="hidden" name="amount" value="5.00">
<input type="hidden" name="okUrl" value="https://www.domain.com/tr/web/okurl.ASP" >
<input type="hidden" name="failUrl" value="https://www.domain.com/tr/web/failurl.ASP" >
<input type="hidden" name="storetype" value="3d" >
<input type="hidden" name="islemtipi" value="Auth" >
<input type="hidden" name="firmaadi" value="Deneme Firması">
<input type="hidden" name="rnd" value="kwrma06AiD" >
<input type="hidden" name="hash" value="BURAYI_HALLEDEMEDİM" >
<input type="hidden" name="taksit" value="1">
<input type="hidden" name="lang" value="tr">

satırları var, halledemediğim kısım yazdığım gibi hash kısmı. Yolladıkları pdf dökümanında;

HASH Güvenlik kontrolü için üretilen SHA1 değeri.
SHA1(clientid + oid + amount + okUrl + failUrl + islemtipi + taksit + rnd + işyerianahtarı)

gibi bir bilgi var. clientid, oid, amount, okUrl, failUrl, islemtipi, taksit, rnd değerleri formda hidden olarak mevcut. işyerianahtarı bilgisini de 123456 olarak verdiler. Şimdi benim elimdeki bu bilgileri yan yana yazıp (veya pdf'de yazdıkları gibi araya + koyup) ortaya çıkacak yeni karakter dizisini SHA1 ile kripto edilmiş bir değere çevirmem gerekiyor. internet'te epeyce araştırdım, hemen hemen tüm yazılanlar ASP.NET üzerine, .NET ile bu değer dahili fonksiyon olarak gelmiş ve server tarafından üretiliyormuş. Ama sitemiz bildiğimiz klasik ASP, NET ile hiçbir ilgisi yok, bizim de NET ile hiçbir bilgimiz yok. ASP ile bu işin nasıl yapılacağını bilen varmı, gerekirse komponent de alabiliriz.

İlginize şimdiden teşekkürler.

**xedition** · 27.04.2007 06:55

JavaScript ile yazılmış bir fonksiyon :

http://forums.aspfree.com/code-bank-...ash-82166.html

Burada da bir sha1 hash fonksiyonu var.

http://fisheye1.cenqua.com/browse/of...ha1.asp?r=MAIN

Kod:

169     Function sha1_Hash(pStrMessage)
170 	Dim lLngLen, lBytLenW, lLngTempWordWAry, lLngNumBlocks, lLngBlock, lIntT, lBytTempAry
171 	Dim lVarWordWAry(79), lVarWordKAry(3)
172 	Dim lStrBlockText, lStrWordText, lStrPadMessage
173 	Dim lBytWordH0Ary, lBytWordH1Ary, lBytWordH2Ary, lBytWordH3Ary, lBytWordH4Ary
174 	Dim lBytWordAAry, lBytWordBAry, lBytWordCAry, lBytWordDAry, lBytWordEAry, lBytWordFAry
175 	   
176 	   lLngLen = Len(cstr(pStrMessage))
177 	   
178 	   lBytLenW = DoubleToWord(CDbl(lLngLen) * 8)
179 	   lStrPadMessage = pStrMessage & Chr(128) & String((128 - (lLngLen Mod 64) - 9) Mod 64, Chr(0)) & String(4, Chr(0)) & Chr(lBytLenW(0)) & Chr(lBytLenW(1)) & Chr(lBytLenW(2)) & Chr(lBytLenW(3))
180 	   lLngNumBlocks = Len(lStrPadMessage) / 64
181 	   
182 	   lVarWordKAry(0) = HexToWord("5A827999")
183 	   lVarWordKAry(1) = HexToWord("6ED9EBA1")
184 	   lVarWordKAry(2) = HexToWord("8F1BBCDC")
185 	   lVarWordKAry(3) = HexToWord("CA62C1D6")
186 	   lBytWordH0Ary = HexToWord("67452301")
187 	   lBytWordH1Ary = HexToWord("EFCDAB89")
188 	   lBytWordH2Ary = HexToWord("98BADCFE")
189 	   lBytWordH3Ary = HexToWord("10325476")
190 	   lBytWordH4Ary = HexToWord("C3D2E1F0")
191 	   
192 	   For lLngBlock = 0 To lLngNumBlocks - 1
193 	      
194 	          lStrBlockText = Mid(lStrPadMessage, (lLngBlock * 64) + 1, 64)
195 	      
196 	          For lIntT = 0 To 15
197 	         
198 	                 lStrWordText = Mid(lStrBlockText, (lIntT * 4) + 1, 4)
199 	         lVarWordWAry(lIntT) = Array(Asc(Mid(lStrWordText, 1, 1)), Asc(Mid(lStrWordText, 2, 1)), Asc(Mid(lStrWordText, 3, 1)), Asc(Mid(lStrWordText, 4, 1)))
200 	      
201 	          Next
202 	      
203 	          For lIntT = 16 To 79
204 	         
205 	                 lVarWordWAry(lIntT) = CircShiftLeftW(XorW(XorW(XorW(lVarWordWAry(lIntT - 3), lVarWordWAry(lIntT - 8)), lVarWordWAry(lIntT - 14)), lVarWordWAry(lIntT - 16)), 1)
206 	      
207 	          Next
208 	      
209 	          lBytWordAAry = lBytWordH0Ary
210 	      lBytWordBAry = lBytWordH1Ary
211 	      lBytWordCAry = lBytWordH2Ary
212 	      lBytWordDAry = lBytWordH3Ary
213 	      lBytWordEAry = lBytWordH4Ary
214 	      
215 	          For lIntT = 0 To 79
216 	         
217 	                 lBytWordFAry = F(lIntT, lBytWordBAry,  lBytWordCAry, lBytWordDAry)
218 	         lBytTempAry = AddW(AddW(AddW(AddW(CircShiftLeftW(lBytWordAAry, 5), lBytWordFAry), lBytWordEAry), lVarWordWAry(lIntT)), lVarWordKAry(lIntT \ 20))
219 	         lBytWordEAry = lBytWordDAry
220 	         lBytWordDAry = lBytWordCAry
221 	         lBytWordCAry = CircShiftLeftW(lBytWordBAry, 30)
222 	         lBytWordBAry = lBytWordAAry
223 	         lBytWordAAry = lBytTempAry
224 	      
225 	          Next
226 	      
227 	          lBytWordH0Ary = AddW(lBytWordH0Ary, lBytWordAAry)
228 	      lBytWordH1Ary = AddW(lBytWordH1Ary, lBytWordBAry)
229 	      lBytWordH2Ary = AddW(lBytWordH2Ary, lBytWordCAry)
230 	      lBytWordH3Ary = AddW(lBytWordH3Ary, lBytWordDAry)
231 	      lBytWordH4Ary = AddW(lBytWordH4Ary, lBytWordEAry)
232 	   
233 	   Next
234 	   
235 	   sha1_Hash = WordToHex(lBytWordH0Ary) & WordToHex(lBytWordH1Ary) & WordToHex(lBytWordH2Ary) &  WordToHex(lBytWordH3Ary) & WordToHex(lBytWordH4Ary)
236 	
237 	End Function

Bu adreste de bileşen kullanılarak yapılanı var :

http://www.example-code.com/asp/Sha1String.asp

Kolay Gelsin.

**Sargon** · 26.07.2007 12:55

Bugün ASP ile hash hesaplanmasına benimde ihtiyacım oldu @xedition verdiğin ilk örnek işe yarıyor, teşekkür ederim fakat garantinin yeni 3Dsi için yeterli değil. Ek olarak kodun base64 e çevrilmesi gerekiyor. Onun için ise aşağıdaki fonksiyonu kullanabilirsiniz.

PHP Kodu:

  
<%

' Functions to provide encoding/decoding of strings with Base64.

' 

' Encoding: myEncodedString = base64_encode( inputString )

' Decoding: myDecodedString = base64_decode( encodedInputString )

'

' Programmed by Markus Hartsmar for ShameDesigns in 2002. 

' Email me at: mark@shamedesigns.com

' Visit our website at: http://www.shamedesigns.com/

'

 
    Dim Base64Chars

    Base64Chars =    "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _

            "abcdefghijklmnopqrstuvwxyz" & _

            "0123456789" & _

            "+/"

 
 
    ' Functions for encoding string to Base64

    Public Function base64_encode( byVal strIn )

        Dim c1, c2, c3, w1, w2, w3, w4, n, strOut

        For n = 1 To Len( strIn ) Step 3

            c1 = Asc( Mid( strIn, n, 1 ) )

            c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) )

            c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) )

            w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 )

            If Len( strIn ) >= n + 1 Then 

                w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 ) 

            Else 

                w3 = -1

            End If

            If Len( strIn ) >= n + 2 Then 

                w4 = c3 And 63 

            Else 

                w4 = -1

            End If

            strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _

                      mimeencode( w3 ) + mimeencode( w4 )

        Next

        base64_encode = strOut

    End Function

 
    Private Function mimeencode( byVal intIn )

        If intIn >= 0 Then 

            mimeencode = Mid( Base64Chars, intIn + 1, 1 ) 

        Else 

            mimeencode = ""

        End If

    End Function    

 
 
     Function to decode string from Base64

    Public Function base64_decode( byVal strIn )

        Dim w1, w2, w3, w4, n, strOut

        For n = 1 To Len( strIn ) Step 4

            w1 = mimedecode( Mid( strIn, n, 1 ) )

            w2 = mimedecode( Mid( strIn, n + 1, 1 ) )

            w3 = mimedecode( Mid( strIn, n + 2, 1 ) )

            w4 = mimedecode( Mid( strIn, n + 3, 1 ) )

            If w2 >= 0 Then _

                strOut = strOut + _

                    Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) )

            If w3 >= 0 Then _

                strOut = strOut + _

                    Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) )

            If w4 >= 0 Then _

                strOut = strOut + _

                    Chr( ( ( w3 * 64 + w4 ) And 255 ) )

        Next

        base64_decode = strOut

    End Function

 
    Private Function mimedecode( byVal strIn )

        If Len( strIn ) = 0 Then 

            mimedecode = -1 : Exit Function

        Else

            mimedecode = InStr( Base64Chars, strIn ) - 1

        End If

    End Function

 
%>

**YILDIRIM22** · 13.04.2008 17:27

Microsoft VBScript runtime error '800a01f5'

Illegal assignment: 'Il'

bu mesajı alıyorum nasıl çöeri

Konu Başlığı: ASP ile SHA1 (Hash) değeri üretmek

Konuyu Paylaş

Seçenekler

ASP ile SHA1 (Hash) değeri üretmek

Re: ASP ile SHA1 (Hash) değeri üretmek

Re: ASP ile SHA1 (Hash) değeri üretmek

Re: ASP ile SHA1 (Hash) değeri üretmek

Bu konu başlığı için etiketler

Mesaj Seçenekleri