Yet Another Stupid Blog

2011-10-06T06:59:00.000-07:00

Neste mês de Outubro, ainda com o calor à porta, a equipa da Revista PROGRAMAR não se importa de suar para lhe trazer uma nova edição.

Nesta edição continuaremos também a premiar os autores dos três melhores artigos, dado o sucesso na edição anterior. E os leitores devem dar a sua opinião para que possamos premiar correctamente. Para isso vote em http://tiny.cc/ProgramarED31_V

Assim nesta edição trazemos até si, como artigo de capa, um artigo sobre NHibernate com técnicas para software melhor e mais rápido, com a colaboração da comunidade NetPonto. Nesta 31ª edição pode ainda encontrar os seguintes artigos:

Geração de Números Aleatórios - Parte 1

O primeiro de 4 artigos do mesmo autor da excelente série «Programação em Lua», desta vez sobre geração de números aleatórios.

Programar para Windows Azure

Conheça alguns detalhes bem como alguns cuidados que deveremos ter em conta quando desenvolvemos para esta plataforma.

Programação Orientada a Objectos em Java 6

Saiba algumas das melhores práticas e métodos de programação neste paradigma em Java 6.

DataBinding em Silverlight 4

Conheça o conceito de Databinding na plataforma Silverlight.

VISUAL (NOT) BASIC - Primeiros Passos com GDI+

Saiba mais sobre a API responsável por tudo o que nos «chega aos olhos» no mundo Windows.

CORE DUMP - Martelo <=> Inépcia

Neste artigo de opinião, conheça segundo o autor, a origem das falhas nas bases de muitos profissionais de TI.

E ainda em colaboração com a comunidade SharePointPT:

Padrão alternativo de Sharepoint

Neste artigo da comunidade SharePointPT, saiba como desconstruir as abordagens mais tradicionais, através de uma solução pouco comum através de uma arquitectura que optimiza os módulos de maior interesse para o cenário apresentado.

Edição 30 da Revista Programar

2011-08-05T16:45:00.001-07:00

Verão, Praia e a Revista Programar! ;)

Neste mês de Agosto, por muitos aproveitado para férias, a equipa da Revista PROGRAMAR não descansa e traz-lhe uma nova edição.

Com esta edição começaremos também a premiar os autores dos três melhores artigos. E os leitores devem dar a sua opinião para que possamos premiar correctamente. Para isso vote em http://tiny.cc/ProgramarED30_V

Por isso nesta edição trazemos até si, como artigo de capa, um artigo sobre Introdução ao Ruby on Rails para ficar a conhecer as bases da tecnologia "Ruby on Rails" para desenvolvimento de páginas web. Nesta 30ª edição pode ainda encontrar os seguintes artigos:

Lua - Linguagem de Programação (Parte 10)

A continuação de um excelente artigo sobre LUA, uma linguagem de programação pouco conhecida. Nesta décima parte, saiba como embeber a linguagem LUA em programas escritos em C e C++, bem como pode utilizar co-rotinas.

Criar um sistema RSS no Sharepoint através de uma lista de páginas

Conheça uma forma simples e eficaz de através de RSS 2.0 fazer um “response” directamente numa página ASPX com um controlo de utilizador

Introdução ao Objective-C e à plataforma iOS

Um artigo de introdução à linguagem da Apple Objective-C e à plataforma iOS utilizada nos dispositivos iPod Touch, iPhone e iPad.

Atributos em C#

Saiba como colocar metadados em aplicações C# através de atributos.

VISUAL (NOT) BASIC - Tipos Genéricos

Conheça estas estruturas que possuem bastantes vantagens sobre os Arrays.

E em colaboração com a comunidade AzurePT, SQLPort, NetPonto e SharePointPT respectivamente:

Windows Azure Traffic Manager

Conheça esta funcionalidade que possibilita a resolução de vários problemas relacionados com Cloud Computing.

Ferramentas gratuitas de trabalho com SQL Server

Conheça algumas ferramentas gratuitas que podem facilitar e acelerar o trabalho com o SQL Server.

NHibernate - do Import Package à primeira iteração

Como configurar e utilizar o NHibernate com FluentNHibernate para fazer a ponte entre as nossas classes em .NET e as nossas tabelas de bases de dados.

