Comments by normalsoft (Top 52 by date)

import org.apache.commons.codec.binary.Base64;

This libray is not getting. im using netbeans.

Sorry im new in java. this line got error in my application.
byte [] base64Bytes = Base64.encodeBase64(buf);

encodeBase64 is underlined by red mark.

lol. but getting only eclipse. not found any net beans code.

Thanks for information. I tried it. Encryption is working. But i'm getting encrypted data which is unreadable data. Symbols and characters, not alpha numberic. is it right or not ?

sorry. actually my xml node Id is opened and closed correctly. <id> .... Here i manually entered.

I checked it. But my .Net version is 3.5. HttpClient is not available in that version.

Me too have the same issue. How can I consume a web API using my class libray?

Me too have the same issue. How can I consume a web API using my class libray?

We have get one third party api for an integration and have to call a method in it. I need to build a class library and want to call the API function from this. Actually my project is windows application.

Thank you thatraja. Also i need to set permission for IIS_USR and also set default page for the application. Please comment

I have removed the comma. Now it is working fine. Thanks for your great support.

I think the problem coming when values comes something like comma(,) separated.

Yes. Same #Error.

Thanks. It is working in local machine. but not working in production. ???

="Amount in words: " & Code.changeToWords(FormatNumber(Sum(Fields!dTurnover.Value),2))
Now it is working. One more issue Decimal part shows as Six Zero instead of Sixty

it is something like total amount. e.g. 135.60. I think the formatting of decimal and passing as string is not properly executed.

It is not working for me. Comes #Error as mentioned earlier. Works only when remove "FormatNumber" from the code.

Sorry. this line was not in code. I forgot to uncomment. It works when remove FormatNumber keyword. But i needs decimal part figures into words.

Public Function changeToWords(ByVal numb As [String]) As [String]
Dim numb as string = Convert.toString(val)
Dim val As [String] = ""
Dim wholeNo As [String] = numb
Dim points As [String] = ""
Dim andStr As [String] = ""
Dim pointStr As [String] = ""
Dim endStr As [String] = "Only"
Dim decimalPlace As Integer = numb.IndexOf(".")
If decimalPlace > 0 Then
wholeNo = numb.Substring(0, decimalPlace)
points = numb.Substring(decimalPlace + 1)
If Convert.ToInt32(points) > 0 Then
andStr = "and"
pointStr = translateCents(points)
pointStr= pointStr & " Paise "
End If
End If
val = [String].Format("{0} {1}{2} {3}", translateWholeNumber(wholeNo).Trim(), "Rupees " & andStr, pointStr , endStr)
Return val
End Function

Private Shared Function translateWholeNumber(ByVal number As [String]) As [String]
Dim word As String = ""
Dim beginsZero As Boolean = False
Dim isDone As Boolean = False
Dim dblAmt As Double = (Convert.ToDouble(number))
If dblAmt > 0 Then
beginsZero = number.StartsWith("0")
Dim numDigits As Integer = number.Length
Dim pos As Integer = 0
Dim place As [String] = ""
Select Case numDigits
Case 1

word = ones(number)
isDone = True
Exit Select
Case 2

word = tens(number)
isDone = True
Exit Select
Case 3

pos = (numDigits Mod 3) + 1
place = " Hundred "
Exit Select

Case 4, 5, 6
pos = (numDigits Mod 4) + 1
place = " Thousand "
Exit Select

Case 7, 8, 9
pos = (numDigits Mod 7) + 1
place = " Million "
Exit Select
Case 10

pos = (numDigits Mod 10) + 1
place = " Billion "
Exit Select
Case Else

isDone = True
Exit Select
End Select

If Not isDone Then
word = translateWholeNumber(number.Substring(0, pos)) + place + translateWholeNumber(number.Substring(pos))

If beginsZero Then
word = " and " & word.Trim()
End If
End If

If word.Trim().Equals(place.Trim()) Then
word = ""
End If
End If

Return word.Trim()
End Function

Private Shared Function tens(ByVal digit As [String]) As [String]
Dim digt As Integer = Convert.ToInt32(digit)
Dim name As [String] = Nothing
Select Case digt
Case 10
name = "Ten"
Exit Select
Case 11
name = "Eleven"
Exit Select
Case 12
name = "Twelve"
Exit Select
Case 13
name = "Thirteen"
Exit Select
Case 14
name = "Fourteen"
Exit Select
Case 15
name = "Fifteen"
Exit Select
Case 16
name = "Sixteen"
Exit Select
Case 17
name = "Seventeen"
Exit Select
Case 18
name = "Eighteen"
Exit Select
Case 19
name = "Nineteen"
Exit Select
Case 20
name = "Twenty"
Exit Select
Case 30
name = "Thirty"
Exit Select
Case 40
name = "Fourty"
Exit Select
Case 50
name = "Fifty"
Exit Select
Case 60
name = "Sixty"
Exit Select
Case 70
name = "Seventy"
Exit Select
Case 80
name = "Eighty"
Exit Select
Case 90
name = "Ninety"
Exit Select
Case Else
If digt > 0 Then
name = (tens(digit.Substring(0, 1) & "0") & " ") + ones(digit.Substring(1))
End If
Exit Select
End Select
Return name
End Function

Private Shared Function ones(ByVal digit As [String]) As [String]
Dim digt As Integer = Convert.ToInt32(digit)
Dim name As [String] = ""
Select Case digt
Case 1
name = "One"
Exit Select
Case 2
name = "Two"
Exit Select
Case 3
name = "Three"
Exit Select
Case 4
name = "Four"
Exit Select
Case 5
name = "Five"
Exit Select
Case 6
name = "Six"
Exit Select
Case 7
name = "Seven"
Exit Select
Case 8
name = "Eight"
Exit Select
Case 9
name = "Nine"
Exit Select
End Select
Return name
End Function


