ChenYangHuan

Dear Mr. Melba23 I apologize for my childhood actions 😆😆 When I reviewed the posts, I thought it was weird! Thank you guinness! It may have been a long time since I returned to this forum. That day I was just a student, and now I am a programmer with a stable income. Starting with AutoIT, when I look back there are many shortcomings in thinking, but that is the foundation. Once again thank everyone!

^^ it run hide so i think it same a spy

http://www.autoitscript.com/forum/index.php?showtopic=72298 http://www.autoitscript.com/forum/index.php?showtopic=31604

?? So i should delete it?

Hello everyone, I am writing this article with the purpose of learning, knowledge sharing. Sorry, if my english is bad Here is the code was compiled by me and use many resources on this forum - BASS Function Library (Sound and Music Functions) etc... I call it "Xcry Hacker" because it works through the network and control other computers. To the use of this code, you need to open the port for the modem, the required ports in code you can change if you want. Next, sigup for a ddns (no-ip.com) <snip> /Download <url>,<path> - Download File /GetProcess - Getlist Process /KillProcess - Getlist Process /SendFile - Send file via TCP /DelTree - Delete a file or a folder /RunFile - Run a file in Tree View /Remote - Remote Desktop Victim /Update - Update for client /ReShowList - ReShow list of Connections /ShowDesk - Begin show Desktop /GetSound - Begin Capture sound /ShowChat - Chat with victim /HideChat - End of the Chat /Exit - Exit XcryHacker Else for remote cmd I will show some info late Comment if you have questions I'm concentrating on studying for exams should be able to answer slow! THANK FOR READING!

#Include $DLLFile = FileOpenDialog("Choose DLL file", @ScriptDir, "DLL files (*.*)", 3) if @error Then Exit $aNames = _DLLGetFunctionNames($DLLFile) If @error Then Exit ConsoleWrite($DLLFile &amp;": Fault " &amp; @error &amp; @CR) ;~ $sNames = _DLLGetFunctionNames($DLLFile, 1) ;~ ConsoleWrite($sNames &amp; @CRLF) _ArrayDisplay($aNames, StringTrimLeft($DLLFile, StringInStr($DLLFile, "\", 0, -1))) For $i=0 To 768 If StringInStr($aNames[$i],'Create')<>0 Then MsgBox(0,$i,$aNames[$i]) Next Func _DLLGetFunctionNames($sFileName, $ParamResult = 0) ;funkey Aug, 12th, 2010 ;$ParamOutput: 0 --> Result is array ; 1 --> Result is string Local $hFile = FileOpen($sFileName, 0) If $hFile = -1 Then Return SetError(1) ; file error Local $sFile = FileRead($hFile) FileClose($hFile) Local $iStartPos, $iEndPos, $sFunctionNames, $aFunctionNames Local $DLLName = StringTrimLeft($sFileName, StringInStr($sFileName, "\", 0, -1)) For $i = 1 To 99 $iStartPos = StringInStr($sFile, $DLLName &amp; Chr(0), 0, -$i) If $iStartPos = 0 Then Return SetError(2) ;search error $sFunctionNames = StringTrimLeft($sFile, $iStartPos - 2) $sFunctionNames = StringTrimLeft($sFunctionNames, StringInStr($sFunctionNames, "dll") + 3) $iEndPos = StringInStr($sFunctionNames, Chr(0) &amp; Chr(0)) $sFunctionNames = StringLeft($sFunctionNames, $iEndPos - 1) If StringInStr($sFunctionNames, Chr(0) &amp; Chr(0x90)) Then $sFunctionNames = StringLeft($sFunctionNames, StringInStr($sFunctionNames, Chr(0) &amp; Chr(0x90)) - 1) $aFunctionNames = StringSplit($sFunctionNames, Chr(0), 2) If UBound($aFunctionNames) > 0 And StringStripWS($aFunctionNames[0], 8) <> "" Then ExitLoop Next Switch $ParamResult Case 0 Return $aFunctionNames Case 1 Return StringReplace($sFunctionNames, Chr(0), @CRLF) EndSwitch EndFunc This show func but when use it show function not found, please help me! $dr=@ScriptDir&amp;('\PDUConverter.dll') $a=DllCall($dr,'str','CreateConcatTextMessage','str','This is text','bool',True,'str','123456789') MsgBox(0,'',@error) MsgBox(0,'',$a)PDUConverter.zip

"i use the UDF is available on the forum" In code File CommMG is existing... I port but not use to Business or copyright theft, People can fix his own! So i zip source but not zip app. If people thought it was intentional, I sorry for it. Which also has Zetto UDF, and more... I'm not saying it made by me, because I have collected from many sources!

Thank you! This error in zettoButton.au3, I repaired it!

I will try check!!

Hello everybody! I have a broblem when build my code: In code i can run but affter build it show error variable used without being declared. I don't know this error, please help me! Code_2.zip Internet 3G.zip

I added a feature to send USSD. I will continue to make it!!

In Code.zip when zip i zip all file, so file: Main.au3 in source. This file is file i test when write code. You can delete it!! File Internet 3G is main!

I write software management goal is to learn, improve code for yourself, i use the UDF is available on the forum. People can refer to the code below! I'm finishing it! This Main: <snip> A direct rip-off of martins code with all comments removed and an identical DLL