Sandboxed Solutions em SharePoint Online 2010

Veja como criar Sandbox Solution utilizando os diversos Templates disponibilizados para o Visual Studio 2010.

Snippet de Codigo VB.NET pra criar directorios

2011-07-08T08:49:00.000-07:00

Aqui fica um exemplo de codigo de como criar directorios numerados sequencialmente em vb.net.

Fiz isto porque precisei de criar 140 directorios numerados de uma só vez, e não estava com pachorra de criar um a um.

Imports System.IO
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim contador As Integer
Dim max As Integer
Dim dir As String
Dim dir2 As String
dir = "c:\meudirectorio\"
max = TextBox1.Text
Try
For contador = 1 To max
dir2 = dir & contador
Directory.CreateDirectory(dir2)
Next contador
Catch
End Try
MsgBox("Pronto")
End Sub
End Class

Na textbox1 é definido o numero do ultimo directório a ser criado.

Até uma proxima

Portugal a Progamar

2011-06-05T12:08:00.000-07:00

Portugal a Programar

Em dia de calma, escrevo estas breves linhas! :)

Quem não se recorda dos tempos do Spectrum, dos primeiros PC's dos "tempos em que se programava por prazer, porque era útil, porque era "porreiro", porque se "amava" o que se fazia"?

Eu faz já alguns anos que me registei numa comunidade de Programadores Portugeses, onde muito li, algo partilhei, muito foi partilhado, na qual me orgulho de participar! Entre outras coisas porque se escreve e lê Português!

Quem acompanha ou lê este blog, e os meus caros formandos e colegas, que o lêem estão habituados a que publique sobre a revista Programar, tão agradada de todos nós. Quem não está habituado aqui fica o link, para a comunidade.

Visite, participe, questione! ;)

Portugal a Programar

Vá vai ver que não custa nada! ;)

Edição 28 da Revista programar

2011-04-17T13:20:00.000-07:00

Mais uma excelente edição da revista programar :)

Lua - Linguagem de Programação ( Parte 8 )

jQuery 1.5 e AJAX

Datagrid em Windows Presentation Foundation

Planos de Execução em ORACLE

Smarty PHP Template Engine

CORE DUMP - O X No Quadrado Certo

VISUAL (NOT) BASIC - Entity Framework 4.0: Model-First e Code-First

Revista Programar Edição 27º

2011-02-13T13:26:00.000-08:00

Mais uma Edição da Programar. Vale a pena ler!

Revista Programar Edição 27º

Comunidade

2010-12-13T11:52:00.000-08:00

Boa tarde,

Depois de tanto tempo sem cá publicar nada, agora publico o link, para uma revista em formato electrónico que leio regularmente e me tem cativado a atenção pela excelente qualidade dos conteúdos.

http://www.revista-programar.info/

2010-11-16T11:56:00.000-08:00

Hoje ao fim de tanto tempo lembrei-me de publicar algo na net, que já fiz à bastante tempo, mas que agora partilho.

Um script para registry do Windows que desabilita os dispositivos de armazenamento em massa USB, mais conhecidos como pen-drives.


Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]
"Type"=dword:00000001
"Start"=dword:00000004
"ErrorControl"=dword:00000001
"ImagePath"=hex(2):73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,44,00,\
52,00,49,00,56,00,45,00,52,00,53,00,5c,00,55,00,53,00,42,00,53,00,54,00,4f,\
00,52,00,2e,00,53,00,59,00,53,00,00,00
"DisplayName"="Controlador de armazenamento de massa USB"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Security]
"Security"=hex:01,00,14,80,90,00,00,00,9c,00,00,00,14,00,00,00,30,00,00,00,02,\
00,1c,00,01,00,00,00,02,80,14,00,ff,01,0f,00,01,01,00,00,00,00,00,01,00,00,\
00,00,02,00,60,00,04,00,00,00,00,00,14,00,fd,01,02,00,01,01,00,00,00,00,00,\
05,12,00,00,00,00,00,18,00,ff,01,0f,00,01,02,00,00,00,00,00,05,20,00,00,00,\
20,02,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,0b,00,00,00,00,\
00,18,00,fd,01,02,00,01,02,00,00,00,00,00,05,20,00,00,00,23,02,00,00,01,01,\
00,00,00,00,00,05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum]
"Count"=dword:00000000
"NextInstance"=dword:00000000