Private Shared Function translateCents(ByVal cents As [String]) As [String]
Dim cts As [String] = ""
Dim digit As [String] = ""
Dim engOne As [String] = ""
Dim i As Integer = 0
For i = 0 To Len(cents) - 1
digit = cents(i).ToString()
If digit.Equals("0") Then
engOne = "Zero"
Else
engOne = ones(digit)
End If
cts = cts & " " & engOne
Next
Return cts
End Function

="Amount in words: " & Code.changeToWords(CStr(FormatNumber(Sum(Fields!dTurnover.Value),2)))

Actually my custom code accepts string value as parameter.

thanks for your great support. It is working fine for me. but, in the client machine, a verifone has been connected. Actually we are trying to implement the credit card swiping and have socket mechanism for handling the verifone events. Previously, the control have been gone to the verifone device when we call the external function in the dll. Now, it is not happening. using thread may cause any issues or problem with my code ?

thanks for the comment. but i need a timeout period criteria.

its working. but i need to abort the process within the time limit whether response received or not.

actually the application is in .NET 3.5. Task is not available.

function in another dll. that referrences to the project.

I had the same problem. still didn't any solution.

Its working fine when i build the project again by adding ajax reference. Thanks for your support.

I had checked the css file. but nothing added on it. still problem exists..

I have already added. It was working since last 6 months. But now it shows like that..

TripleDES algorithem.

Private ENCRYPTION_KEY As Byte() = New Byte() { &H61, 50, &H63, &H34, &H65, &H36, &H67, &H38 }
Private m_abytInitializationVector As Byte() = New Byte() { &H12, &H34, &H56, 120, &H90, &HAB, &HCD, &HEF }

Hi sir,
Sorry for incomplete question. .dat contains an encrypted and compressed XML string or as an encrypted and compressed byte array of store transaction.

I changed the code as follows. Now its works for me. Thanks for your great support.

Dim bytesFrom(clientSocket.ReceiveBufferSize) As Byte
'networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))

Dim bytesRead As Integer = networkStream.Read(bytesFrom, 0, clientSocket.ReceiveBufferSize)
Dim dataFromClient As String = Encoding.ASCII.GetString(bytesFrom, 0, bytesRead)

Thanks for your support.

strings are identical values. but length is different. In client side, i'm getting 12 (byte array length). But in server side, while from receiving data from network stream, it has length 8193 having rest byte values are 0. ie. 0 - 11 values are same as client side. but 12 - 8192 are zeros.

Thanks for your reply.
I changed the code on both ends as follows (lines bolded). But i'm still getting the error while decrypting the client encrypted data in server.

"The input is not a valid Base-64 string as it contains a non-base 64 character, more than two padding characters, or a non-white space character among the padding characters."

Client side:
Collapse | Copy Code
Public Shared Function SendRequest(ByVal InXML As String, ByRef OutXML As String) As Boolean
Try
Dim nwStream As NetworkStream = clientSocket.GetStream()

'' write to network stream
Dim outStream As Byte() = Encoding.ASCII.GetBytes(TripleDES.EncryptString(InXML))
' Dim outStream As Byte() = Encoding.ASCII.GetBytes(InXML)
nwStream.Write(outStream, 0, outStream.Length)
nwStream.Flush()

'' data reading from server
Dim inStream(clientSocket.ReceiveBufferSize) As Byte
nwStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))

'Dim tmpStr As String = Encoding.ASCII.GetString(inStream)
Dim tmpStr As String = Encoding.Unicode.GetString(inStream)
OutXML = TripleDES.DecryptString(tmpStr)
Return True
Catch ex As Exception
OutXML = ex.Message
Return False
End Try
End Function

Server side:
Collapse | Copy Code
Module Module1

Sub Main()

' Dim ipAddress As IPAddress = ipAddress.Parse("192.168.8.8")
Dim serverSocket As New TcpListener(8888)
Dim requestCount As Integer

Dim clientSocket As TcpClient

serverSocket.Start()
msg("Server Started")

clientSocket = serverSocket.AcceptTcpClient()
msg("Accept connection from client")

requestCount = 0

While (True)
requestCount = requestCount + 1

'' Data reading from client
Dim networkStream As NetworkStream = clientSocket.GetStream()

Dim bytesFrom(clientSocket.ReceiveBufferSize) As Byte
networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))

'Dim dataFromClient As String = Encoding.ASCII.GetString(bytesFrom)
Dim dataFromClient As String = Encoding.Unicode.GetString(bytesFrom)

msg("Data from client - " + TripleDES.DecryptString(dataFromClient))
'msg("Data from client - " + dataFromClient)

'' Data writting to client
Dim serverResponse As String = "Server response " + Convert.ToString(requestCount)
Dim sendBytes As Byte() = Encoding.ASCII.GetBytes(TripleDES.EncryptString(serverResponse))
'Dim sendBytes As Byte() = Encoding.ASCII.GetBytes(serverResponse)

networkStream.Write(sendBytes, 0, sendBytes.Length)
networkStream.Flush()

msg(serverResponse)
End While

clientSocket.Close()
serverSocket.Stop()

msg("exit")
Console.ReadLine()
End Sub

Sub msg(ByVal mesg As String)
mesg.Trim()
Console.WriteLine(" >> " + mesg)
End Sub