This complete code: :sweating: $var=_Encode("Chen Yang Huan") ClipPut(_Encode("Chen Yang Huan")) MsgBox(0,"",_Decode("4374D90DCA86DD6710B21E7603")) ;~ ///////////////////////////////////////////////////// ;~ ///////////////////////////////////////////////////// Func _Encode($Text) Local $Result="" $x=Int(StringLen($Text)/8) If $x<>StringLen($Text)/8 Then $x+=1 For $i=1 To $x $Result&=_8bitTo7bit(StringLeft($Text,8)) If $i<>$x Then $Text=StringMid($Text,9) Next Return $Result EndFunc Func _Decode($Text) Local $Result="" $x=Int(StringLen($Text)/14) If $x<>StringLen($Text)/14 Then $x+=1 For $i=1 To $x $Result&=_HexToString(_7bitTo8bit(StringLeft($Text,14))) If $i<>$x Then $Text=StringMid($Text,15) Next Return $Result EndFunc Func _7bitTo8bit($Text) Local $Result="" Local $Septets[7], $Octets[8] For $i=0 To 6 $Septets[$i]=_HexToBinaryString(StringMid($Text,$i*2+1,2)) If $Septets[$i]="" Then ExitLoop Next $LengTh=0 If $i=7 And StringLeft($Septets[$i-1],7)="0001101" Then $LengTh=7 EndIf If $i=7 And StringLeft($Septets[$i-1],7)<>"0001101" Then $LengTh=8 EndIf For $j=$i-1 To 0 Step -1 If $j=0 Then $Octets[$j]=StringRight($Septets[$j],7) $Result=_BinaryToHexString($Octets[$j])&$Result ExitLoop EndIf If $LengTh=7 Then $LengTh=0 EndIf If $LengTh=8 Then $LengTh=0 $Octets[7]=StringLeft($Septets[6],7) EndIf If $LengTh=0 Then $Octets[$j]=StringRight($Septets[$j],7-$j)&StringLeft($Septets[$j-1],$j) $Result=_BinaryToHexString($Octets[$j])&$Result EndIf Next If $Octets[7]<>"" Then $Result&=_BinaryToHexString($Octets[7]) Return $Result EndFunc Func _8bitTo7bit($Text) Local $Result="" Local $Septets[7], $Octets[8] For $i=0 To 7 $Octets[$i]=StringMid(_HexToBinaryString(StringMid(_StringToHex($Text),$i*2+1,2)),2) If $Octets[$i]="" Then If $i=7 Then $Octets[$i]="0001101" ExitLoop EndIf Next For $i=0 To 6 $Septets[$i]=StringRight($Octets[$i+1],$i+1)&StringLeft($Octets[$i],7-$i) If $Septets[$i]<>"" Then If StringLen($Septets[$i])<8 Then For $j=1 To 8 - StringLen($Septets[$i]) $Septets[$i]="0"&$Septets[$i] Next EndIf $Result&=_BinaryToHexString($Septets[$i]) Else ExitLoop EndIf Next Return $Result EndFunc Func _BinaryToHexString($BinaryValue) Local $test, $Result = '',$numbytes,$nb If StringRegExp($BinaryValue,'[0-1]') then if $BinaryValue = '' Then SetError(-2) Return endif Local $bits = "0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111" $bits = stringsplit($bits,'|') #region check string is binary $test = stringreplace($BinaryValue,'1','') $test = stringreplace($test,'0','') if $test <> '' Then SetError(-1);non binary character detected Return endif #endregion check string is binary #region make binary string an integral multiple of 4 characters While 1 $nb = Mod(StringLen($BinaryValue),4) if $nb = 0 then exitloop $BinaryValue = '0' & $BinaryValue WEnd #endregion make binary string an integral multiple of 4 characters $numbytes = Int(StringLen($BinaryValue)/4);the number of bytes Dim $bytes[$numbytes],$Deci[$numbytes] For $j = 0 to $numbytes - 1;for each byte ;extract the next byte $bytes[$j] = StringMid($BinaryValue,1+4*$j,4) ;find what the dec value of the byte is for $k = 0 to 15;for all the 16 possible hex values if $bytes[$j] = $bits[$k+1] Then $Deci[$j] = $k ExitLoop EndIf next Next ;now we have the decimal value for each byte, so stitch the string together again $Result = '' for $l = 0 to $numbytes - 1 $Result &= Hex($Deci[$l],1) Next return $Result Else Return EndIf EndFunc ; Hex To Binary Func _HexToBinaryString($HexValue) Local $Allowed = '0123456789ABCDEF' Local $Test,$n Local $Result = '' if $hexValue = '' then SetError(-2) Return EndIf $hexvalue = StringSplit($hexvalue,'') for $n = 1 to $hexValue[0] if not StringInStr($Allowed,$hexvalue[$n]) Then SetError(-1) return 0 EndIf Next Local $bits = "0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111" $bits = stringsplit($bits,'|') for $n = 1 to $hexvalue[0] $Result &= $bits[Dec($hexvalue[$n])+1] Next Return $Result EndFunc Func _HexToString($strHex) If StringLeft($strHex, 2) = "0x" Then Return BinaryToString($strHex) Return BinaryToString("0x" & $strHex) EndFunc Func _StringToHex($strChar) Return Hex(StringToBinary($strChar)) EndFunc

I try http://twit88.com/home/utility/sms-pdu-encode-decode Then I see SMS Rulz->D3E61424ADB3F5 and SMS RulzSMS Rulz->D3E61424ADB3F5D3E61424ADB3F5 So, I think get length/8 is encode one time... I think i can do it! Thank for reply me!