E agora o script para reabilitar os dispositivos:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]
"Type"=dword:00000001
"Start"=dword:00000003
"ErrorControl"=dword:00000001
"ImagePath"=hex(2):73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,44,00,\
 52,00,49,00,56,00,45,00,52,00,53,00,5c,00,55,00,53,00,42,00,53,00,54,00,4f,\
 00,52,00,2e,00,53,00,59,00,53,00,00,00
"DisplayName"="Controlador de armazenamento de massa USB"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Security]
"Security"=hex:01,00,14,80,90,00,00,00,9c,00,00,00,14,00,00,00,30,00,00,00,02,\
 00,1c,00,01,00,00,00,02,80,14,00,ff,01,0f,00,01,01,00,00,00,00,00,01,00,00,\
 00,00,02,00,60,00,04,00,00,00,00,00,14,00,fd,01,02,00,01,01,00,00,00,00,00,\
 05,12,00,00,00,00,00,18,00,ff,01,0f,00,01,02,00,00,00,00,00,05,20,00,00,00,\
 20,02,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,0b,00,00,00,00,\
 00,18,00,fd,01,02,00,01,02,00,00,00,00,00,05,20,00,00,00,23,02,00,00,01,01,\
 00,00,00,00,00,05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum]
"Count"=dword:00000000
"NextInstance"=dword:00000000

Remodelações

2009-12-10T09:59:00.000-08:00

Hoje a conselho de um amigo e depois de algum esforço, o blog foi remodelado de forma a incluir o sintaxhighlighter. Deu um bocadito de trabalho para se modificar tanta coisa, mas parece ter valido a pena o efeito

iTextSharp em Visual Basic Dot net

2009-10-24T13:08:00.000-07:00

Recentemente utilizei um componente gratuito em Visual Basic Dot Net que me pareceu digno de ser dado a conhecer. Trata-se do iTextSharp. Esta simples biblioteca permite muito mais do que o nome sugere. Além de permitir gerar ficheiros Portable Document Format a partir de programas feitos em Visual Basic Dot Net.

Existem bons exemplos feitos em C#, e alguns em VB, mas são muito poucos. Gerar PDF’s a partir de VB sem recurso a ferramentas proprietárias não é complicado, desde que se conheçam os componentes correctos e se lhes dê uso.

O código que abaixo apresento gera um documento pdf e foi colocado num botão, para simplificar as coisas. Existem formas de fazer Reports, assinar digitalmente documentos, cifrar documentos, entre outras coisas com o iTextSharp. Eu apenas me concentrei em fazer um exemplo o mais simples possível. O limite é virtualmente a imaginação do programador.

Inicialmente indico ao VB que vou precisar dos seguintes componentes:

Imports iTextSharp
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports iTextSharp.text.xml
Imports System.IO

Nem todos os programadores escrevem bem Português! Mas isso não faz deles menores.
Agora num botão normal coloco o código que vai gerar o ficheiro .pdf em c:\ , o documento é formatado em A4, com margens, e apenas inclui alguns parágrafos e pedaços de código não formatados. Penso que para iniciar será melhor assim.


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  'Cria uma class de objectos Documento e define o formato de página (A4), a margem esquerda, direita, superior e inferior
  Dim doc As New Document(iTextSharp.text.PageSize.A4, 10, 10, 42, 35)
  Try
      Dim wri As PdfWriter = PdfWriter.GetInstance(doc, New FileStream("c:\PAP.pdf", FileMode.Create))
      'Abre o documento para Escrita
      doc.Open()
      'Escreve algum conteudo no documento
      Dim paragraph As New Paragraph("Esta é a Primeira linha do primeiro paragrafo deste exemplo.")
      Dim pharse As New Phrase("Esta é a segunda linha usando uma fraze.")
      Dim chunk As New Chunk(" Esta é a terceira linha usando um Chunk (pedaço desformatado).")
      Dim blankline As New Paragraph(" ")

      ' Agora adiciona o texto criado acima utilizadno diferentes objectos de class para o documento pdf
      doc.Add(paragraph)
      doc.Add(pharse)
      doc.Add(chunk)
      doc.Add(blankline)

  Catch dex As DocumentException
      'Trata das excepções de Documento
  Catch ioex As IOException
      'Trada das excepções de input/output
  Catch ex As Exception
      'trata das restantes excepções
  Finally
      'fecha o documento
      doc.Close()
  End Try

