webForumDet fria alternativet

ASP + Blowfish

ASP

8 svar · 304 visningar · startad av ironhead

Medlem sedan mars 20011 346 inlägg
Frågan#1

Är det någon som vet nåt bra ställe eller själv kan/har kod som kan illustrera hur kryptering/dekryptering går till i Blowfish med hjälp av ASP.

Medlem sedan mars 20011 346 inlägg
#2

Jag skulle behöva kunna dekryptera en sträng som är krypterad med blowfish.

nyckel har jag.

nån som vet hur man går tillväga?

Medlem sedan nov. 20017 144 inlägg
#3

Skicka texten till mig... :)
Jag har aldrig sätt blowfish i ASP däremot finns det ju classer för VB.

Medlem sedan nov. 20017 144 inlägg
#4

Här är något: http://www.di-mgt.com.au/src/BlowfishASP.zip

Medlem sedan mars 20011 346 inlägg
#5

Det är just det Blowfish demo jag har testat, men får inte till det.

Medlem sedan mars 20011 346 inlägg
#6

Jag tar hela mitt problem här ;)

Jag har fått en del strängdata skickat tll mig som först är krypterat med Blowfish & sedan med Base64.

Jag använder denna kod för att först dekoda Base64:

	Dim Base64Chars
	Base64Chars =	"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
			"abcdefghijklmnopqrstuvwxyz" & _
			"0123456789" & _
			"+/"

	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

myDecodedString = base64_decode( "[sträng som skall avkodas]" )
response.write myDecodedString

sedan har jag testat Blowfishdemot (http://www.di-mgt.com.au/src/BlowfishASP.zip)på strängen för att få fram datat, men får inte fram nåt vettigt ur strängarna.

Test-sträng:

Nyckel -- "12345678"
Original data -- "param1=gegga & param2=mer_gegga"
Kodad  
"Nh2TF2xGO3E%3D=Yh61o5ypcIc%3D&IbgaU4VkBCo%3D=grRTjz179qZ/mny1tbibLw%3D%3D"

OBS! Dessa strängar är block-krypterade dvs. param1 är krypterad men alla & och = är okrypterade dessutom är strängarna webifierade med "%3D" & "%2D"

Jag behöver verkligen hjälp med detta... :(

Medlem sedan mars 20011 346 inlägg
#7

När jag försöker kryptera Orginaldatat ovan med först Blowfish & sedan Base64 får jag ut strängen:

RTY1NjI1Rjk1Q0FEMzY5MT1DREQxMEMzMTg1MkNFQkY2JmFtcDswREE5MUFEODVBQTRBM0U2PThEMDY0Qjg5RDgyNDQyNTY5OEE1NjM3NTYyRDVCNkNB

Är det helt fel eller?

Finns det flera olika sätt att kryptera strängar med Blowfish?
Om det hjälper någon så kan jag tala om att strängarna är krypterade i Shockwave och skickas till en ASP-sida.

<-- Totalt förvirrad

Medlem sedan mars 20011 346 inlägg
#8

Detta skall vara ascii-koderna för strängen bara krypterad med Blowfish

48,2,207,226,84,125,103,165,226,11,180,252,121,122,242,208,4,194,176,73,175,210,131,43,98,30,181,163,156,169,112,135

org.

nyckel = 12345678
param1=gegga& param2=mer_gegga

obs! Det ska inte vara nåt mellanslag i strängen efter gegga&.

Medlem sedan mars 20011 346 inlägg
#9

Kan man konfigurera Blowfish på flera sätt?

251 ms totalt · 4 externa anrop · v20260731065814-full.e96017d9
119 ms — deklarationer (db)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)