bc-vnt

Wtf !

Good Job :)sau cum spun colegi de forum Great Job

gj

Este un ID vechi man , il folosesc mai mult pentru anumite acc , 90% din acea lista nici nu cred ca mai exista

= ban curat , e prea puternic aim-ul , fara suparare

Gj

De acord cu ceea ce ai scris , dar sunt multe persoane INFOCATE care prefera sa isi cumpere cs pentru al avea pe un cont steam si pot cadea usor intr-un plasa " site clona "

Consiliul Concurentei din Coreea de Sud a anuntat recent ca a demarat o ancheta in care principala companie vizata este Samsung Electronics. Se pare ca Samsung este anchetata pentru a vedea daca se foloseste de pozitia pe care o are in prezent pe piata pentru a dezavantaja sau nu produsele Apple. Mai excat, Samsung se bazeaza pe tehnologia 3G pentru a castiga in fata Apple in toate procesele intentate pana acum. Desi o singura instanta a fost de partea coreenilor, mai precis cea din Seul, Samsung considera ca Apple ar trebui sa opreasca de la comercializare toate produsele Apple care folosec tehnologia 3G, pe motiv ca brevedetele sunt ale lor. De cealalta parte insa, instantele din Europa cred ca cei care detin aceste brevete ar trebui sa ofere acces celor care vor utilizarea lor, pentru a asigura o piata cu mai multi concurenti. Asta in timp ce, de cealalta parte, Apple acuza Samsung ca a copiat elemente esentiale de la iPhone si iPad pentru a-si dezvolta propriile produse. Cum se va termina „razboiul” dintre Apple si Samsung nu cred ca vom afla prea curand, dar in viitorul apropiat vom afla care este decizia institutiilor din Coreea de Sud cu privire la pozitiile celor doua companii. Sursa : Samsung, anchetata pentru dezavantajarea Apple BUSINESS Stiri it despre Comunicatii, Software, Job, Web, GPS,Business,Securitate, Jocuri- Tehnopol.ro

Logic ca nimeni nu o sa-si testeze telefonu-l bun de uzanta , deci slabe sanse, decat cineva ca mine care are ceva mai vechi si chiar ar vrea sa-l decodeze va incerca dar ,nici asa nu cred ... hmm ... mai bine 30 - 50 RON la un service si e sigur

Motorola nu are , am un v360 mai vechi in csm , vroiam sa vad daca chiar merge

Bitdefender informeaz? asupra unei tentative de fraud? având ca ?int? fanii jocului Counter Strike. Ultima versiune a celui mai popular joc de ac?iune online, Counter Strike – Global Offensive, lansat? s?pt?mâna trecut? de Valve Corporation, a ?i atras aten?ia escrocilor. În lipsa unei metode de evitare a protec?iei comerciale cu cheie de înregistrare, atacatorii au încercat s?-i p?c?leasc? pe împ?timi?ii jocului promi?ându-le 500 de astfel de numere de înregistrare gratuite, disponibile pe un website fals – o clon? a Gamekeyz – site folosit cu încredere de foarte mul?i împ?timi?i ai jocurilor online. Pentru a primi seria de înregistrare promis? juc?torii sunt direc?iona?i c?tre o pagin? de sondaj sau c?tre site-uri care vând aplica?ii ?i servicii cu supratax? pentru mobile, dup? care li se cere s? dezv?luie o serie de informa?ii personale. Juc?torul nu va primi îns? nicio cheie de acces dup? introducerea informa?iilor solicitate. Datele personale vizate de escroci sunt: nume, adres?, num?r de telefon, email ?i furnizorul de servicii de telefonie, informa?ii sensibile, care cel mai probabil vor fi utilizate pentru înscrierea victimei la un serviciu pe care utilizatorul nu l-a solicitat, dar ?i în alte tipuri de escrocherii sau atacuri de phishing. Escrocii localizeaz? geografic IP-ul pentru a personaliza mesajele trimise ?i pentru a le face mai credibile, întrucât abordeaz? consumatorii în limba lor matern?. Clonarea paginilor oficiale ?i utilizarea lor pentru a prezenta o ofert? tentant? fanilor este o tehnic? veche ?i aparent de succes din moment ce speciali?tii Bitdefender remarc? folosirea sa în mod repetat în preajma datei de lansare pentru foarte multe jocuri, filme sau alte produse ?i servicii mult a?teptate în pia??. În jurul acestor date fanii sunt mai u?or de convins s? dezv?luie informa?ii personale decât în mod obi?nuit. Pentru infocatii couter-ului . Sursa : Pentru fanii Counter Strike: nu fi?i victimele hackerilor - Securitate IT

Welcome !

