<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Rapapu &#187; VB.Net</title>
	<atom:link href="http://rapapu.org/tag/vbnet/feed/" rel="self" type="application/rss+xml" />
	<link>http://rapapu.org</link>
	<description>Blog personal de Humberto Rodríguez</description>
	<lastBuildDate>Sat, 04 Sep 2010 14:49:57 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8.4</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Instalación Automatica de Mysql en Windows</title>
		<link>http://rapapu.org/2009/02/07/instalacion-automatica-de-mysql-en-windows/</link>
		<comments>http://rapapu.org/2009/02/07/instalacion-automatica-de-mysql-en-windows/#comments</comments>
		<pubDate>Sat, 07 Feb 2009 20:22:10 +0000</pubDate>
		<dc:creator>Rapapu</dc:creator>
				<category><![CDATA[general]]></category>
		<category><![CDATA[mysql]]></category>
		<category><![CDATA[trabajo]]></category>
		<category><![CDATA[VB.Net]]></category>

		<guid isPermaLink="false">http://rapapu.org/?p=250</guid>
		<description><![CDATA[Actualmente estoy trabajando en un sistema en Visual Basic .Net que usa Mysql como motor de base de datos. Me encargaron que le hiciera un instalador en el cual integrara la aplicación, la base de datos, así como la configuración de la misma. Lo ideal hubiera sido usar Sqlserver Express como base de datos de [...]]]></description>
			<content:encoded><![CDATA[<p><img class="alignleft" src="http://www.ukoln.ac.uk/web-focus/events/workshops/webmaster-2004/talks/rahtz/html/mysql.png" alt="" width="167" height="87" />Actualmente estoy trabajando en un sistema en Visual Basic .Net que usa Mysql como motor de base de datos. Me encargaron que le hiciera un instalador en el cual integrara la aplicación, la base de datos, así como la configuración de la misma. Lo ideal hubiera sido usar Sqlserver Express como base de datos de tipo embebida, pero por cuestiones de premura en el tiempo de entrega del proyecto (que raro&#8230;), se optó por hacer la instalación automática.</p>
<p>Empecé por bajar el paquete .zip <em>Noinstall</em> de la pagina oficial de <a href="http://dev.mysql.com/downloads/">Mysql</a>. Una vez descomprimido este archivo en la carpeta de instalaciones (Archivos de programa\Mysql, por ejemplo) quedará listo para seguir con la instalación del servicio y configuraciones iniciales de la base. Esto lo hice con in archivo .bat el cual  contiene lo siguiente.</p>
<p>Instala el servicio Mysql (lo instala en modalidad de arranque automático al iniciarse el sistema)</p>
<p><code>C:\(Carpeta de instalación mysql)\bin&gt;mysqld -- install</code></p>
<p>Lo siguiente es arrancar el servicio desde la linea de comando, pero antes de eso se necesita tener un archivo de configuración. Éste por default Mysql lo busca en la carpeta donde está instalado. Como referencia, debe de ir en la ubicación donde están unos archivos .ini que deja de ejemplo la instalación. Aquí lo que hice es que tomé el ini que generó una instalación con el asistente que tenia en otro equipo, si no se puede usar cualquiera de los de ejemplo, solo renombrandolo a my.ini. Posiblemente haya que reapuntar algunas rutas en el .ini hacia la carpeta donde están los archivos de Mysql.</p>
<p>Ahora si, arrancar el servicio con el comando NET</p>
<p><code>C:\(Carpeta de instalación mysql)\bin&gt;NET START MYSQL</code></p>
<p>Si no arranca puede probarse con la instrucción mysqld &#8212; console . Esta ejecución genera mensajes de error si es que los hay.</p>
<p>A este punto ya tenemos listo nuestro servidor Mysql. Pero faltan las configuraciónes de acceso de usuarios, porque el server de inicio deja la base con el acceso anónimo activado y aparte nos deja el usuario root sin password. Esto se hace con las siguientes instrucciones:</p>
<p><code>delete from mysql.user where host = 'localhost' and user = '';<br />
update mysql.user set password = password('nuevopwd') where user = 'root';<br />
flush privileges;</code></p>
<p>Estas lineas las dejé al principio del script .sql que uso para crear la base de datos e insertar los datos iniciales, el cual mando ejecutar desde el .bat de la siguiente manera:</p>
<p><code>C:\(Carpeta de instalación mysql)\bin&gt;mysql -u root &lt; "(ruta\del\archivo)script.sql</code></p>
<p>Y con esto ya está completo el .bat que instala y configura la base de datos.</p>
<p>Para generar el archivo de instalación que copia el <em>Noinstall</em>, ejecuta el .bat e instala los archivos necesarios para que la aplicación corra,  primero intenté con <a href="http://www.acresso.com/products/is/installshield-overview.htm">InstallShield </a>con no muy buenos resultados, entonces opté por <a href="http://www.jrsoftware.org/isinfo.php">Inno Setup</a> una solucion OpenSorce que recomiendo ampliamente por su legereza y facil configuración. Una vez mas el software libre salvando mi traserín.</p>
<p>Basado en la documentación en linea de <a href="http://dev.mysql.com/doc/refman/5.0/es/windows-install-archive.html">Mysql</a>.</p>
]]></content:encoded>
			<wfw:commentRss>http://rapapu.org/2009/02/07/instalacion-automatica-de-mysql-en-windows/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Encriptar/Desencriptar cadenas en VB y VB.Net</title>
		<link>http://rapapu.org/2008/09/20/encriptardesencriptar-cadenas-en-vb-y-vbnet/</link>
		<comments>http://rapapu.org/2008/09/20/encriptardesencriptar-cadenas-en-vb-y-vbnet/#comments</comments>
		<pubDate>Sat, 20 Sep 2008 19:54:48 +0000</pubDate>
		<dc:creator>Rapapu</dc:creator>
				<category><![CDATA[Sin Categoria]]></category>
		<category><![CDATA[VB]]></category>
		<category><![CDATA[VB.Net]]></category>

		<guid isPermaLink="false">http://rapapu.org/?p=149</guid>
		<description><![CDATA[Estaba pensando que segun yo, mi blog es de todo tema que me guste o me llame la atención.
Y la programación es lo que me da para comprar las cheves los fines de semana y cotorrear con Vanessa. Es lo que hago un 80% del dia y no escribo nada de eso. Al grano pues.
Me [...]]]></description>
			<content:encoded><![CDATA[<p>Estaba pensando que segun yo, mi blog es de todo tema que me guste o me llame la atención.</p>
<p>Y la programación es lo que me da para comprar las cheves los fines de semana y cotorrear con Vanessa. Es lo que hago un 80% del dia y no escribo nada de eso. Al grano pues.</p>
<p>Me he fijado que en varios sistemas usan un archivito de texto donde toma los datos para hacer la cadena de conexion a la base de datos, nosotros usamos un archivo .mdb (Access) para el sistema en Vb. En vb.net uso una clase que compilo en una dll y asi no ven los datos, eso es muccho mas seguro aún.</p>
<p>Me pidieron -cosa que se debió hacer desde el inicio del desarrollo- que incriptara los datos que tenimos en la basesita de Access, lo hice con las siguientes funcioncitas:</p>
<p><code>'Encrypt text<br />
Public Function EncryptText(strText As String, ByVal strPwd As String)<br />
Dim i As Integer, C As Integer<br />
Dim strBuff As String</code></p>
<p><code>strPwd = UCase$(strPwd)</code></p>
<p><code>'Encrypt string<br />
If Len(strPwd) Then<br />
For i = 1 To Len(strText)<br />
C = Asc(Mid$(strText, i, 1))<br />
C = C + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))<br />
strBuff = strBuff &amp; Chr$(C And &amp;HFF)<br />
Next i<br />
Else<br />
strBuff = strText<br />
End If<br />
EncryptText = strBuff<br />
End Function</code></p>
<p><code>'Decrypt text encrypted with EncryptText<br />
Public Function DecryptText(strText As String, ByVal strPwd As String)<br />
Dim i As Integer, C As Integer<br />
Dim strBuff As String</code></p>
<p><code>strPwd = UCase$(strPwd)</code></p>
<p><code>'Decrypt string<br />
If Len(strPwd) Then<br />
For i = 1 To Len(strText)<br />
C = Asc(Mid$(strText, i, 1))<br />
C = C - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))<br />
strBuff = strBuff &amp; Chr$(C And &amp;HFF)<br />
Next i<br />
Else<br />
strBuff = strText<br />
End If<br />
DecryptText = strBuff<br />
End Function</code></p>
<p>La función recibe 2 parametros: la cadena a encriptar/desencriptar, y la password o la llave de encriptamiento. Esta muy facilillo y las probamos tambien para VB.Net. Espero que algun dia a alguien le sirva de algo este post.</p>
<p>Sale.</p>
]]></content:encoded>
			<wfw:commentRss>http://rapapu.org/2008/09/20/encriptardesencriptar-cadenas-en-vb-y-vbnet/feed/</wfw:commentRss>
		<slash:comments>5</slash:comments>
		</item>
	</channel>
</rss>

<!-- www.000webhost.com Analytics Code -->
<script type="text/javascript" src="http://analytics.hosting24.com/count.php"></script>
<noscript><a href="http://www.hosting24.com/"><img src="http://analytics.hosting24.com/count.php" alt="web hosting" /></a></noscript>
<!-- End Of Analytics Code -->