End Sub
End Class

Acima deixo um exemplo basico de algo que eu pesquisei e não encontrei, dedicado a quem precisar e agora encontre. Porque partilhar Código e Know-How é mais do que uma simples "politica", é disponibilizar aos outros o que gostariamos que nos disponibilizassem a nós!

Se por algum acaso achares este How-To inutil, diz! Manda um mail! Diz o quão inutil ele é! Pois para um "Blog Estipido (Yet Another Stupid Blog)" é mesmo disto que ele precisa!

3DES VB Dot NET

2009-10-18T15:01:00.000-07:00

Hoje escrevo um pedaço de codigo (duas funções) para utilização de Triple DES em VB Dot NET, pois passei algumas horas na net em busca de um exemplo de como fazer isto e não encontrei nada! :(



Public Function DecryptString(ByVal EncryptedString As String,
ByVal EncryptionKey As String) As String

      Try
          Dim Deskey() As Byte = {}
          Dim inputByteArray(EncryptedString.Length) As Byte

          If EncryptionKey.Length = 0 Then
              Return "Erro - Falta a Chave"

          Else
              Deskey = System.Text.Encoding.UTF8.GetBytes(EncryptionKey.Substring(0, 24))

          End If
          Dim CSPSym As New TripleDESCryptoServiceProvider

          inputByteArray = Convert.FromBase64String(EncryptedString)

          Dim DecryptMemoryStream As New MemoryStream
          Dim DecryptCryptoStream As New 
CryptoStream(DecryptMemoryStream, CSPSym.CreateDecryptor(Deskey, 
myDESIV), CryptoStreamMode.Write)

DecryptCryptoStream.Write(inputByteArray, 0, inputByteArray.Length)
DecryptCryptoStream.FlushFinalBlock()

Catch exCryptoError As Exception
Return exCryptoError.Message
End Try
Return ""
End Function

Private Function EncryptString(ByVal PlainTextString As String, ByVal EncryptionKey As String) As String
      Dim DESKey() As Byte = {}
      Try
          If EncryptionKey.Length = 0 Then
              Return "Erro - Falta chave de Encriptacao"

          Else
  DESKey = System.Text.Encoding.UTF8.GetBytes(EncryptionKey.Substring(0, 24))
          End If

          Dim CSPSym As New TripleDESCryptoServiceProvider
          Dim inputByteArray() As Byte = System.Text.Encoding.UTF8.GetBytes(PlainTextString)

          Dim EncryptMemoryStream As New MemoryStream
          Dim EncryptCryptoStream As New CryptoStream(EncryptMemoryStream, CSPSym.CreateEncryptor(DESKey, myDESIV), CryptoStreamMode.Write)
          EncryptCryptoStream.Write(inputByteArray, 0, inputByteArray.Length)
          EncryptCryptoStream.FlushFinalBlock()

          Return Convert.ToBase64String(EncryptMemoryStream.ToArray())

      Catch exCryptoError As Exception
          Return exCryptoError.Message
      End Try

  End Function

Private codificakey ( )

      Dim Secretkey As String = "*896&*(%HUYFteu27^5452ewe"
      Dim EncryptedPassword As String = EncryptString(Password, Secretkey)
      Dim valorsenha As String

      password = txtSenha.Text
      password = EncryptString(password, Secretkey)
      valorsenha = password
      MsgBox(valorsenha)

End sub

Espero que isto seja util para alguém ;) Afinal de contas TripleDES ainda é das formas seguras de guardar dados ;)

Dedicado a uma Anjo Tigre que me serviu de inspiração! 88 teclas, 9 anos, 7 dias e muita paciencia... para me servir de inspiração ainda nos dias que correm!

Recuperar uma BD de ACCESS MDB