Dupa LinkedIn, inainte de weekend mai anuntam un serviciu online care a fost hack-uit de niste internauti mai priceputi. Last.Fm este una dintre cele mai bune surse de radio pe internet, indiferent de genul de muzica pe care-l cautati. Cu cateva milioane de utilizatori la activ, popularul serviciu se pare ca a fost insa spart. Cel putin asa zice contul oficial de Twitter al companiei: “Investigam o problema de securitate ce vizeaza parolele utilizatorilor. Ca o precautie, va recomandam sa ... Dupa LinkedIn, inainte de weekend mai anuntam un serviciu online care a fost hack-uit de niste internauti mai priceputi. Last.Fm este una dintre cele mai bune surse de radio pe internet, indiferent de genul de muzica pe care-l cautati. Cu cateva milioane de utilizatori la activ, popularul serviciu se pare ca a fost insa spart. Cel putin asa zice contul oficial de Twitter al companiei: “Investigam o problema de securitate ce vizeaza parolele utilizatorilor. Ca o precautie, va recomandam sa ... P.S - In caz ca cineva are cont Sursa : http://www.securizare.ro/content/view/908/1/

Download : PPhone-Book.rar download - 2shared Imports MyLibraryFunctions.Mydata Imports MyLibraryFunctions.LoadData Imports MyLibraryFunctions.CommClasses Imports MyLibraryFunctions.MyFunctions ''' <summary> ''' Note: This Program is more Advance for more info Regarding this Application ''' Just Send me an email: bc_vnt@yahoo.it ''' </summary> ''' <remarks>Copy Right:2010</remarks> ''' Programmer: Bc-Vnt Public Class PhoneBook Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click 'Dim InsertInfo As List(Of IPersonals) = New List(Of IPersonals) 'InsertInfo.Add(New InsertData(Me.txtFname.Text, Me.txtMname.Text, Me.txtLname.Text, _ ' Me.txtAddress.Text, Me.txtEadd.Text, Me.txtMobNo.Text, Me.txtTelNo.Text)) Dim Disable As Functions = New Functions Dim Insert As InsertData = (New InsertData(Me.txtFname.Text, Me.txtMname.Text, Me.txtLname.Text, _ Me.txtAddress.Text, Me.txtEadd.Text, Me.txtMobNo.Text, Me.txtTelNo.Text)) If Me.txtFname.Text = String.Empty And txtMobNo.Text = String.Empty And txtTelNo.Text = String.Empty Then MsgBox("Please Fill the ff Important details", MsgBoxStyle.Information, "Phone Book") Else Insert.MyData() End If Disable.DisableString(Me) Disable.DisableButton(Me) Me.btnAdd.Focus() Me.txtSearch.Enabled = True Me.btnAdd.Enabled = True Me.btnEdit.Enabled = True Me.btnLoad.Enabled = True Me.btnExit.Enabled = True Disable.ClearTextBox(Me) End Sub Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click Dim Disable As Functions = New Functions Dim Update As UpdateData = New UpdateData(Me.txtFname.Text, Me.txtMname.Text, Me.txtLname.Text, _ Me.txtAddress.Text, Me.txtEadd.Text, Me.txtMobNo.Text, Me.txtTelNo.Text) If Me.txtFname.Text = String.Empty And txtMobNo.Text = String.Empty And txtTelNo.Text = String.Empty Then MsgBox("No Data!", MsgBoxStyle.Information, "Phone Book") Else Update.MyData() End If Disable.DisableString(Me) Disable.DisableButton(Me) Me.txtSearch.Enabled = True Me.btnAdd.Enabled = True Me.btnEdit.Enabled = True Me.btnLoad.Enabled = True Me.btnExit.Enabled = True Disable.ClearTextBox(Me) End Sub Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim Disable As Functions = New Functions Dim Delete As DeleteData = New DeleteData(Me.txtFname.Text, Me.txtMname.Text, Me.txtLname.Text, _ Me.txtAddress.Text, Me.txtEadd.Text, Me.txtMobNo.Text, Me.txtTelNo.Text) Delete.MyData() Disable.DisableString(Me) Disable.DisableButton(Me) Me.btnAdd.Enabled = True Me.btnEdit.Enabled = True Me.btnLoad.Enabled = True Me.txtSearch.Enabled = True Me.btnExit.Enabled = True Disable.ClearTextBox(Me) End Sub Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click Dim Load As SearchFromTable = New SearchFromTable With Me.DataGridView1 .DataSource = Load.GetMyData _ ("Select *" _ + " From tblInfo Where Fname='" & Trim(Me.txtSearch.Text) & "'" _ + " or Lname='" & Trim(Me.txtSearch.Text) & "'") End With End Sub Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click Dim Load As SearchFromTable = New SearchFromTable With Me.DataGridView1 .DataSource = Load.GetMyData _ ("Select * From tblInfo") End With End Sub Private Sub PhoneBook_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dim response As MsgBoxResult response = MsgBox("Are you sure you want to close this application?", _ vbYesNo + vbExclamation + vbApplicationModal + _ vbDefaultButton2, "Close confirmation") If response = MsgBoxResult.Yes Then Me.Visible = False Me.Dispose() Me.Close() End ElseIf response = MsgBoxResult.No Then e.Cancel = True Exit Sub End If End Sub Private Sub PhoneBook_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Disable As Functions = New Functions Disable.DisableString(Me) Disable.DisableButton(Me) Me.btnExit.Enabled = True Me.btnAdd.Enabled = True Me.btnEdit.Enabled = True Me.btnLoad.Enabled = True Me.txtSearch.Enabled = True End Sub Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click Dim Enable As Functions = New Functions Enable.EnabledString(Me) Me.btnEdit.Enabled = False Me.btnSave.Enabled = True Me.btnCancel.Enabled = True End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click Dim Enable As Functions = New Functions Enable.EnabledString(Me) Me.btnAdd.Enabled = False Me.btnUpdate.Enabled = True Me.btnDelete.Enabled = True Me.btnCancel.Enabled = True End Sub ''' <summary> ''' You can use DoubleClick or Enter in Datagridview to Load the data ''' in textboxes. ''' </summary> Private Sub DataGridView1_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter Dim GridRow As DataGridViewRow = DataGridView1.CurrentRow txtFname.Text = CStr(GridRow.Cells.Item("Fname").Value) txtMname.Text = CStr(GridRow.Cells.Item("Mname").Value) txtLname.Text = CStr(GridRow.Cells.Item("Lname").Value) txtAddress.Text = CStr(GridRow.Cells.Item("Address").Value) txtMobNo.Text = CStr(GridRow.Cells.Item("MobNo").Value) txtTelNo.Text = CStr(GridRow.Cells.Item("TelNo").Value) txtEadd.Text = CStr(GridRow.Cells.Item("EAdd").Value) End Sub Private Sub DataGridView1_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick Dim GridRow As DataGridViewRow = DataGridView1.CurrentRow txtFname.Text = CStr(GridRow.Cells.Item("Fname").Value) txtMname.Text = CStr(GridRow.Cells.Item("Mname").Value) txtLname.Text = CStr(GridRow.Cells.Item("Lname").Value) txtAddress.Text = CStr(GridRow.Cells.Item("Address").Value) txtMobNo.Text = CStr(GridRow.Cells.Item("MobNo").Value) txtTelNo.Text = CStr(GridRow.Cells.Item("TelNo").Value) txtEadd.Text = CStr(GridRow.Cells.Item("EAdd").Value) End Sub ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks>Note: To Load datas in Datagridview Click Load Button</remarks> Private Sub txtSearch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress If Asc(e.KeyChar) = Keys.Enter Then btnSearch_Click(Nothing, Nothing) e.Handled = True End If End Sub Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click Dim Disable As Functions = New Functions Disable.ClearTextBox(Me) Disable.DisableString(Me) Disable.DisableButton(Me) Me.btnAdd.Enabled = True Me.btnEdit.Enabled = True Me.btnLoad.Enabled = True Me.txtSearch.Enabled = True Me.btnExit.Enabled = True End Sub Private Sub txtMobNo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMobNo.KeyPress Dim NumOlny As Functions = New Functions e.Handled = NumOlny.TrapKey(Asc(e.KeyChar)) End Sub Private Sub txtTelNo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTelNo.KeyPress Dim NumOlny As Functions = New Functions e.Handled = NumOlny.TrapKey(Asc(e.KeyChar)) End Sub End Class Sursa : VB.NET Books for Beginners

Gj

Download : AlarmClock.rar download - 2shared Public Class Form1 Public Shared alarm_time As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lbldateout.Text = Date.Today ' Displaying the current date on the Label Timer1.Start() ' Timer 1 is used to display the Current time End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lbltimeout.Text = TimeOfDay 'lbltiemout is used to diaplay teh current time End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsetalarm.Click alarm_time = lsthour.Text + ":" + lstmin.Text + ":" + lstsec.Text + " " + lstzone.Text 'Formatting the time one which alarm need to start temp.Text = alarm_time 'Assigning the time set by the user on a label to make the value static Timer2.Start() MsgBox("Alarm has been Sent", MsgBoxStyle.Information, "Alarm Clock for Normel") End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim temp As String = TimeOfDay Dim value As String = My.Application.Info.DirectoryPath + "\" + "tone.mp3" 'Setting the path of the file (Relative Path) If alarm_time = temp Then ' Comparing the current time with the time set by the user AxMediaPlayer1.URL = value 'AxMediaPlayer1 is the Window media player tool used on the form on the bottom on right hand side to play sound End If End Sub End Class Pentru cei care dorm tarziu, lasa pc aprins 4 scann sau altceva si a 2 zii dimineata la munca Licke subscribe !

Sa --- sa ---- sa --- sa --- SUGA P*** garda ! sorry de limbaj !

Cartea si cel mai mult sa citesti legislatia ,ca semnele e imposibil sa nu le stii + sa ai intiparit in minte cand trebuie sa dai precedenta .

Download : http://www.2shared.com/file/68-D9u1o/Mail-Extractor.html Imports System.IO Imports System.Text Imports System.Text.RegularExpressions Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents btnExit As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents txtDocumentName As System.Windows.Forms.TextBox Friend WithEvents btnParse As System.Windows.Forms.Button Friend WithEvents btnBrowse As System.Windows.Forms.Button Friend WithEvents lblFindCount As System.Windows.Forms.Label Friend WithEvents txtResults As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents txtDocContents As System.Windows.Forms.TextBox <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1)) Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.txtResults = New System.Windows.Forms.TextBox() Me.lblFindCount = New System.Windows.Forms.Label() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.txtDocContents = New System.Windows.Forms.TextBox() Me.btnExit = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.txtDocumentName = New System.Windows.Forms.TextBox() Me.btnParse = New System.Windows.Forms.Button() Me.btnBrowse = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.SuspendLayout() ' 'TabControl1 ' Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Location = New System.Drawing.Point(8, 48) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(472, 360) Me.TabControl1.TabIndex = 0 ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.txtResults) Me.TabPage1.Controls.Add(Me.lblFindCount) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(464, 334) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "EMail Addresses" ' 'txtResults ' Me.txtResults.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtResults.Location = New System.Drawing.Point(8, 40) Me.txtResults.Multiline = True Me.txtResults.Name = "txtResults" Me.txtResults.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.txtResults.Size = New System.Drawing.Size(448, 288) Me.txtResults.TabIndex = 2 ' 'lblFindCount ' Me.lblFindCount.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblFindCount.Location = New System.Drawing.Point(8, 8) Me.lblFindCount.Name = "lblFindCount" Me.lblFindCount.Size = New System.Drawing.Size(448, 23) Me.lblFindCount.TabIndex = 1 ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.txtDocContents) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Size = New System.Drawing.Size(464, 334) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Document Content" ' 'txtDocContents ' Me.txtDocContents.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.txtDocContents.Location = New System.Drawing.Point(8, 8) Me.txtDocContents.Multiline = True Me.txtDocContents.Name = "txtDocContents" Me.txtDocContents.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.txtDocContents.Size = New System.Drawing.Size(448, 320) Me.txtDocContents.TabIndex = 3 ' 'btnExit ' Me.btnExit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnExit.Location = New System.Drawing.Point(400, 424) Me.btnExit.Name = "btnExit" Me.btnExit.Size = New System.Drawing.Size(75, 23) Me.btnExit.TabIndex = 1 Me.btnExit.Text = "Exit" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(8, 16) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(59, 13) Me.Label1.TabIndex = 2 Me.Label1.Text = "Document:" ' 'txtDocumentName ' Me.txtDocumentName.Location = New System.Drawing.Point(72, 8) Me.txtDocumentName.Name = "txtDocumentName" Me.txtDocumentName.Size = New System.Drawing.Size(264, 20) Me.txtDocumentName.TabIndex = 3 ' 'btnParse ' Me.btnParse.Location = New System.Drawing.Point(416, 8) Me.btnParse.Name = "btnParse" Me.btnParse.Size = New System.Drawing.Size(56, 23) Me.btnParse.TabIndex = 4 Me.btnParse.Text = "Parse" ' 'btnBrowse ' Me.btnBrowse.Location = New System.Drawing.Point(352, 8) Me.btnBrowse.Name = "btnBrowse" Me.btnBrowse.Size = New System.Drawing.Size(56, 23) Me.btnBrowse.TabIndex = 5 Me.btnBrowse.Text = "Browse" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.ForeColor = System.Drawing.Color.Cornsilk Me.Label2.Location = New System.Drawing.Point(297, 48) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(39, 13) Me.Label2.TabIndex = 6 Me.Label2.Text = "Bc-Vnt" ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image) Me.ClientSize = New System.Drawing.Size(488, 462) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.btnBrowse) Me.Controls.Add(Me.btnParse) Me.Controls.Add(Me.txtDocumentName) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.btnExit) Me.Controls.Add(Me.TabControl1) Me.Name = "Form1" Me.Text = "Extract EMail Addresses from Word Documents" Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region Private Sub enableParseButton() btnParse.Enabled = (txtDocumentName.Text.Length > 0) End Sub Private Function ExtractEmailAddressesFromString(ByVal source As String) As String() Dim mc As MatchCollection Dim i As Integer ' expression garnered from www.regexlib.com - thanks guys! mc = Regex.Matches(source, "([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5})") Dim results(mc.Count - 1) As String For i = 0 To results.Length - 1 results(i) = mc(i).Value Next Return results End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load txtDocumentName.Text = "" enableParseButton() End Sub Private Sub txtDocumentName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDocumentName.TextChanged enableParseButton() End Sub Private Sub btnParse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnParse.Click ' Dim app As Word.Application ' Dim doc As Word.Document Dim app As Object Dim doc As Object Dim docFileName As String Dim docPath As String Dim contents As String Cursor.Current = Cursors.WaitCursor Try ' init UI controls lblFindCount.Text = "" txtResults.Text = "" txtDocContents.Text = "" ' validate file name docFileName = txtDocumentName.Text If docFileName.Length = 0 Then MsgBox("Please enter a file name") txtDocumentName.Focus() Return End If ' if no path use APP_BASE docPath = Path.GetDirectoryName(docFileName) If docPath.Length = 0 Then docFileName = Application.StartupPath & "\" & docFileName End If ' ensure file exists If Not File.Exists(docFileName) Then MsgBox("File does not exist") txtDocumentName.SelectAll() txtDocumentName.Focus() Return End If ' extract contents of file contents = "" If Path.GetExtension(docFileName).ToLower = ".txt" Then Dim fs As StreamReader Try fs = New StreamReader(docFileName) contents = fs.ReadToEnd Catch ex As Exception MsgBox("Unable to read from text input file") contents = "" Finally If Not fs Is Nothing Then fs.Close() End Try Else Try Try 'app = New Word.Application app = CreateObject("Word.Application") Catch ex As Exception MsgBox("Unable to start Word") Throw ex End Try Try doc = app.Documents.Open(docFileName) Catch ex As Exception MsgBox("Unable to load document in Word") Throw ex End Try contents = doc.Content.Text Catch ex As Exception contents = "" Finally If Not app Is Nothing Then app.Quit() End Try End If If contents.Length = 0 Then Return ' search for email addresses Dim emails As String() Dim email As String Dim results As New StringBuilder emails = ExtractEmailAddressesFromString(contents) For Each email In emails results.Append(email & vbNewLine) Next ' display results lblFindCount.Text = String.Format("{0} match(es) found.", emails.Length) txtResults.Text = results.ToString txtDocContents.Text = contents Finally Cursor.Current = Cursors.Default End Try End Sub Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click Dim ofd As OpenFileDialog Try ofd = New OpenFileDialog ofd.CheckFileExists = True ofd.CheckPathExists = True ofd.Filter = "Word Documents (*.doc)|*.doc|Rich Text Documents (*.rtf)|*.rtf|Text Documents (*.txt)|*.txt" ofd.Title = "Select Document" If ofd.ShowDialog = DialogResult.OK Then txtDocumentName.Text = ofd.FileName End If Finally If Not ofd Is Nothing Then ofd.Dispose() End Try End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

Amenintarile informatice care ataca platforma de operare Mac OS X sunt in continua crestere. Kaspersky Lab a interceptat un nou val de atacuri directionate asupra activistilor uiguri, ca parte a unei campanii de tip APT („amenintare persistenta avansata”, „Advanced Persistent Threat“). In aceasta nou-descoperita campanie, atacatorii trimit e-mail-uri personalizate catre un numar delimitat de activisti uiguri, despre care se presupune ca sunt utilizatori de Mac. Mesajele includ atasamente ZIP, care contin un backdoor de Mac OS X. Pentru a distrage atentia utilizatorilor si a ascunde malware-ul, fisierul ZIP contine o fotografie JPEG extrasa din site-ul „World Uyghur Congress“. Expertii Kaspersky Lab au analizat backdoor-ul si au ajuns la concluzia ca aplicatia este o varianta necunoscuta a troianului-ului MaControl, care ataca atat Mac-uri cu procesor Intel, cat si cu procesor PowerPC. Produsele Kaspersky Lab identifica aceasta amenintare cu numele „Backdoor.OSX.MaControl.b.” Cand este executat, MaControl.b se instaleaza pe computerul victimei si se conecteaza la serverul de Comanda si Control (C&C) pentru a primi instructiuni. Acesta permite atacatorului sa vizualizeze si sa transfere fisiere si, in general, sa ruleze orice comanda pe computerul infectat. In timpul analizei, Kaspersky Lab a localizat serverul de Comanda si Control in China. „Popularitatea globala a Mac-urilor este in continua crestere si, de asemenea, din ce in ce mai multe persoane aleg sa foloseasca un astfel de computer, deoarece cred ca este mai sigur decat un PC”, spune Costin Raiu, Director al Global Research & Analysis Team la Kaspersky Lab. „Nivelul tot mai ridicat de adoptare a computerelor cu Mac OS X determina atat o crestere a atacurilor informatice in masa asupra acestei platforme, cat si o intensificare a atacurilor directionate. Infractorii cibernetici vor continua sa-si imbunatateasca metodele de atac, combinand malware-ul cu tehnicile de inginerie sociala, cu scopul de a infecta computerele victimelor. Exact ca si in cazul malware-ului pentru PC-uri, aceast mix este cel mai eficient, amenintand securitatea utilizatorilor de Mac atat la nivel tehnic cat si psihologic”, incheie Raiu. Aceasta nu este prima data cand Kaspersky Lab identifica un atac APT asupra utilizatorilor de Mac. In aprilie 2012, compania a publicat informatii cu privire la o campanie APT activa, SabPub, care ataca platforma Mac OS X prin exploatarea unei vulnerabilitati in Microsoft Office. Odata ce troianul era instalat, acesta efectua capturi de ecran si permitea executia de comenzi pe computerul infectat. Cu toate ca troianul Flashfake, care a creat un botnet de peste 700.000 de Mac-uri infectate, a fost unul dintre cele mai importante incidente legate de securitatea Mac OS X, infractorii cibernetici continua sa atace acesta platforma prin campanii directionate. Recent, Apple a inlaturat afirmatia conform careia „Mac-urile nu sunt expuse miile de virusi care afecteaza PC-urile cu Windows”. In 2012, peisajul malware care afecteaza platforma Mac OS X se afla in schimbare, in timp ce infractorii cibernetici ataca tot mai des acest sistem de operare. Backdoor.OSX.MaControl.b este detectat si eliminat de suita de securitate Kaspersky Anti-Virus 2011 for Mac. Pentru mai multe detalii referitoare la atacul APT cu acest backdoor gasiti in articolul lui Costin Raiu, aici: New MacOS X backdoor variant used in APT attacks - Securelist.

Safe Money este o nou? tehnologie, creat? de Kaspersky Lab pentru a oferi un nivel de superior de protec?ie tranzac?iilor bancare. Laboratorul Matousec.com a testat mai multe solu?ii de securitate, pentru a evalua modul în care acestea reac?ioneaz? la tentativa de furt a datelor bancare în timpul tranzac?iilor online, iar tehnologia Kaspersky Lab s-a dovedit a fi una dintre cele mai eficiente. Matousec.com a testat 14 suite de securitate, printre care ?i Kaspersky Internet Security 2013, care va fi lansat? oficial la sfâr?itul lunii august. În evaluare a fost inclus? ?i Trusteer Rapport, o solu?ie business specializat?, creat? pentru securizarea canalelor de comunicare dintre banc? ?i client ?i nefiind o suit? antivirus propriu-zis?. Rezultatele finale au desemnat Kaspersky Internet Security 2013 cu tehnologia Safe Money activat? drept cea mai eficient?. Singurul produs cu un rezultat similar a fost solu?ia dedicat?, Trusteer. Tehnologia Safe Money a Kaspersky Lab include un set de instrumente, care protejeaz? utilizatorul de amenin??rile informatice bancare. Printre acestea se num?r? verificarea autenticit??ii magazinelor online sau a site-urilor de banking, scanarea computerului de vulnerabilit??i software, precum ?i lansarea browser-ului de Internet într-un mediu izolat. În plus, Safe Money protejeaz? în fa?a tentativelor de keylogging (interceptarea datelor introduse prin tastatura PC-ului) atunci când browser-ul este deschis în mediul izolat. Matousec.com a derulat 15 teste, care au analizat modul în care fiecare solu?ie de securitate r?spunde în fa?a malware-ului creat s? fure informa?ii financiare. Evalu?rile au simulat încerc?ri ale unor mostre de malware actuale („in-the-wild”) de a fura date introduse pe site-uri populare, asemenea PayPal ?i eBay. Kaspersky Internet Security 2013 a înregistrat un scor maxim, de 15 puncte din toate cele 15 teste. Cu toate acestea, jum?tate din cele 14 solu?ii de securitate participante nu au reu?it s? finalizeze niciun test – în fiecare caz, programul periculos reu?ea s? intercepteze informa?iile financiare. Singurul produs care a fost la acela?i nivel cu suita Kaspersky Internet Security 2013 a fost Trusteer Rapport, solu?ia business dedicat? protej?rii în fa?a acestor tipuri de fraude. În schimb, solu?ia consumer cu cel mai apropiat rezultat de cel al Kaspersky Lab a fost una care a reu?it s? treac? opt teste din 15. „În momentul în care am proiectat Safe Money pentru noua noastr? suit? de securitate, am luat în considerare toate metodele posibile prin care informa?iile bancare pot fi furate”, spune Oleg Ishanov, Head of Anti-Malware Research la Kaspersky Lab. „Eficien?a acestei abord?ri a fost confirmat? de testele independente. Evaluarea Matousec.com a demonstrat c?, odat? ce suita Kaspersky Internet Security 2013 va fi lansata, va oferi utilizatorilor cea mai bun? protec?ie pentru pl??ile online, comparabil? cu nivelul asigurat de solu?iile business specializate”, completeaz? Ishanov. Versiunea complet? a raportului Matousec este disponibil? aici: http://www.kaspersky.com/downloads/pdf/online_payments_threats_report_matousec.pdf. Mai multe informa?ii despre tehnologia Safe Money g?si?i aici: http://www.kaspersky.com/downloads/pdf/kaspersky_lab_whitepaper_safe_money_eng_final.pdf.

reUP please , " File not foud "

GJ

Java EE: JSP vs JSF – Modele Logice Pagini Java Server (JSP) au de mul?i ani tehnologia disponibil? numai în construc?ia de nivelul de prezentare folosind pagini dinamice. În ultimii ani, cu toate acestea, noile tehnologii au fost introduse, care au facilitat ?i a f?cut mai u?oar? crearea interfe?ei cu utilizatorul (UI): acestea includ Java Server Faces este nici o îndoial? c? cel mai mare succes. Acest articol va discuta despre ceea ce sunt principalele diferen?e dintre JSP JSF ?i. Compara?ie de modele logice O diferen?? evident? între primul JSP JSF tehnologii ?i poate fi subliniat prin compararea logica din spatele acestei opera?iuni de ambele tehnologii. JSP sunt constituite printr-o combina?ie de text ?i tag-uri: text reprezint? con?inutul de informa?ii, în timp ce etichetele implicate în construc?ia de pagini dinamice pentru a decide cu privire la o formatare, cum ar fi, orice controale etc. Este posibil s? se includ? într-un JSP de buc??i de cod, prin a?a-numitul scriplet: <% ... codice java %> Sau se face referire la fasole, cum ar fi cele con?inute în sesiunea utilizatorului: <jsp:use-bean*id="identificatore"*class="miopackage.mioBean"*scope="session"*/> În orice caz, este responsabilitatea programatorului de a defini toate conversia logica a valorilor introduse de utilizator în tipurile corespunz?toare utilizate de obiectele din backend, s? efectueze verific?ri de validitate în raport cu valorile înscrise (de exemplu, în cazul în care o valoare întreag? se încadreaz? într-un interval de validitatea sau în alt mod), ?i a?a mai departe. În schimb JSF logica, doar aparent mai complex, faciliteaz?, de departe, construc?ia de stratul de prezentare. În fiecare vizualizare JSF (pagina) este asociat cu un bob de fasole a reu?it, o gestionat de soia sau suport de soia este un POJO (Plain Old Java Object) sau un obiect format din propriet??i ?i metode pentru a ob?ine ?i a stabilit. Astfel, pentru fiecare câmp de introducere în interiorul paginii este asociat cu o proprietate de fasole gestionate folosind un EL (Limba Exprimarea), ca în exemplul urm?tor: În configura?ia Ogla a gestionat-fasole în fe?ele-config.xml este dup? cum urmeaz?: <managed-bean> <managed-bean-name>miobean</managed-bean-name> <managed-bean-class>miopackage.MioBean</managed-bean-class> <managed-bean-scope>session</managed-bean-scope> <managed-property> <property-name>proprieta</property-name> <property-class>int</property-class> <value>0</value> </managed-property> </managed-bean> Converters and validators in JSF SF prevede, de asemenea, motivele pentru conversie de tip ?i de validare, prin utilizarea de convertoare ?i validatorilor. În general, conversia tipurilor primitive se face automat conversia în timp ce mai multe tipuri de complexe (cum ar fi datele de) ofer? o indica?ie a convertorului de a utiliza, ca în urm?torul exemplu: <h:inputText*value="#{miobean.miadata}"> <f:convert*converterID="javax.faces.DateTime"*/> </h:inputText> În mod similar JSF v? permite s? defini?i validatori pentru valorile introduse de utilizator: <h:inputText*value="#{miobean.valore}"*required="true"> <f:validator*validatorID="id_validatore"/> </h:inputText> COMPARAREA CICLURILOR DE VIATA : Ave?i posibilitatea s? eviden?ia?i principalele diferente dintre JSP JSF ?i din compararea a ciclului de via?? al JSF decât cea tipic? a JSP ciclului de via?? ne referim afirm? c? cele dou? tehnologii, prin crearea paginii pentru a distrugerii. Ciclul de via?? al unui JSP Ciclul de via?? al unui JSP este destul de simplu: atunci când solicit? o pagin? JSP la container de web, acesta se transforma intr-o pagina de servlet ?i pentru a permite servlet pentru a procesa cererea utilizatorului, odat? ce pagina este transformat într-un servlet, servlet în sine vor fi folosite pentru a procesa cererile ulterioare. Ar trebui remarcat faptul c? compilarea JSP în servlet se produce ori de câte ori schimb?rile sunt f?cute jsp. Ciclul de via?? al JSF Ciclul de via?? al Java Server Faces este mult mai complex? decât cea a unui JSP ?i este format? din ?ase etape: ****Vezi Restore: Acesta este initializarea vedere. În timpul acestei faze, construirea de vedere al paginii, drept de gestionare a evenimentelor, validatoare ?i componente din vedere. ****Aplica?i Valori Cerere: in timpul acestei faze sunt extrase din cererea ?i valorile convertit la tipul a?teptat de fasole gestionate. ****Validarea procesului: faza de validare a valorilor introduse de utilizator în func?ie de logica set de anunturi. ****Actualiza?i Valori Model: actualizeaz? propriet??ile fasole gestionate cu valorile introduse de utilizator în cazul în care au trecut etapa de validare. ****Invoca Aplica?ie: în aceast? faz? evenimente sunt tratate cererile (de prepeli??, cum ar fi clic pe un buton). ****Pagin? de raspuns: vedere este randat. Compararea modelelor de navigare Un alt aspect deosebit de important în evaluarea unei prezent?ri de tehnologie este modelul de navigare. Pentru modelul de navigare în?elegem logica prin care un web-aplica?ie se mut? de la un mod de vizualizare la altul, în func?ie de datele introduse de utilizator. Navigare în JSP În JSP nu este prezent un model de naviga?ie efectiv? ?i este de pân? la programator sarcina de redirec?ionare din timp în timp cererea spre una sau alt? pagin?. Navigare în JSF În schimb JSF model de navigare face uz de un set de reguli de naviga?ie, care sunt activate prin intermediul outcome.Per în?eleag? func?ionarea modelului de navigare în JSF ia în considerare regula de navigare urm?toarele: <navigation-case> <from-action>#{miobean.verifica1}</from-action> <from-outcome>successo</from-outcome> <to-view-id>/successo1.jsp</to-view-id> </navigation-case> Aceasta regula prevede c?, dac? ac?iunea este invocat? verifica1 de miobean ?i returneaz? acest lucru ca un rezultat ?irul "de succes", atunci ai nevoie pentru a merge la pagina de successo1.jsp. Spre Facelets Când a fost introdus JavaServer Faces tehnologia a fost gandit sa-l utiliza în combina?ie cu Pagini JavaServer pentru a crea pagini ale unei aplicatii web.Ciclul de via?? al JavaServer Faces, a?a cum am v?zut, cu toate acestea, este compus din mai multe etape ?i, spre deosebire de JSP care proceseaz? elementele unei pagini, în ordinea în care acestea apar, JSF organizeaz? componente ale unei pagini într-o structur? arborescent? complex?: aceste diferen?e sunt angajate într-un num?r de incompatibilit??i între aceste dou? tehnologii. Cele Facelets, introduse în JSF 2.0, creat pentru a înlocui crearea de pagini JSP, dep??irea astfel de incompatibilit??i ?i furnizarea de urm?toarele avantaje: **** independen?? fa?? de recipient web **** compatibilitatea cu orice versiune de JSF **** sprijin pentru ?abloane Este de conceput, prin urmare, c?, în viitor, o mai mult sau mai pu?in viitor va fi utilizarea mai pu?in ?i mai pu?in de JSP a îmbr??i?a "nou" specifica?ie JSF. SURSA : http://www.html.it/articoli/java-ee-jsp-vs-jsf-i-cicli-di-vita/

Pentru ce sa fiu banat , pentru ca iti este lene sa citesti 3 posturi ?