2009-10-01T07:30:00.000-07:00

Desta vez o How-to, vai ser sobre um "truque" já antigo mas ainda muito util: Como recuperar uma Base de dados em formato .MDB que tenha ficado ligeiramente corrompida:

1- Fazer uma cópia de segurança da base de dados (Italico porque muita gente não o faz, salta este paço importantissimo)

2- Abrir o Painel de Controlo no Menu iniciar do Microsoft Windows
3- Duplo click no icon Ferramentas administrativas

4- Dentro das ferramentas Administrativas Duplo-Click em Origem de dados (ODBC)
5- Abrir o Separador DSN de Sistema

6- Clicar no Botão Configurar

7- Clicar no botão Reparar

8- Navegar até ao ficheiro de base de dados que pertendemos reparar e seleciona-lo

9- Clicar no botão OK

10- Deve aparecer uma caixa de mensagem com a informação de que a base de dados foi reparada com sucesso. Assim a base de dados estará pronta a ser utilizara

Boa utilização!

(Conhecimento é puder, use-o com sabedoria)

Fazer o Windows Ver uma PEN/Unidade Flash como um disco local

2009-09-24T00:58:00.000-07:00

Como fazer o Windows detectar memória flash como se fosse um disco rígido (testado
em XP e Vista)

Teoria: O Windows detecta as unidades usb como sendo unidades amovíveis, o truque
é fazer com que o Sistema Operativo (Windows) veja determinada pen (Marca e modelo
expecifico) como sendo um disco rígido, cada vez que a unidade seja ligada numa porta
USB da maquina onde o driver foi instalado

Pré-Requisitos:
· Dirver USB_Local_Disk
· Notepad ++ ou outro editor ASCII

Como fazer o Windows detectar a memória flash como um disco:

1. Numa maquina Windows liga a pen na porta USB

2. Partindo do pressuposto que usas notepad++ não precisas de o sacar, se não usas Google e saca!

3. Copia o ficheiro USB_Localdisk.zip para o teu ambiente de trabalho e descompacta-o

4. Abre com o notepad++ o ficheiro cfadisk.inf que está na pasta onde acabaste de descomprimir o zip

5. Vai até à linha 26 do ficheiro cfadisk.inf . Aqui selecionas o texto Nome_da_instancia_da_pen. E deixa o file aberto

6. Apartir do Windows segue os seguintes paços Iniciar-> Executar e digita devmgmt.msc depois clica Ok

7. Em Unidades de disco, faz duplo click na tua unidade "USB Flash":

8. Na janela de Propriedades clica em Detalhes. Seleciona o texto em ID de Instancia de Dispositivo e faz crtl+c

9. Agora na selecção que fizeste antes, na linha 26 faz ctrl+v Grava e feixa

10. Clicka no Iniciar-> Executar e digita devmgmt.msc clicak Ok voltas ao gestor de dispositivos.

11. Em Unidades de Disco, vai até à pen click-direito e seleciona a opção Actualizar Controlador:

12. Escolhe Não

13. Seguinte e Instalar apartir de uma lista ou localização especifica

14. Seguint, escolhe Não eu escolherei o controlador a instalar

15. Escolhe Disco e vai até onde gravaste a pasta que descomprimiste e o ficheiro que modificas-te (USB_LocalDisk) . Seleciona cfadisk.inf clica Open e OK

16. Vais receber os avisos idiotas do Windows sobre o Driver (Manda pastar)

17. Pronto a bombar (Deves ver a pen como se fosse um disco local! Copia para lá os files .mdf e .ldf e faz o atach no SQL Studio

Notas: Sempre que quizeres utilizar um dispositivo de marca ou modelo diferente para
este efeito basta seguires estes paços (uma vez para cada marca e modelo)

P.S.: Se gostas-te do How-to pensa que alguém teve de tomar muito Cafézinho para o escrever!

YASB

2009-09-24T00:57:00.000-07:00

Como ideia surgida durante a passada madruga hoje, inicia-se o YASB (Yet Another Stupid Blog) Apenas Mais um Blog Estupido!

Vamos ver quanto tempo irá durar, e esperar que os how-to's que vão ser disponibilizados sejam uteis!